![]() |
robot
uses crt;
var i:integer; tus:char; begin textcolor(blue); textbackground(yellow); clrscr; for i:=1 to 10 do begin gotoxy(40-i,i+12); write('.'); end; for i:=1 to 10 do begin gotoxy(39+i,i+23); write('.'); end; for i:=1 to 10 do begin gotoxy(40+i,i+12); write('.'); end; for i:=1 to 10 do begin gotoxy(41-i,i+23); write('.'); end; for i:=1 to 13 do begin gotoxy(40,i+10); write('.'); end; for i:=1 to 7 do begin gotoxy(36+i,1+10); write(#2); end; while tus<>'9' do begin repeat tus:=upcase(readkey); until tus in ['1','2','3','4','5','6','7','8','9',#75]; if tus='1' then begin for i:=1 to 10 do begin gotoxy(40-i,i+12); write(' '); end; for i:=1 to 15 do begin gotoxy(i+24,1+12); write('.'); end; end; if tus='2' then begin for i:=1 to 15 do begin gotoxy(i+24,1+12); write(' '); end; for i:=1 to 10 do begin gotoxy(40-i,i+12); write('.'); end; end; if tus='3' then begin for i:=1 to 10 do begin gotoxy(40+i,i+12); write(' '); end; for i:=1 to 15 do begin gotoxy(40+i,1+12); write('.'); end; end; if tus='4' then begin for i:=1 to 15 do begin gotoxy(40+i,1+12); write(' '); end; for i:=1 to 10 do begin gotoxy(40+i,i+12); write('.'); end; end; if tus='5' then begin for i:=2 to 10 do begin gotoxy(41-i,i+23); write(' '); end; for i:=1 to 15 do begin gotoxy(40-i,1+23); write('.'); end; end; if tus='6' then begin for i:=1 to 10 do begin gotoxy(41-i,i+23); write('.'); end; for i:=1 to 15 do begin gotoxy(40-i,1+23); write(' '); end; end; if tus='7' then begin for i:=1 to 10 do begin gotoxy(39+i,i+23); write(' '); end; for i:=1 to 17 do begin gotoxy(39+i,1+23); write('.'); end; end; if tus='8' then begin for i:=1 to 10 do begin gotoxy(39+i,i+23); write('.'); end; for i:=2 to 17 do begin gotoxy(39+i,1+23); write(' '); end; end; if tus='9' then begin exit; end; end; readln(); end. ziya ahmedsoy [Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....] |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 11:39 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.