Turbo Pascal'da Klavyeden Girilen İki Sayı İle Dört İşlem

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.