Hesap Makinesi {Turbo Pascal}

[admin]

Programımızın kodları:

Kod: Tümünü seç

{
Barbaros Kuşçular
www.spycoders.com
}
Program Hesap_Makinesi;
uses crt;
var
sayi1,sayi2,secim,hata:integer;
sonuc:real;
a:char;
begin
while secim<>5 do
begin
clrscr;
writeln('1-Toplama');
writeln('2-Cikarma');
writeln('3-Carpma');
writeln('4-Bolme');
writeln('5-Cikis');
write('seciminiz[1/2/3/4/5]=');readln(secim);
if (secim=1) or (secim=2) or (secim=3) or (secim=4) Then
begin
write('Birinci Sayi:');
readln(sayi1);
write('ikinci Sayi:');
readln(sayi2);
end;
case secim of
1:sonuc:=sayi1+sayi2;
2:sonuc:=sayi1-sayi2;
3:sonuc:=sayi1*sayi2;
4:
begin
if sayi2<>0 then
begin
sonuc:=sayi1/sayi2;
end
else
begin
hata:=1;
end;
end;
end;
if (secim=1) or (secim=2) or (secim=3) or (secim=4) Then
begin
if hata=1 then
begin
writeln('0 ile b”lme olmaz');
end
else
begin
writeln('sonuc=', sonuc:2:2);
end;
writeln('Devam etmek icin bir tusa basiniz');
a:=readkey;
end;
end;
end.

Sonuç :
Toplama işlemini seçtik ve program tarafından işlem uygulandı.



kaynak :

Kod: Tümünü seç

spycoders - mbk - 2011