Programalama > PASCAL

uses crt;
var
a,b,s:integer;
c,d:iNTEGER;
begin
textcolor(30);
textbackground(4);
repeat
clrscr;
gotoxy(37,3); write('FAT˜H PEKTAž');
gotoxy(35,5); writeln('(***MENš***)');
gotoxy(35,6); writeln('1-TOPLAMA');
GOTOXY(35,7); writeln('2-€IKARMA');
gotoxy(35,8); writeln('3-KARES˜');
gotoxy(35,9); writeln('4-NEGAT˜F\POZ˜T˜F');
gotoxy(35,10);writeln('5-€ARPMA');
gotoxy(35,11);writeln('6-B™LME');
gotoxy(35,12);writeln('7-KšPš');
gotoxy(35,13);writeln('8-€IKIž');
gotoxy(35,16);write('Se‡iminizi yapnz..');readln(s);
if s=1 then begin
write('B˜R˜NC˜ SAYIYI G˜R˜N˜Z:');READLN(a);
write('˜K˜NC˜ SAYIYI G˜R˜N˜Z:'); readln(b);
write('TOPLAM=',a+b);
end;
if s=2 then begin
write('B˜R˜NC˜ SAYIYI G˜R˜N˜Z:');READLN(a);
write('˜K˜NC˜ SAYIYI G˜R˜N˜Z:');READLN (b);
write('SONU€=',a-b);
end;
if s=3 then begin
write('SAYIYI G˜R˜N˜Z:');readln(a);
write('KARES˜=',a*a);
end;
if s=4 then begin
sound(12345);
delay(200);
write('SAYIYI G˜R˜N˜Z:');readln(a);
if a<0 then write('NEGAT&#732;F');
if a>0 then write('POZ&#732;T&#732;F');
if a=0 then write('SIFIR');
end;
if s=5 then begin
write('B&#732;R&#732;NC&#732; SAYI G&#732;R&#732;N&#732;Z..:');readln(c);
write('&#732;K&#732;NC&#732; SAYIYI G&#732;R&#732;N&#732;Z..:');readln(d);
write('SONU&#8364;=',c*d);
END;
if s=6 then begin
write('B&#8482;L&#353;NECEK SAYIYI G&#732;R&#732;N&#732;Z:');readln(a);
write('KA&#8364;A B&#8482;L&#353;NECEK:');readln(b);
write('SONU&#8364;=:',a/b:1:2);
end;
if s=7 then begin
writeln('SAYIYI G&#732;R&#732;N&#732;Z:');readln(a);
writeln('K&#353;P&#353;=',a*a*a);
end;
readln;
until s=8;exit;

end.