Paskalprogramm Brückenproblem
program Punkt;
uses graph,crt;
var i,x1,y1,f1,v1,x2,y2,f2,v2,tv,mv:integer;
procedure loeschepunkt(a,b:integer);
begin
setfillstyle(1,0);
bar(a-31,b-10,a+21,b+10);
end;
procedure malepunkt(a,b,f:integer);
begin
setfillstyle(f,f);
pieslice(a,b,f,360,10);
end;
procedure zurueck(var x,v,f:integer;y:integer);
begin
loeschepunkt(x,y);
x:=100;
randomize;v:=random(10)+1;
f:=f+1;
if f12 then f:=1;
end;
begin
v1:=5;
tv:=0;mv:=0;i:=0;
x1:=100;x2:=100;y1:=180;y2:=280;
f1:=2;f2:=5;
randomize;v2:=random(10)+1;
initgraph(tv,mv,'');
cleardevice;
line(205,200,395,200);
line(205,240,395,240);
repeat;
i:=i+1;
if trunc(i/v1)=i/v1 then begin
x1:=x1+2;
loeschepunkt(x1,y1);
if (x1180) and (x1<410) then y1:=220 else y1:=180;
malepunkt(x1,y1,f1);
end;
if trunc(i/v2)=i/v2 then begin
x2:=x2+2;
loeschepunkt(x2,y2);
if (x2180) and (x2< 430) then y2:=225 else y2:=250;
malepunkt(x2,y2,f2)
end;
if x1560 then zurueck(x1,v1,f1,y1);
delay(5);
if x2560 then begin zurueck(x2,v2,f2,y2);v2:=v2+1;end;
until i20000;
closegraph;
end.
