Сабаќ жоспары «Бекітемін»



бет61/79
Дата18.05.2022
өлшемі0.68 Mb.
#457054
түріСабақ
1   ...   57   58   59   60   61   62   63   64   ...   79
0000a2be-4a2c6420

Компьютермен жұмыс
Деңгейлік тапсырма
1 – деңгей. Төмендегі суреттерді салуға жазылған программаның қатесін тауып,
толықтырып жаз
1. UsesGraph, 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); Setbcolor(14);
Line(250,50,175,225);line(175,75,325);
Readln;closeckapn; End.

2. Uses Graph, Crt;


Var GraphDriver, GraphMode:integer;
Begin ClrScr; GraphDriver:=0;
InitGraph(GraphDriver,GraphMode,’’);
If GraphResult <> 0 then
Begin Writeln; Writeln;Halt;End;
Setbcolor(14); setcolor(6);
Line (150,100,170,300);lin(150,100,350,300);
Setbkolor(5); Circie(250,500,50);Flooclfill(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;End;
setbcolor(1); setcolor(15);
Line (250,50,475,200);Line(200,50,25,300);
Setcolor(3);
Circle(250,200,100,);
Srtfill style(1,3) floodfill(250,200,3);
Readln; gloseckapk; end.


2 – деңгей. Төмендегі суреттерге программа құр.


3 – деңгей.
1. Боялған тең бүйірлі үшбұрыштың ішіне боялған тіктөртбұрышты, ал оның ішіне боялған шеңберді салуға программа құр.
2. Боялған тіктөртбұрышты үшбұрышқа боялған іштей және сырттай шеңберлерді салуға программа құр.
3. Боялған тең трапецияға іштей шеңбер, ал оның ішіне тең қабырғалы үшбұоыш салуға программа құр.




Достарыңызбен бөлісу:
1   ...   57   58   59   60   61   62   63   64   ...   79




©dereksiz.org 2024
әкімшілігінің қараңыз

    Басты бет