Деңгейлік тапсырмалар

1 -деңгей. Төмендегі суреттерді салуға жазылған программаның қатесін тауып, толықтырып жаз.

№1. Uses Graph, Crt;

Var GraphDriver, Graphmode: integer;

Begin Clrscr;

GraphDriver:= 0: InitGraph (GraphDriver, GraphMode, ' ');

If GraphResult <> 0 then

Begin Writeln; Writeln, Halt, End;

Setbcolor(2); Setcolor(4);Cirkle(250,150,50);

Setfill style(1,3); floodfill(250,210,2); Setcolor(14);

Line(250,50,175,225); line(175,75,325);

Readln; chseckapn; End.

№2. Uses Graph, Crt;

Var GraphDriver, Graphmode: integer;

Begin Clrscr; GraphDriver : = 0;

InitGraph (GraphDriver, GraphMode, ' ');

If GraphResult <> 0 then

Begin Writeln; Writeln; Halt;

Setcolor(14); setbcolor(6);

Line(150,100,170,300);Line(150,100,350,300);

Setbkcolor(5); Circie(250,200,50);Floodfill(250,200,5)

Srtfillstyle(3,4); readln;end;

№3. Uses Graph, Crt; Var GraphDriver, Graphmode: integer,

Begin Clrscr; GraphDriver; = 0;

InitGraph (GraphDriver, GraphMode, ' ');

If GraphResult <> 0 then Begin Writeln; Writeln; Halt;

setcolor(1);Setcolor(15);

Line(250,5,_,475,200);Line(200,50,25,300);

Setcolor(3);

Circle(250,200,100);

Setfillstyle (1,3) floodfill(250,200,3);

Readln; gloseckapk; end.

2-деңгей.

№1. Боялған тең бүйірлі үшбұрыштың ішіне боялған тіктөртбұрышты, ал оның ішіне

боялған шеңберді салуға программа құр.

№2. Боялған тікбұрышты үшбұрышқа боялған іштей және сырттай шеңберлерді салуға

программа құр.

№3. Боялған тең бүйірлі трапецияға іштей шеңбер, ал оның ішіне тең қабырғалы үшбұрыш

салуға программа құр.