ciary v pascale

tomasso

potrebujem urobit nieco take, ale nejako mi nejde v pascale grafika...nemohol by mi to niekto urobit, ale potrebujem to mat uz dnes do vecera.

neppo

1)

Kód: Vybrať všetko

program grafika1;
uses crt,graph;
var GD,GM,i,x,y,f,xk,yk:integer;

begin

GD:=detect;
initgraph (GD,GM,'D:\BP\BGI');
cleardevice;
randomize;
y:=0;
yk:=480;
x:=320;

repeat

delay(20);
f:=random(16);
xk:=random (640);
setcolor (f);
line (x,y,xk,yk);

until keypressed;

end.

2)

Kód: Vybrať všetko

program grafika1;
uses crt,graph;
var GD,GM,i,x,y,f,xk,yk:integer;

begin

GD:=detect;
initgraph (GD,GM,'D:\BP\BGI');
cleardevice;
randomize;
y:=0;
yk:=480;

repeat

delay(20);
f:=random(16);

x:=random (640);
xk:=random (640);
setcolor (f);
line (x,y,xk,yk);

until keypressed;

end.

3)

Kód: Vybrať všetko

program grafika1;
uses crt,graph;
var GD,GM,i,z,x,y,f,xk,yk:integer;

begin

GD:=detect;
initgraph (GD,GM,'d:\BP\BGI');
cleardevice;
randomize;

repeat
i:=random(4);
if i>0 then begin
   if i>1 then begin
      if i>2 then begin
         xk:=random(640);
         yk:=random(480);
      end
      else begin
         xk:=random(640);
         yk:=random(480);
      end;
   end
   else begin
      xk:=random(640);
      yk:=random(480);
   end;
end
else begin
   xk:=random (640);
   yk:=random(480);
end;

delay(2);
f:=random(6)+1;
x:=320;
y:=240;
setcolor (f);
line (x,y,xk,yk);
until keypressed;

end.

cesta k suboru sa samozrejme asi bude lisit...