Programalama > PASCAL

uses crt;
var
ucevre,p,dcevre,dalan,k,kcevre,kalan,i:integer;
s,a:string;
begin
a:='Nazm DEM˜R (Bilgisayar Teknolojisi Ve Programlama)';
clrscr;
textcolor(green);
for i:=1 to 15 do
begin
gotoxy(i,1);
write('-');
delay(50);
end;
for i:=1 to 7 do
begin
gotoxy(15,i);
write('-');
delay(70);
end;
for i:=1 to 15 do
begin
gotoxy((15-i),7);
write('-');
delay(50);
end;
for i:=1 to 7 do
begin
gotoxy(1,(7-i));
write('-');
delay(70);
end;
for i:=20 to 40 do
begin
gotoxy(i,1);
write('-');
delay(50);
end;
for i:=1 to 7 do
begin
gotoxy(40,i);
write('-');
delay(70);
end;
for i:=1 to 20 do
begin
gotoxy((40-i),7);
write('-');
delay(50);
end;
for i:=1 to 7 do
begin
gotoxy(20,(7-i));
write('-');
delay(70);
end;
for i:=48 to 60 do
begin
gotoxy(i,1);
write('-');
delay(50);
end;
for i:=1 to 7 do
begin
gotoxy((61-i),i);
write('-');
delay(70);
end;
for i:=1 to 7 do
begin
gotoxy((53-i),(7-i));
write('-');
delay(70);
end;
begin
textcolor(white);
gotoxy(1,8);
write('KARE');
gotoxy(20,8);
write('D˜KD™RTGEN');
gotoxy(52,8);
write('š€GEN');
gotoxy(1,9);
write('uzunluk --->');
gotoxy(1,10);
write('alan    --->');
gotoxy(1,11);
write('‡evre   --->');
gotoxy(20,9);
write('1. uzunluk --->');
gotoxy(20,10);
write('2. uzunluk --->');
gotoxy(20,11);
write('alan       --->');
gotoxy(20,12);
write('‡evre      --->');
gotoxy(47,9);
write('1. uzunluk --->');
gotoxy(47,10);
write('2. uzunluk --->');
gotoxy(47,11);
write('3. uzunluk --->');
gotoxy(47,12);
write('‡evre      --->');
gotoxy(13,9);
readln(i);
kcevre:=i*4;
kalan:=i*i;
gotoxy(35,9);
readln(i);
gotoxy(35,10);
readln(k);
dcevre:=2*(k+i);
dalan:=k*i;
gotoxy(62,9);
readln(i);
gotoxy(62,10);
readln(k);
gotoxy(62,11);
readln(p);
ucevre:=p+k+i;
textcolor(10);
gotoxy(13,10);
write(kalan);
gotoxy(13,11);
write(kcevre);
gotoxy(35,11);
write(dalan);
gotoxy(35,12);
write(dcevre);
gotoxy(62,12);
write(ucevre);
gotoxy(12,17);
end;
for i:=1 to 51 do
begin
textcolor(white);
s:=copy(a,i,1);
write(s:1);
delay(100);
end;
readln;
end.

nazım demİr
demirnazim@hotmail.com