Pascal Örnekleri

merakettim

Homo Sapiens Sapiens
Özel üye
Öğrenci notu hesaplama.pas
PHP:
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.
 

merakettim

Homo Sapiens Sapiens
Özel üye
(*Bir havaalanında 4 adet pist bulunmaktadır. Bir saatte havaalanına inecek uçak sayısı 1-20 arası ise 1. pist, 21-40 ise 1 ve 2 nolu pistler 41-60 ise 1,2 ve 3 nolu pistler, ve 60'ın üzerinde ise 4 pist birlikte açıllmaktadır. Uçak sayısını bilgisayara giren ve açılacak pist sayısını ekranda gösteren bir Pascal programı yazınız? *)



PHP:
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.
 

merakettim

Homo Sapiens Sapiens
Özel üye
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.


PHP:
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.*)
 
Top