Forum
Aktif konular
Üyeler
Kurallar
Arama
Pascal 10 Sayinin Avarajini Bulma... (Yardim) Pascal 10 Sayinin Avarajini Bulma... (Yardim)
-
Selam arkadaslar, pascaldan 10 integer rakam girip bunlarin avarajini cikaran bir program yzamaya calisiyorum... Ama "For - Do" kullanarak yapmam gerek...
Ben birtane yazdim ama birturlu calistiramadim. hata var... anlayan arkadaslar varsa ve yardim ederlerse cok sevinirim...
Tesekurler...
Pascal Avaraj Bulma:
program name;
var
sum,i,average:integer;
n:integer;
begin
if (n>0) and (n<=100) then
for I:= 1 to 10 do
write('enter integer numbers');
readln(numbers);
end;
average:=sum/10;
writeln('The average is', avg);
end.
-
bak programda 2 tane end var..
end. olan programı sonlandırıo..
end; olan neyi sonlandırıo ?? ona baki bi istersen sanki bişileri unutmuşsun :) for dan önce 1 tane daha begin yaz..
-
bide
readln(numbers);
demişsin..
numbers die bi değişken yokki neyi okucak derleyici ? " n " die bi değişken var.
-
Dostum dediklerini yaptim yine calismiyor :( Numbers i dızelttim n olarak variable llarda tanitigim gibi yaptim... olumuyor
begini de denedim....
Yokmu yardim edecek programci :(
-
hocam kusura bakma ama bana öyle geliyor ki senin bu yazdığın program tamamen hatalı. bu averaj ne demek? bana söylersen sana doğru çalışacak bir for döngülü averaj programı yapabilirim? ne bu averaj tam olarak istediğini anlat.
-
eğer girilecek 10 sayının ortalamasını alacak bir algortam diyorsan o ifi neden koydun anlayamadım ama işiine yarayacak bri kod yazayım
program average(input,output);
var
i,sayi,averaj:integer;begin
for i=1 to 10 do
begin
writeln(i,'. sayiyi giriniz');
readln(sayi);
averaj:=averaj+sayi;
end;
averaj:=averaj div 10;
writeln(averaj);
end. -
program average(input,output);
var
i,sayi,averaj:integer;begin
for i:=1 to 10 do
begin
writeln('averaji alinacak sayiyi giriniz');
readln(sayi);
averaj:=averaj+sayi;
end;
averaj:=averaj div 10;
writeln(averaj);
end.bir 2 nokta hatası vardı düzelttim denedim çalışıyor işine yarar umarım
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla