Menu secenekli güzel ve basit bir program

uses crt;
label d;
var
a:byte;
sec,devam:char;
s1,s2:longint;
sonuc:real;
begin clrscr;
d:
for a:=5 to 75 do begin
textcolor(3);gotoxy(a,5);write(#205);
gotoxy(a,20);write(#205);
gotoxy(a,7);write(#205);
end;
for a:=5 to 20 do begin
gotoxy(5,a);write(#186);
gotoxy(75,a);write(#186);
gotoxy(5,5);write(#201);
gotoxy(5,20);write(#200);
gotoxy(75,5);write(#187);
gotoxy(75,20);write(#188);
end;
for a:=10 to 30 do begin
gotoxy(a,10);write(#205);
gotoxy(a,18);write(#205);
end;
for a:=45 to 65 do begin
gotoxy(a,10);write(#205);
gotoxy(a,18);write(#205);
end;
for a:=10 to 18 do begin
gotoxy(10,a);write(#186);
gotoxy(30,a);write(#186);
gotoxy(45,a);write(#186);
gotoxy(65,a);write(#186);
gotoxy(10,18);write(#200);
gotoxy(10,10);write(#201);
gotoxy(65,18);write(#188);
gotoxy(65,10);write(#187);
gotoxy(45,10);write(#201);
gotoxy(45,18);write(#200);
gotoxy(30,10);write(#187);
gotoxy(30,18);write(#188);
end;
for a:=25 to 50 do begin
gotoxy(a,24);write(#205);
end;
for a:=21 to 24 do begin
gotoxy(25,a);write(#186);
gotoxy(50,a);write(#186);
gotoxy(25,20);write(#201);
gotoxy(25,24);write(#200);
gotoxy(50,24);write(#188);
gotoxy(50,20);write(#187);
end;
textcolor(yellow);gotoxy(26,6);write('--------> MENU <---------');
TEXTCOLOR(lightgreen);gotoxy(12,11);write('[a] TOPLAMA');
gotoxy(12,13);write('[b] CIKARMA');
GOTOXY(12,15);write('[c] CARPMA');
GOTOXY(12,17);write('[d] BOLME');
GOTOXY(47,11);Write('[e] KARE');
GOTOXy(47,13);write('[f] FAKTORIYEL');
GOtoxy(47,15);write('[g] KAREKOK');
gotoxy(47,17);write('[h] DA˜RE ALAN ');
GOTOXY(30,22);write('Seciminiz....:');
SEC:=READKEY;
case sec of
'a': begin clrscr;
for a:=20 to 60 do begin
gotoxy(a,10);write(#205);
gotoxy(a,20);write(#205);
end;
for a:=10 to 20 do begin
gotoxy(20,a);write(#186);
gotoxy(60,a);write(#186);
gotoxy(20,10);write(#201);
gotoxy(20,20);write(#200);
gotoxy(60,10);write(#187);
gotoxy(60,20);write(#188);
end;
textcolor(3);gotoxy(25,11);write('------>>>>TOPLAMA<<<<----------');
gotoxy(30,14);write('1.sayi...:');readln(s1);
gotoxy(30,16);write('2.sayi...:');readln(s2);
sonuc:=s1+s2;
gotoxy(30,18);write('sonuc...:',sonuc:3:2);
end;
'b':begin clrscr;
for a:=20 to 60 do begin
gotoxy(a,10);write(#205);
gotoxy(a,20);write(#205);
end;
for a:=10 to 20 do begin
gotoxy(20,a);write(#186);
gotoxy(60,a);write(#186);
gotoxy(20,10);write(#201);
gotoxy(20,20);write(#200);
gotoxy(60,10);write(#187);
gotoxy(60,20);write(#188);
end;
textcolor(3);gotoxy(25,11);write('------>>>>CIKARMA<<<<----------');
gotoxy(30,14);write('1.sayi...:');readln(s1);
gotoxy(30,16);write('2.sayi...:');readln(s2);
sonuc:=s1-s2;
gotoxy(30,18);write('sonuc...:',sonuc:3:2);
end;
'c':begin clrscr;
for a:=20 to 60 do begin
gotoxy(a,10);write(#205);
gotoxy(a,20);write(#205);
end;
for a:=10 to 20 do begin
gotoxy(20,a);write(#186);
gotoxy(60,a);write(#186);
gotoxy(20,10);write(#201);
gotoxy(20,20);write(#200);
gotoxy(60,10);write(#187);
gotoxy(60,20);write(#188);
end;
textcolor(3);gotoxy(25,11);write('------>>>>CARPMA<<<<----------');
gotoxy(30,14);write('1.sayi...:');readln(s1);
gotoxy(30,16);write('2.sayi...:');readln(s2);
sonuc:=s1*s2;
gotoxy(30,18);write('sonuc...:',sonuc:3:2);
end;
'd':begin clrscr;
for a:=20 to 60 do begin
gotoxy(a,10);write(#205);
gotoxy(a,20);write(#205);
end;
for a:=10 to 20 do begin
gotoxy(20,a);write(#186);
gotoxy(60,a);write(#186);
gotoxy(20,10);write(#201);
gotoxy(20,20);write(#200);
gotoxy(60,10);write(#187);
gotoxy(60,20);write(#188);
end;
textcolor(3);gotoxy(25,11);write('------>>>>BOLME<<<<----------');
gotoxy(30,14);write('1.sayi...:');readln(s1);
gotoxy(30,16);write('2.sayi...:');readln(s2);
sonuc:=s1/s2;
gotoxy(30,18);write('sonuc...:',sonuc:3:2);
end;
'e':begin clrscr;
for a:=20 to 60 do begin
gotoxy(a,10);write(#205);
gotoxy(a,20);write(#205);
end;
for a:=10 to 20 do begin
gotoxy(20,a);write(#186);
gotoxy(60,a);write(#186);
gotoxy(20,10);write(#201);
gotoxy(20,20);write(#200);
gotoxy(60,10);write(#187);
gotoxy(60,20);write(#188);
end;
textcolor(3);gotoxy(25,11);write('------>>>>KARE<<<<----------');
gotoxy(30,14);write('Bir sayi girin...:');readln(s1);
sonuc:=s1*s1;
gotoxy(30,16);write('sonuc...:',sonuc:3:2);
end;
'f':begin clrscr;
for a:=20 to 60 do begin
gotoxy(a,10);write(#205);
gotoxy(a,20);write(#205);
end;
for a:=10 to 20 do begin
gotoxy(20,a);write(#186);
gotoxy(60,a);write(#186);
gotoxy(20,10);write(#201);
gotoxy(20,20);write(#200);
gotoxy(60,10);write(#187);
gotoxy(60,20);write(#188);
end;
textcolor(3);gotoxy(25,11);write('------>>>>FAKTORIYEL<<<<----------');
gotoxy(30,14);write('Bir sayi girin...:');readln(s1);sonuc:=1;
for a:=1 to s1 do begin
sonuc:=sonuc*a;
gotoxy(30,18);write('sonuc...:',sonuc:3:2);
end;end;
'g':begin clrscr;
for a:=20 to 60 do begin
gotoxy(a,10);write(#205);
gotoxy(a,20);write(#205);
end;
for a:=10 to 20 do begin
gotoxy(20,a);write(#186);
gotoxy(60,a);write(#186);
gotoxy(20,10);write(#201);
gotoxy(20,20);write(#200);
gotoxy(60,10);write(#187);
gotoxy(60,20);write(#188);
end;
textcolor(3);gotoxy(25,11);write('------>>>>KAREKOK<<<<----------');
gotoxy(30,14);write('Bir sayi girin...:');readln(s1);
sonuc:=sqrt(s1);
gotoxy(30,18);write('Sayinin karekoku...:',sonuc:3:2);
end;
'h':begin clrscr;
for a:=20 to 60 do begin
gotoxy(a,10);write(#205);
gotoxy(a,20);write(#205);
end;
for a:=10 to 20 do begin
gotoxy(20,a);write(#186);
gotoxy(60,a);write(#186);
gotoxy(20,10);write(#201);
gotoxy(20,20);write(#200);
gotoxy(60,10);write(#187);
gotoxy(60,20);write(#188);
end;
textcolor(3);gotoxy(25,11);write('---->>>>DA˜REN˜N ALANI<<<<----');
gotoxy(25,14);write('Dairenin yarcapini girin...:');readln(s1);
sonuc:=s1*pi;
gotoxy(30,18);write('Dairenin alan...:',sonuc:3:2);
end;
end;
tEXTCOLOR(RED);gotoxy(25,25);write(#205,'COPYRIGHT TO By ZIYANKAR',#205);
gotoxy(20,21);write('DEvam etmek istiyormusunuz....[e/h]:');devam:=readkey;
clrscr;
if devam='e' then goto d
else exit;
readln;
end.




alıntıdır