Pascal Programlama Dili

[cnet]

Pascal Programlama Dilinde 4 örnek ->

1-) Klavyeen girilen 10 sayın...ın toplamını ve ortalamasını bulan pascal programı ?
Cevap:
uses crt;
var
a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,ort,top:real;
begin
clrscr;
writeln('sayiyi gir:');
readln(a1 );
writeln('sayiyi gir:');
readln(a2 );
writeln('sayiyi gir:');
readln(a3 );
writeln('sayiyi gir:');
readln(a4 );
writeln('sayiyi gir:');
readln(a5 );
writeln('sayiyi gir:');
readln(a6 );
writeln('sayiyi gir:');
readln(a7 );
writeln('sayiyi gir:');
readln(a8 );
writeln('sayiyi gir:');
readln(a9 );
writeln('sayiyi gir:');
readln(a10 );
writeln('Toplam:',a1+a2+a3+a4+a5+a6+a7+a8+a9+a10:5 :2);
writeln('Ortalamasi',(a1+a2+a3+a4+a5+a6+a7+a8+a9+a 10)/10:5:2);
readkey;
end.

2-) Girilen 3 sayıdan en büyüğünü bulan pascal kodu ?
CAVAP:
uses crt;
var
a,b,c:integer;
begin
clrscr;
writeln('1.sayiyi gir');
readln(a);
writeln('2.sayiyi gir');
readln(b);
writeln('3.sayiyi gir');
readln(c);
if (a>b) and (a>c) then write('En byk',a)
else if (b>a) and (b>c) then write('En byk',b)
else if (c>a) and (c>b) then write('En byk',c);
readkey;
end.


3-)Klavyeden 100'lük sistemde notu girilen öğrencinin aldığı notun, 5 lik sistemde karşılığını ekrana yazdıran pascal kodu ? (Case of ile yapılacak )
CEVAP:
uses crt;
var
x:integer;
begin
clrscr;
writeln('0-24:Not:0');
writeln('25-44:Not:1');
writeln('45-54:Not:2');
writeln('55-69:Not:3');
writeln('70-84:Not:4');
writeln('85-100:Not:5');
readln(x);
case x of
0..24:writeln('Notun:0');
25..44:writeln('Notun:1');
45..54:writeln('Notun:2');
55..69:writeln('Notun:3');
70..84:writeln('Notun:4');
85..100:writeln('Notun:5');
end;
readkey;
end.

4-)Klavyeden doğum yılı girilen kişinin yaşını hesaplayıp ekrana yazdıran pascal kodu ?
CEVAP
uses crt;
var
yas,yil:integer;
begin
clrscr;
writeln('Dogum yiliniz');
readln(yil);
writeln('Yasiniz:',2010-yil);
readkey;
end.

[Rank93]

Evet bu program siyah ekranda calısıyor kullanmıstım bi aralar, yapay zeka denedim ama sadece benim merhaba soruma karşılık merhaba falan nasilsin sorusuna iyim sen demeyi yapabildim farklı birşey girinlince oyun oynayalim gibi konuyu değiştirme yaptım ama kelime dağarcını geliştirip programın kendisinin konusmasını yapamdım hata gösterdi.