Programalama > PASCAL


Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2021 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.