GÖZDE
Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
| Konu: Şekillerin Alan Ve Çevre Hesabı Cuma Haz. 06 2008, 12:41 | |
| uses wincrt; var ucevre,p,dcevre,dalan,k,kcevre,kalan,i:integer; s,a:string; begin a:='Nazm 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, ; write('KARE'); gotoxy(20, ; write('D˜KD™RTGEN'); gotoxy(52, ; 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. | |
|