Carmelova1
Nowy
Dołączył: 24 Maj 2012
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Czw 17:23, 24 Maj 2012 Temat postu: GRAFIKA W TURBO PASCALU |
|
|
Witam. Napisałam program, który rysuje prostokąt a w nim kółka co przypomina dywan. Program się kompiluje ale nie działa, ponieważ po nacisnięciu przycisku RUN program jedynie 'mrugnie" i nic wiecej się nie dzieje. Prosze o pomoc. Moje GG 8642430 bądź e-mail [link widoczny dla zalogowanych]
kod:
program Grafika0;
uses Crt,Graph;
var r,sterownik,tryb,xs,ys,e,f,g:integer;
begin {Grafika0}
sterownik:=0;
InitGraph(sterownik,tryb,'z:\bgi');
if GraphResult<>0 then begin
Writeln('Blad grafiki');
Halt
end;
r:=35;
xs:=getmaxx div 2;
ys:=getmaxy div 2;
ys:=ys-5*r;
for f:=0 to 4 do
begin
setcolor(3);
ys:=xs+f*r*2;
ys:=xs-f*r*2;
rectangle (xs-6*r, ys-r, xs+6*r, ys+r);
setcolor(5);
for e:=0 to 5 do
circle(xs-r*(5-e*2),ys,r);
setcolor(4);
for e:=0 to 4 do
circle(xs-r*(4-e*2), ys,r);
end;
Delay(2000);
CloseGraph
end.
Post został pochwalony 0 razy
|
|