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....