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.. bazıları için karanlık, korkunun kaynağıdır. bazılarınında tek bildiği şey..

hocam kusura bakma ama bana yle geliyor ki senin bu yazdığın program tamamen hatalı. bu averaj ne demek? bana sylersen sana doğru çalışacak bir for dngülü averaj programı yapabilirim? ne bu averaj tam olarak istediğini anlat. aaa

program average ;var i, sayi, averaj:integer;begin for i:=1 to 10 do begin writeln ; readln ; averaj:=averaj+sayi; end; averaj:=averaj div 10; writeln ;end. bir 2 nokta hatası vardı düzelttim denedim çalışıyor işine yarar umarım aaa

bide readln ;demişsin.. numbers die bi değişken yokki neyi okucak derleyici? " n " die bi değişken var. bazıları için karanlık, korkunun kaynağıdır. bazılarınında tek bildiği şey..

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 ;var i, sayi, averaj:integer;begin for i=1 to 10 do begin writeln ; readln ; averaj:=averaj+sayi; end; averaj:=averaj div 10; writeln ;end. aaa

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;varsum, i, average:integer;n:integer;beginif (n>0) and (n<=100) thenfor I:= 1 to 10 dowrite ;readln ;end; average:=sum/10;writeln ;end. Shaban Interactive Pro.

Dostum dediklerini yaptim yine calismiyor :( Numbers i dızelttim n olarak variable llarda tanitigim gibi yaptim... olumuyorbegini de denedim... Yokmu yardim edecek programci :( Shaban Interactive Pro.