Слайд 4
Пример учебно – исследовательской и проектной работы ученика
(нарисовать машину)
Код программы:
program ka;
uses GraphABC ;
var x,y:integer;
begin
Circle(200,250,30);
Circle(400,250,30);
line(230,250,370,250);
line(130,250,170,250);
line(430,250,470,250);
line(130,250,130,185);
line(130,185,470,185);
line(470,185,470,250);
Rectangle(200,110,390,185);
Rectangle(110,250,160,255);
Rectangle(470,220,490,250);
line(290,110,290,185);
end.
Слайд 6
Нарисовать домик
Код программы:
program ka;
uses GraphABC ;
var i:integer;
begin
Rectangle(210,160,390,290);
line(150,238,290,50);
line(290,50,450,230);
Rectangle(240,200,280,240);
Rectangle(300,200,370,240);
line(335,200,335,240);
line(260,200,260,240);
Rectangle(285,110,300,140);
line(340,80,340,109);
line(350,80,350,116);
while i
do begin
line(i,250,i,300);
i:=i+10;
end;
end.