Урок по теме: «Введение в графику в языке программирования Turbo Pascal» Автор: Казначей, учитель информатики Urok-informatiki.ru
Cлайд 2
Urok-informatiki.ru
Cлайд 3
Urok-informatiki.ru
Cлайд 4
1 7 6 5 4 3 2 8 9 0 Urok-informatiki.ru
Cлайд 5
Urok-informatiki.ru
Cлайд 6
Urok-informatiki.ru
Cлайд 7
Urok-informatiki.ru
Cлайд 8
Program paravozzz; uses crt, graph; var gd,gm,i,x,y:integer; begin gd:=detect; initgraph(gd,gm,''); if graphresultgrok 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; Urok-informatiki.ru
Cлайд 9
1. Как называется модуль, который подключает графический редактор? 2. Номер наибольшего режима для текущего драйвера возвращает функция… . 3.Что делает процедура: Line (x1, y1, x2, y2)? 4. Какая процедура строит параллелепипед с заполненной передней гранью? 5. Используя какой прием можно нарисовать «полумесяц»? 6. Нарисовать на экране треугольники при помощи цикла всеми возможными способами. Домашнее задание. 1. Написать программу, чтобы на экране выводился фрагмент тетради в клетку, используя циклические операции. Urok-informatiki.ru