IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Pascal ile öğrenci not hesaplama programı

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

Pascalda Vize Final Programı nın Taslağı

Kod:

uses crt;

var

isim :  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 do

begin

write(i,'.Öğrencinin Adını Ve Soyadını Giriniz...:');

readln(isim[i]);

write(i,'.Öğrencinin Vize Notunu Giriniz...:');

readln(vize[i]);

write(i,'.Öğrencinin Final Notunu Giriniz...:');

readln(final[i]);

sonuc[i]:=(vize[i])*(0.4)+(final[i])*(0.6);

tamsayi[i]:=trunc(sonuc[i]);

ort:=ort+tamsayi[i];    

if tamsayi[i]<=49 then

begin

writeln(i,'.Öğrencinin Notu:',tamsayi[i],' Kaldı');

writeln('---------------------------------------');

kalan:=kalan+1;

end;

if tamsayi[i]>=50 then

begin

writeln(i,'.Öğrencinin Notu:',tamsayi[i],' 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.

Bu Lisedeki Yaptığım Tek Örnekti. :)