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.
|