Programalama > PASCAL

uses crt;
label devam;
var
a,d,sat,sut,r:byte;
sec1:byte;
sec2,sec3:char;
s1,s2,sn:longint;
t,c,ck,b:real;
begin clrscr;
devam:
textattr:=yellow;gotoxy(30,15);writeln('1:HESAP MAKINESI    ..');
gotoxy(30,17);write('2:CARPIM TABLOSU    ..');
gotoxy(30,19);write('3:KRONOMETRE        ..');
gotoxy(30,21);write('4:ASCII KOD  TABLOSU.. ');
gotoxy(30,23);write('5:RENK  KOD  TABLOSU..');
gotoxy(30,35);write('seciminiz...:');READLN(sec1);
if sec1=1 then begin clrscr;
gotoxy(30,10);writeln('-HESAP MAKINESI-');
gotoxy(25,15);writeln('TOPLAMA ISLEMI + :');
GOTOXY(25,17);writeln('CIKARMA   "    - :');
gotoxy(25,19);writeln('CARPMA    "    * :');
GOTOXY(25,21);writeln('BOLME     "    / :');
GOTOXY(25,30);write('seciminiz...:');readln(sec2);
if sec2='+' then begin
gotoxy(25,35);write('1.sayiyi girin...:');readln(s1);
gotoxy(25,36);write('2.sayiyi girin...:');readln(s2);
t:=s1+s2;
gotoxy(25,37);writeln('sonuc...:',t:3:2);end;
if sec2='-' then begin
gotoxy(25,35);write('1.sayiyi girin...:');readln(s1);
gotoxy(25,36);write('2.sayiyi girin...:');readln(s2);
ck:=s1-s2;gotoxy(25,37);write('sonuc...:',ck:3:2);end;
if sec2='*' then begin
gotoxy(25,35);write('1.sayiyi girin...:');readln(s1);
gotoxy(25,36);write('2.sayiyi girin...:');readln(s2);
c:=s1*s2;
gotoxy(25,37);write('sonuc...:',c:3:2);end;
if sec2='/' then begin
gotoxy(25,35);write('1.sayiyi girin...:');readln(s1);
gotoxy(25,36);write('2.sayiyi girin...:');readln(s2);
b:=s1/s2;
gotoxy(25,37);write('sonuc...:',b:3:2);end;end;
if sec1=2 then begin clrscr;
gotoxy(30,3);writeln
('-CARPIM TABLOSU-');
FOR a:=1 TO 10 DO begin
for d:=1 to 10 do begin
gotoxy(sut,sat+d);write(a,'x',d,'=',a*d);end;
sut:=sut+13; if a=5 then begin sut:=10;sat:=8;end;end;end;
if sec1=3 then begin clrscr;
gotoxy(30,10);write('-KRONOMETRE-');
GOTOXY(30,20);write('saniyeyi girin...:');readln(sn);
for a:=1 to sn do begin
gotoxy(30,25);delay(1000);write(a);end;
gotoxy(30,25);write(a,' saniyelik sreniz doldu...');
end;if sec1=4 then begin clrscr;
sut:=10;sat:=5;
gotoxy(32,2);write('-ASCII KOD LISTESI-');
for a:=1 to 255 do
begin
gotoxy(sut,sat);
write(a,'=',chr(a));
sat:=sat+1;
if sat>44 then begin sat:=5;sut:=sut+10;end;
end;readln;
end;
if sec1=5 then begin clrscr;gotoxy(30,5);write('-RENK KOD TABLOSU-');
FOR A:=1 TO 30 DO begin sat:=20;sut:=32;
gotoxy(32,a+10);textcolor(a);writeln(a   ,'   .renk...:  ');end;
end;readln;clrscr;
gotoxy(30,30);write('devam etmek istiyormusunuz?(e/h)...:');readln(sec3);
if sec3='h' then exit;if sec3='e' then goto devam;
readln;
end.

kadir şirin ve safa yıldırım
kadirsirin_08@hotmail.com ve marco_pasa_1907@hotmail.com