 |
| Turbo Pascal |
Merhaba arkadaşlar bundan sonra sizlere
pascal programlama dili ile yapılmış örnekler verecem ilk örnegimiz
pascal programlama da klavyeden girilen iki sayı ile dört işlem yapmayı saglayan program kodlarını paylaşacagım.Bu örnegimizde klavyeden deger girmeyi, case yapısını ve dört işlem yapmayı görecegiz. Yapamadıgınız yerleri sorularınızı yorum yapmayı unutmayınız.
var
d1:real;
d2:real;
sonuc:real;
sec:integer; par:boolean;
begin
par:=true;
writeln('1.Sayı...:'); readln(d1);
writeln('2.Sayi...:'); readln(d2);
writeln('1: Topla, 2: Cıkarma, 3: Çarpma, 4: Bölme');
writeln('işlem Sec...:'); readln(sec);
case sec of
1: sonuc:=d1+d2; writeln('sonuc...:', sonuc);
2: sonuc:=d1-d2;
3: sonuc:=d1*d2;
4: sonuc:=d1/d2;
else begin
par:=false;
write('Hatalı Giriş...');
end;
if par<>true then writeln('sonuc...:', sonuc);
end;
readln;
end.
Kodları indirmek için tıklayınız.
DönüşümDönüşüm İfadeİfade