problem sa grafikom
Pokusao sam da napravim program sa kojim se uz pomoc tastera a,s,d,f pomjera pravougaonik po ekranu, medjutim kada ga startujem ne vidi se nikakav pravougaonik! zna li neko u cemu je problem, sigurno je nesto jednostavno, ali ja nikako ne mogu da shvatim sta. Evo kako program izgleda:
program grafika;
uses graph,crt;
var drajver,mode,x,y,ind:integer;
znak:char;
procedure pomjeranje;
begin
If (ind=97) or (ind=115) or (ind=100) or (ind=119) then
Case ind of
100: x:=x+1;
97: x:=x-1;
119: y:=y-1;
115: y:=y+1;
end;
end;
procedure inc;
begin
drajver:=detect;
initgraph (drajver,mode,'');
x:=50;
y:=50;
end;
Procedure ucitavanje;
begin
znak:=readkey;
ind:=ord(znak);
end;
begin
inc;
repeat
clrscr;
ucitavanje;
pomjeranje;
line (x,y,x+100,y);
line (x,y,x,y+10);
line (x+100,y,x+100,y+10);
line (x,y+10,x+100,y+10);
until ind=27;
closegraph;
readln;
end.
 |  |
 |
