Сабаќ жоспары «Бекітемін»
жүктеу/скачать 0.68 Mb.
|
- Бұл бет үшін навигация:
- 2 – деңгей.
| Компьютермен жұмыс
Деңгейлік тапсырма 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. Боялған тең трапецияға іштей шеңбер, ал оның ішіне тең қабырғалы үшбұоыш салуға программа құр. жүктеу/скачать 0.68 Mb. Достарыңызбен бөлісу:
|