Рабочие листы
к вашим урокам
Скачать
1 слайд
«Turbo Pascal графикалық режим»
§8 71-87беттер
Тест орындау 88-92беттер аралығында
2 слайд
МЕНЮ
Графическалық режим
Түс толтыру
Толтырылмаған фигуралар
толтырылған фигуралар
Практикалық жұмыс
3 слайд
Графикалық режим
Uses Graph; - графикалық режим қосу
InitGraph (Gd, Gm, 'way'); - мәтіндік режимнен графикалық режимге өту
Gd - графикалық драйвер аты
Gm – монитордағы графикалық режим аты
'way' - DOS графикалық режимге жол
Gd:=Detect; Gd:=0;
GetMaxMode; - функция
GetMaxX; - Х,
GetMaxY; - Y.
CloseGraph; - графикалық режимде жұмыс тоқтату.
RestoreCrtMode; - қайта графикалық режимге қосылу
МЕНЮ
4 слайд
Түс толтыру
SetBkColor (N); - N түс орнату әзірше қара түс.
Setcolor (N); - N түс орнату әзірше ақ түс
PutPixel (X, Y, N); - N түс X, Y координаталары арқылы нүкте салу
FloodFill (X, Y, N) - N түс фигура ішін бояу.
GetPixel (X, Y); - X, Y координаталарындағы түсті қайырады.
uses Graph;
var i, Gd, Gm: Integer;
BEGIN
Gd:=VGA; Gm:=VGAHi; InitGraph (Gd,Gm,'..\bgi');
If GraphResult=grOk
then begin
For i:=0 to 1000 do
PutPixel (random(640),random(480),random(15)+1);
ReadLn
end
END.
1
7
6
5
4
3
2
8
9
0
10
11
15
14
13
12
МЕНЮ
5 слайд
Толықтырылмаған фигуралар
Circle (X, Y, R); - шеңбер салу X, Y координатасында R радиусымен.
Line (x1, y1, x2, y2); - x1, y1 координатасына бастапқы нүкте x2, y2 кординатасында соңғы нүкте сызық салу.
Rectangle (x1, y1, x2, y2); - сол жақ жоғары x1, y1 координатасында және оң жақ төменгі x2, y2координасындағы нүктелер бойынша төртбұрыш салу (диогналы бойынша)
uses Graph;
const CenterX=320; CenterY=240;
var i, Gd, Gm: Integer;
BEGIN
Gd:=VGA; Gm:=VGAHi;
InitGraph (Gd,Gm,'..\bgi');
If GraphResult=grOk then
For i:=0 to 23 do
Circle (CenterX,CenterY,i*10);
END.
МЕНЮ
6 слайд
Толтырылған фигуралар
SetFillStyle(P, N); - процедура Р=0,1, .., 12 N түс фигура үшін .
Bar (x1, y1, x2, y2); төртбұрыш
Bar3d (x1, y1, x2, y2, d, t);- параллелепипед
FillEllipse (X, Y, Rx, Ry); - эллипс
Sector(x,y,a1,a2,Rx,Ry); - эллипс секторы.
PieSlice(x, y, a1,a2,R); - шеңбер секторы
FillPoly (N, M); -жазық
МЕНЮ
7 слайд
паровоз
Практикалық жұмыс
РЕШЕНИЕ
8 слайд
«ПАРОВОЗ»
Program paravozzz;
uses crt, graph;
var gd,gm,i,x,y:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
if graphresult<>grok then halt(1);
paravoz;
koleso;
readln; end.
procedure paravoz;
begin
setfillstyle(1,4);
bar3d(100,280,280,380,25,true);
setfillstyle(1,5);
bar3d(280,180,400,380,25,true);
setcolor(1);
setfillstyle(1,yellow);
bar3d(300,200,380,260,0,false);
setfillstyle(1,12);
bar3d(120,300,260,360,0,false);
rectangle(300,285,380,370);
end;
procedure koleso;
begin
x:=160;
for i:=1 to 3 do
begin
setfillstyle(1,1);
fillellipse(x,380,40,40);
setfillstyle(1,3);
fillellipse(x,380,30,30);
x:=x+100;
end;
end;
МЕНЮ
Рабочие листы
к вашим урокам
Скачать
Бұл кітапта алгоритм және программа туралы бастапқы түсініктер бере отырып, кейбір есептерге программа құрылып көрсетілді.
Компьютер- тапсырмаңызды орындауға дайын тұратын әмбебап есептеу жүйесі. Бірақ сіздің тапсырмаңызды орындау үшін машинаға программаны енгізу керек. Программа дегеніміз машина тіліне аударылған сіздің есеп-бұйрығыңыз, өйткені әзірше машина кәдімгі адам тілін түсіне алмайды.
Программа клавишті пульт перфокарта, магнитті дискілер арқылы компьютерге енгізеді. Компьютер программада көрсетілген іс-әрекеттерді орындайды. Программа қатесіз жасалу керек, белгілі ережелер сақталмаса, машина ондай программаны орындамайды.
6 626 334 материала в базе
Настоящий материал опубликован пользователем Айткалиева Баян Сабыргалиевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
600 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Мини-курс
3 ч.
Мини-курс
4 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.