паскаль как пользоваться

Ответ от Дима[гуру]
Вот готовая прога на Паскале с использованием модуля Graph
Program qraph;
uses crt,graph;
var x,y,z,a,i:integer;
t:string;
c:boolean;
label XY;
begin
randomize;
initgraph(x,y,'');
setfillstyle(0,4);
setbkcolor(5);
z:=10; x:=80; y:=30;
for i:=1 to 100 do
begin
Clearviewport;
z:=random(400);
a:=random(300);
line(x+z,y+a,x+z,(y+60)+a);
line(x+z,y+a,(x+50)+z,y+a);
line((x+50)+z,y+a,(x+50)+z,(y+60)+a);
line((x+50)+z,(y+60)+a,(x+110)+z,(y+60)+a);
line((x+110+z),(y+60)+a,(x+110)+z,(y+110)+a);
line((x+110)+z,(y+110)+a,(x+50)+z,(y+110)+a);
line((x+50)+z,(y+110)+a,(x+50)+z,(y+170)+a);
line((x+50)+z,(y+170)+a,x+z,(y+170)+a);
line(x+z,(y+170)+a,x+z,(y+110)+a);
line(x+z,(y+110)+a,(x-60)+z,(y+110)+a);
line((x-60)+z,(y+110)+a,(x-60)+z,(y+60)+a);
line((x-60)+z,(y+60)+a,x+z,(y+60)+a);
delay(5535);
setcolor(Yellow);
end;
t:='Pascal';
outtextxy(x+z+7,y+a+85,t);
readln;
closegraph;
end.
Здесь некоторые функции модуля Graph:

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]