«Введение в графику в языке программирования Turbo Pascal»
Урок по теме: «Введение в графику в языке программирования Turbo Pascal» Автор: Халимова Толкын Абдугалиевна 1 7 6 5 4 3 2 8 9 0 10 11 15 14 13 12 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 koleso;
begin
x:=160;
for i:=1 to 3 do
begin
setfillstyle(1,1);
fillellipse(x,380,40,40);
setfillstyle(1,3);
fillellipse(x,380,30,30);
x:=x+100;
end;
end; 1. Как называется модуль, который подключает графический редактор? 2. Номер наибольшего режима для текущего драйвера возвращает функция… .3.Что делает процедура: Line (x1, y1, x2, y2)?4. Какая процедура строит параллелепипед с заполненной передней гранью?5. Используя какой прием можно нарисовать «полумесяц»?6. Нарисовать на экране треугольники при помощи цикла всеми возможными способами. Домашнее задание.1. Написать программу, чтобы на экране выводился фрагмент тетради в клетку, используя циклические операции.