PC Hocası Forum

Tam Versiyon: QBasic Klavyeden okunan 2 sayı arasındaki sayıların adedini toplamını ve ortalamasını
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Klavyeden okunan 2 sayı arasındaki sayıların adedini toplamını ve ortalamasını bulan ve ekrana yazan basic programı
iki sayının toplamını yaptım ama adedini ve ortalamasını yapamdım yardım edermisiniz o iki işlemi nasıl yaptıracam
CLS
TOPLAM=0
INPUT “IKI SAYI GİRİN”,B,S
FOR I=B TO S
        TOPLAM=TOPLAM+I
NEXT I
PRINT B; S; “ARASINDAKİ SAYILARIN TOPLAMI=”;TOPLAM
(18/11/2020, Saat: 20:37)Esque Adlı Kullanıcıdan Alıntı: [ -> ]Klavyeden okunan 2 sayı arasındaki sayıların adedini toplamını ve ortalamasını bulan ve ekrana yazan basic programı
iki sayının toplamını yaptım ama adedini ve ortalamasını yapamdım yardım edermisiniz o iki işlemi nasıl yaptıracam
CLS
TOPLAM=0
INPUT “IKI SAYI GİRİN”,B,S
FOR I=B TO S
        TOPLAM=TOPLAM+I
NEXT I
PRINT B; S; “ARASINDAKİ SAYILARIN TOPLAMI=”;TOPLAM

CLS
TOPLAM=0
ADET =0
ORTALAMA =0
INPUT “IKI SAYI GİRİN”,B,S
IF B<S THEN
    FOR I=B TO S
        TOPLAM=TOPLAM+I
        ADET=ADET+1
    NEXT I
ORTALAMA= TOPLAM/ADET
PRINT B; S; “ARASINDAKİ SAYILARIN TOPLAMI=”;TOPLAM
PRINT B;S; " SAYİLARİNİN ARASİNDAKİ SAYİ ADEDİ=";ADET
PRINT B;S; "ARASİNDAKİ SAYİLARİN ORTALAMASİ="; ORTALAMA
ELSE
    FOR I=S TO B
        TOPLAM=TOPLAM+I
        ADET=ADET+1
    NEXT I
ORTALAMA= TOPLAM/ADET
PRINT S; B; “ARASINDAKİ SAYILARIN TOPLAMI=”;TOPLAM
PRINT S; B; " SAYİLARİNİN ARASİNDAKİ SAYİ ADEDİ=";ADET
PRINT S; B; "ARASİNDAKİ SAYİLARİN ORTALAMASİ="; ORTALAMA
END IF


Deneme fırsatım olmadı ama bu mantıkla düzenlenebilir sanki....