Pascal da yaptığım basit bi örnek Vize Final Programı!!

Pascalda Yaptığım Basit Programları Buraya Atıcam.
Alıntı Değildir.

Pascalda Vize Final Programı nın Taslağı


Kod:
uses crt;varisim : Array[1..35]of string;vize : Array[1..35]of integer;final: Array[1..35]of integer;sonuc: Array[1..35]of real;tamsayi:Array[1..35]of integer;kalan : integer;gecen : integer;i: integer;ort:integer;Begin;Clrscr;kalan:=0;for i:=1 to 35 dobeginwrite(i,'.Öğrencinin Adını Ve Soyadını Giriniz...:');readln(isim);write(i,'.Öğrencinin Vize Notunu Giriniz...:');readln(vize);write(i,'.Öğrencinin Final Notunu Giriniz...:');readln(final);sonuc:=(vize)*(0.4)+(final)*(0.6);tamsayi:=trunc(sonuc);ort:=ort+tamsayi; if tamsayi<=49 thenbeginwriteln(i,'.Öğrencinin Notu:',tamsayi,' Kaldı');writeln('---------------------------------------');kalan:=kalan+1;end;if tamsayi>=50 thenbeginwriteln(i,'.Öğrencinin Notu:',tamsayi,' Geçti');writeln('---------------------------------------');gecen:=gecen+1;end;end;writeln('Geçen Öğrenci Sayısı: ',gecen);writeln('Kalan Öğrenci Sayısı: ',kalan);writeln('Sınıf Ortalaması: ',ort/35);readln;end.

SaYgIlArImLa... ugrasamadım birleşik oldu hepsi pascaldan anlayan biri zaten bunu ayırmasını bilir lütfen beni affedn)

eline sağlıkk