Procedure ile Yapılan Bir Hesap Makinesi
uses crt;
var
x,y:integer;
sonuc:real;
k:char;
procedure menu;
begin clrscr;
gotoxy(15,5);
writeln('(+) islemi');
gotoxy(15,7);
writeln('(-) islemi');
gotoxy(15,9);
writeln('(*) islemi');
gotoxy(15,11);
writeln('(/) islemi');
gotoxy(15,13);
writeln('Cikis islemi için ( b yada B )');
gotoxy(15,15);
readln(k);
end;
Procedure toplama;
begin
sonuc:=x+y;
end;
Procedure cikarma;
begin
sonuc:=x-y;
end;
Procedure carpma;
begin
sonuc:=x*y;
end;
Procedure bolme;
begin
sonuc:=x/y;
end;
Procedure veri_girisi;
begin clrscr;
gotoxy(15,8);
write('Birinci Sayiyi Giriniz...:');
readln(x);
gotoxy(15,10);
write('Ikinci Sayiyi Giriniz....:');
readln;
end;
Procedure yaz;
begin clrscr;
gotoxy(15,13);
write('Islemin Sonucu...:',sonuc:3:2);
readln;
end;
begin clrscr;
repeat;
textbackground(14);
textcolor(black);
menu;
case k of
'+': begin veri_girisi; toplama; yaz; end;
'-': begin veri_girisi; cikarma; yaz; end;
'*': begin veri_girisi; carpma; yaz; end;
'/': begin veri_girisi; bolme; yaz; end;
end;
until (k='b') or (k='B');
end.
Melih Okur
uses crt;
var
x,y:integer;
sonuc:real;
k:char;
procedure menu;
begin clrscr;
gotoxy(15,5);
writeln('(+) islemi');
gotoxy(15,7);
writeln('(-) islemi');
gotoxy(15,9);
writeln('(*) islemi');
gotoxy(15,11);
writeln('(/) islemi');
gotoxy(15,13);
writeln('Cikis islemi için ( b yada B )');
gotoxy(15,15);
readln(k);
end;
Procedure toplama;
begin
sonuc:=x+y;
end;
Procedure cikarma;
begin
sonuc:=x-y;
end;
Procedure carpma;
begin
sonuc:=x*y;
end;
Procedure bolme;
begin
sonuc:=x/y;
end;
Procedure veri_girisi;
begin clrscr;
gotoxy(15,8);
write('Birinci Sayiyi Giriniz...:');
readln(x);
gotoxy(15,10);
write('Ikinci Sayiyi Giriniz....:');
readln;
end;
Procedure yaz;
begin clrscr;
gotoxy(15,13);
write('Islemin Sonucu...:',sonuc:3:2);
readln;
end;
begin clrscr;
repeat;
textbackground(14);
textcolor(black);
menu;
case k of
'+': begin veri_girisi; toplama; yaz; end;
'-': begin veri_girisi; cikarma; yaz; end;
'*': begin veri_girisi; carpma; yaz; end;
'/': begin veri_girisi; bolme; yaz; end;
end;
until (k='b') or (k='B');
end.
Melih Okur