Головна | Реєстрація | Вхід | RSS | Четвер, 03.28.2024, 10:35 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Графічний редактор
Uses graph,crt; Var dv,mv,x,y,i:integer; c:char; Begin dv:=detect; initgraph(dv,mv,''); cleardevice; x:=320; y:=240; i:=2; while c<>#13 do begin c:=readkey; case c of #72: y:=y-1; #80: y:=y+1; #75: x:=x-1; #77: x:=x+1; 'd': begin x:=x+10; end; 'a': begin x:=x-10; end; 'w': begin y:=y-10; end; 's': begin y:=y+10; end; 'f': begin x:=x-1; y:=y-1; end; 'g': begin x:=x+1; y:=y-1; end; 'v': begin x:=x-1; y:=y+1; end; 'b': begin x:=x+1; y:=y+1; end; 'h': begin x:=x-10; y:=y-10; end; 'j': begin x:=x+10; y:=y-10; end; 'n': begin x:=x-10; y:=y+10; end; 'm': begin x:=x+10; y:=y+10; end; '3': begin i:=3; end; '2': begin i:=2; end; '4': begin i:=4; end; '5': begin i:=5; end; '6': begin i:=6; end; '7': begin i:=7; end; '8': begin i:=8; end; '9': begin i:=9; end; end; putpixel(x,y,i); end; closegraph; end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |