- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Cабаққа қолданатын презентация.сыныптар үшін
Содержание
- 1. Cабаққа қолданатын презентация.сыныптар үшін
- 2. МЕНЮ Графическалық режим Түс толтыру Толтырылмаған фигуралар толтырылған фигуралар Практикалық жұмыс
- 3. Графикалық режимUses Graph; -
- 4. Түс толтыруSetBkColor (N); - N түс орнату
- 5. Толықтырылмаған фигураларCircle (X, Y, R); - шеңбер
- 6. Толтырылған фигураларSetFillStyle(P, N); - процедура Р=0,1, ..,
- 7. ПАРОВОЗПрактикалық жұмысРЕШЕНИЕ
- 8. «ПАРОВОЗ»Program paravozzz;uses crt, graph;var gd,gm,i,x,y:integer;begingd:=detect;initgraph(gd,gm,'');if graphresultgrok then halt(1);paravoz;koleso; readln; end.procedure paravoz;beginsetfillstyle(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;beginx:=160;for i:=1 to 3 dobeginsetfillstyle(1,1);fillellipse(x,380,40,40);setfillstyle(1,3);fillellipse(x,380,30,30);x:=x+100;end;end;МЕНЮ
МЕНЮ Графическалық режим Түс толтыру Толтырылмаған фигуралар толтырылған фигуралар Практикалық жұмыс
Слайд 2МЕНЮ
Графическалық режим
Түс толтыру
Толтырылмаған фигуралар
толтырылған фигуралар
Практикалық
жұмыс
Слайд 3Графикалық режим
Uses Graph; - графикалық режим қосу
InitGraph
(Gd, Gm, 'way'); - мәтіндік режимнен графикалық режимге өту
Gd - графикалық драйвер аты
Gm – монитордағы графикалық режим аты
'way' - DOS графикалық режимге жол
Gd:=Detect; Gd:=0;
GetMaxMode; - функция
GetMaxX; - Х,
GetMaxY; - Y.
CloseGraph; - графикалық режимде жұмыс тоқтату.
RestoreCrtMode; - қайта графикалық режимге қосылу
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 координаталарындағы түсті қайырады.
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
МЕНЮ
Слайд 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координасындағы нүктелер бойынша төртбұрыш салу (диогналы бойынша)
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); -жазық
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); -жазық
МЕНЮ
Слайд 8«ПАРОВОЗ»
Program paravozzz;
uses crt, graph;
var gd,gm,i,x,y:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
if graphresultgrok 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;
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;
МЕНЮ
