Pascal Örnekleri

program nothesap;
uses crt;
var
vize,quiz,odev,devam,final:integer;
basarin:real;

begin

write('Vize notu:');
readln(vize);
write('Quiz notu:');
readln(quiz);
write('Odev notu:');
readln(odev);
write('Devam notu:');
readln(devam);
write('Final notu:');
readln(final);
basarin:=(((vize*0.5)+(quiz*0.25)+(odev*0.15)+(devam*0.1))*0.5)+(final*0.5);
writeln('Ogrencinin Basari Notu : ',trunc(basarin));
if basarin>=65 then
writeln('Gectiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii')
else
writeln('Kaldiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii');
end.

program deneme;
uses crt;
var
ucak:integer;

begin

write('1 Saatte Inecek Ucak Sayisi:');
readln(ucak);

case ucak of

1..20:writeln('1 Numarali Pist Acilacak');
21..40:writeln('1 ve 2 Numarali Pistler Acilacak');
41..60:writeln('1,2 ve 3 Numarali Pistler Acilacak');
61..1000:writeln('Tüm Pistler Acilacak');
else
writeln('Yanlis Ucak Satisi (Ucak Sayisi Harf,Sifir,Eksi veya Binden Fazla Olamaz');
end;

end.

program deneme;

uses crt;

var
aa,bb:integer;
yazi:string;

begin
write(':');
readln(yazi);
write('Sayiyi giriniz:');
readln(bb);
for aa:=1 to bb do
begin
writeln('Numara:',aa,'-->',yazi);
end;

end.

(*Klavyeden girlecek bir string ifadeyi yine klavyeden girilecek bir değer kadar ekranda tekrar halinde yazılmasını 

gerçekleştiren programı yazınız.*)