Урок по теме: «Введение в графику в языке программирования Turbo Pascal» Автор: Казначей, учитель информатики

МЕНЮ

Графический режим
Цвета и заполнения
Незаполненные фигуры
Заполненные фигуры
Практическое

Графический режим

Uses Graph; - подключение графического режима
InitGraph (Gd, Gm, 'way'); -

Цвета и заполнения

SetBkColor (N); - установить цвет N для пикселей фона.

Незаполненные фигуры

Circle (X, Y, R); - построить окружность с центром X,

Заполненные фигуры

SetFillStyle(P, N); - процедура установки орнамента Р=0,1, .., 12 и

НАРИСОВАТЬ ПАРОВОЗ

Практическое задание

РЕШЕНИЕ

Urok-informatiki.ru

«ПАРОВОЗ»

Program paravozzz;
uses crt, graph;
var gd,gm,i,x,y:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
if graphresult<>grok then halt(1);
paravoz;
koleso;
readln; end.

procedure paravoz;
begin
setfillstyle(1,4);
bar3d(100,280,280,380,25,true);
setfillstyle(1,5);
bar3d(280,180,400,380,25,true);
setcolor(1);
setfillstyle(1,yellow);
bar3d(300,200,380,260,0,false);
setfillstyle(1,12);
bar3d(120,300,260,360,0,false);
rectangle(300,285,380,370);
end;

procedure

Контрольные вопросы и задания.

1. Как называется модуль, который подключает графический редактор?