Uses GRAPH;-подключение модуля {обязательно.пишется после program<название>}
INITGRAPH(d,m,' ');- инициализация графического режима {обязательно}
line(x1,y2,x2,y2);-линия {например line (40,10,300,20);}
rectangle(x1,y1,x2,y2);-прямоугольник {x1,y1-координата левого верхнего угла,x2,y2-координата ...
Найдено 2 результата
- 13.05.2015 12:41:01
- Форум: Обучение Free Pascal
- Тема: графика и модуль GRAPH
- Ответы: 20
- Просмотры: 40206
- 13.05.2015 11:47:34
- Форум: Обучение Free Pascal
- Тема: ракета(да она ещё и летает!)!
- Ответы: 21
- Просмотры: 46995
ракета(да она ещё и летает!)!
program graf_raketa;
uses crt,graph;
var
d,m,x,y:integer;
k:char;
procedure raketa(x,y:integer);
begin
circle(x,y-15,10);
circle(x,y+15,10);
rectangle(x-20,y-40,x+20,y+40);
line(x-20,y-40,x,y-70);
line(x,y-70,x+20,y-40);
end;
begin
INITGRAPH(d,m,' ');
x:=500;
y:=700;
raketa(x,y);
repeat
setcolor(3 ...
uses crt,graph;
var
d,m,x,y:integer;
k:char;
procedure raketa(x,y:integer);
begin
circle(x,y-15,10);
circle(x,y+15,10);
rectangle(x-20,y-40,x+20,y+40);
line(x-20,y-40,x,y-70);
line(x,y-70,x+20,y-40);
end;
begin
INITGRAPH(d,m,' ');
x:=500;
y:=700;
raketa(x,y);
repeat
setcolor(3 ...