Pascal Örnekleri

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

Pascalda Vize Final Programı nın Taslağı

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 klasik okul ödevleri yerine, yararlı ve işlevselliği yüksek algoritmaları paylaşman daha iyi olur bence.
Yinede paylaşımlarına saygılıyım ama..

Klasik Okul Ödevlerine Arama Motorlarından Ne Kadar Kullanıcı Getirebilceğini Biliyormusun?

Bu Lisedeki Yaptığım Tek Örnekti.
C# ta Yaptığım Yeni Örnekleri Eklicem.