basit hesap makinesi
uses crt;
var x,y:longint; sec:longint; begin clrscr; writeln(' Yuzuncu Y?l Un?vers?tes? ') ; readln; write('Bir say? gir:'); readln(x); write('Bir say? daha gir:'); readln(y); writeln(' ********* MENU; *********'); writeln('1:topla'); writeln('2:c?kar'); writeln('3:carp'); writeln('4:bolme'); write('secimin; ? > :'); readln(sec); if sec=1 then write(' sonuc;=',x+y); if sec=2 then write(' sonuc;=',x-y); if sec=3 then write(' sonuc;=',x*y); if sec=4 then write(' sonuc;=',x/y:6:2); readln; end. uses crt; var x,y:longint; sec:longint; begin textbackground(1); clrscr; textcolor(14); write('bir say? gir:'); readln(x); textcolor(15); write('bir say? daha gir:'); readln(y); textcolor(5); writeln(' ********* MENš *********'); writeln('1:topla'); writeln('2:‡?kar'); writeln('3:‡arp'); writeln('4:b”lme'); write('ne yapay?m kardaŸ ? > :'); readln(sec); textcolor(4+128); if sec=1 then write(' sonu‡=',x+y); if sec=2 then write(' sonu‡=',x-y); if sec=3 then write(' sonu‡=',x*y); if sec=4 then write(' sonu‡=',x/y:6:0); readln; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için sağol
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 18:21 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.