Урок №8

Проектирование собственного рисунка

План:

1. Практическая работа «Создание собственного рисунка».

Примерные программы рисунков.

Budil

program Budil;

uses graph;

var

grDriver:integer;

grMode:integer;

Begin

grDriver:=Detect;

InitGraph(grDriver,grMode,'');

SetBkColor(3);

SetColor(5);

Circle(250,180,60);

Circle(270,180,60);

Circle(210,235,7);

Circle(310,235,7);

Circle(260,180,7);

Circle(260,115,10);

SetColor(11);

Line(260,180,260,140);

Line(260,180,270,150);

Circle(260,230,5);

Circle(260,125,5);

Circle(230,180,5);

Circle(290,180,5);

readln;

End.

Mashina

program Zad_1;

uses graph;

var

grDriver:integer;

grMode:integer;

Begin

grDriver:=Detect;

InitGraph(grDriver,grMode,'');

SetColor(6);

Line(160,80,40,120);

Line(40,120,40,180);

Line(40,180,80,180);

Circle(140,180,30);

Line(200,180,360,180);

Circle(420,180,30);

Line(480,180,520,180);

Line(520,120,520,180);

Line(440,120,520,120);

Line(400,80,440,120);

Line(160,80,400,80);

Bar(180,90,260,120);

Bar(300,90,380,120);

Line(480,80,480,120);

readln;readln;

End.

Mixa

program mixa;

uses graph;

var

grDriver:integer;

grMode:integer;

begin

grDriver:=Detect;

InitGraph(grDriver,grMode,'');

SetColor(5);

line(240,110,260,110);

SetColor(7); circle(250,180,60);

circle(200,235,15);

circle(300,235,15);

circle(250,90,30);

circle(180,150,15);

circle(320,150,15);

circle(230,55,10);

circle(270,55,10);

circle(235,85,5);

circle(265,85,5);

circle(250,100,3);

readln;

end.

Урок №9

Оператор условного перехода

План:

1. Правила записи оператора условного перехода.

2. Полная и неполная форма.

3. Практическая работа «Решение задач с использованием условного оператора»