Question

Potrzebuje prosty programik graficzny w Turbo pascal 7.
Ważne aby program był rozbudowany ale z prostym i łatwym kodem.

Answer 1

Dwie klepsydry
program cw8;
uses graph;
const
punkty:array[1..4] of PointType =((x:75;y:50),(x:120;y:150),(x:75;y:150),(x:120;y:50));
var
sterownik,tryb:integer;
begin
sterownik:=detect;
Initgraph (sterownik,tryb,'c:\progra~1\tp\bgi'); {ustaw ściężkę gdzie masz turbo pascala}
if GraphResult <0 then halt(1);
Setviewport(10,10,250,340,true);
setfillstyle (hatchfill,blue);
fillpoly(4,punkty);
setviewport(270,10,500,340,true);
setfillstyle(Ltslashfill,red);
FillPoly(4,punkty);
readln;
CloseGraph
end.
Program pokazuje migotanie dwoch kółek
program cw300;
uses graph,crt;
var
sterownik,tryb:integer;
begin
randomize;
sterownik:=detect;
Initgraph (sterownik,tryb,'c:\progra~1\tp\bgi');
if GraphResult <0 then halt(1);
repeat
setfillstyle(hatchfill,red);
Fillellipse(400,200,90,90);
sound(random(626));
delay(random(700));
setfillstyle(hatchfill,blue);
FillEllipse(400,200,90,90);
sound(random(526));
delay(random(600));
nosound;
until keypressed;
readln;
closegraph
end.