ЖИ көмекші
Қауіпсіз төлем
1 жыл бойы шексіз жүктеңіз
Pascal бағдарламалау тілінде графикалық суреттерді салу
#1 слайд
Дайындаған: Информатика пәнінің мұғалімі
Нагашбаева Гулзира
«Pascal программалау
тілінде графикалық
суреттерді салу»
1 слайд
Дайындаған: Информатика пәнінің мұғалімі Нагашбаева Гулзира «Pascal программалау тілінде графикалық суреттерді салу»
#2 слайд
Х
І. Ұйымдастыру
ІІ. Сабақтың кезеңдері:
1-кезең: Сергіту сәті.1-кезең: Сергіту сәті.
2-кезең: Еске 2-кезең: Еске
түсірутүсіру
ІІІ. Оқушыларды бағалау
ІV. Оқушылардың сұрақтарына жауап
беру.Үй жұмысы.
V. Сабақты аяқтау.
3-кезең: Шығармашылық 3-кезең: Шығармашылық
тапсырматапсырма
6-кезең: “Қатесін 6-кезең: “Қатесін
тап!”тап!”
5-кезең: Тапсырма нәтижесі5-кезең: Тапсырма нәтижесі
4-кезең: Компьютермен жұмыс4-кезең: Компьютермен жұмыс
2 слайд
Х І. Ұйымдастыру ІІ. Сабақтың кезеңдері: 1-кезең: Сергіту сәті.1-кезең: Сергіту сәті. 2-кезең: Еске 2-кезең: Еске түсірутүсіру ІІІ. Оқушыларды бағалау ІV. Оқушылардың сұрақтарына жауап беру.Үй жұмысы. V. Сабақты аяқтау. 3-кезең: Шығармашылық 3-кезең: Шығармашылық тапсырматапсырма 6-кезең: “Қатесін 6-кезең: “Қатесін тап!”тап!” 5-кезең: Тапсырма нәтижесі5-кезең: Тапсырма нәтижесі 4-кезең: Компьютермен жұмыс4-кезең: Компьютермен жұмыс
#3 слайд
1- кезең: Сергіту сәтінде өткен материалдарды еске түсіру үшін
сұрақтар қойылады. Сыныпқа түгел беріледі.
(5 минут)
3 слайд
1- кезең: Сергіту сәтінде өткен материалдарды еске түсіру үшін сұрақтар қойылады. Сыныпқа түгел беріледі. (5 минут)
#4 слайд
4 слайд
#5 слайд
2-кезең: Еске түсіру кезеңі.Семантикалық карталар
(5 минут).
Program f;
Var v, t, s::integer;
Begin
readln(v, t);
s:=v*t;
Writeln (‘s=‘,s);
End;
3.
Program R;
Var a,b,h, s::integer;
Begin
readln(a,b,h);
s:=(a+b)*h/2;
Writeln (‘s=‘,s);
End;
2.
A=4
B=2
Program p1;
Var A,B,X:Real;
Begin
Readln(A,B);
X:=Sqr(A)+Sqr(b);
Writeln(‘Қосынды=‘,X:2:4);
End.
1.
Автомобильдің
жүрген жолын
табу
Екі нақты
санды қосу
программасы
Жауаптары
Есептері
Р/с Трапецияның
ауданын табу
A=4
B=2
H=8
V=56
B=3
5 слайд
2-кезең: Еске түсіру кезеңі.Семантикалық карталар (5 минут). Program f; Var v, t, s::integer; Begin readln(v, t); s:=v*t; Writeln (‘s=‘,s); End; 3. Program R; Var a,b,h, s::integer; Begin readln(a,b,h); s:=(a+b)*h/2; Writeln (‘s=‘,s); End; 2. A=4 B=2 Program p1; Var A,B,X:Real; Begin Readln(A,B); X:=Sqr(A)+Sqr(b); Writeln(‘Қосынды=‘,X:2:4); End. 1. Автомобильдің жүрген жолын табу Екі нақты санды қосу программасы Жауаптары Есептері Р/с Трапецияның ауданын табу A=4 B=2 H=8 V=56 B=3
#6 слайд
3- кезең: Шығармашылық тапсырма. Үш
тапсырманы таңдап алып, сол тапсырманы
орындайтын программасын дайындау. (15
минут)
3. Шеңбердің ұзындығын анықтайтын программа жаз.
1. Өрнектің мәнін
есептеу программасын
құрыңыз.
2. Turbo Pascal-да мына операторлар орындалғаннан
кейін Z айнымалысы қандай мәнге ие болады?
(N=3964)
4- кезең: Тапсырмаларды компьютерде тексеру.
(10 минут)
3*4,3
)29(
2
A:=N Mod 100;
B:=N Div 100;
Z:=A*100+B;
6 слайд
3- кезең: Шығармашылық тапсырма. Үш тапсырманы таңдап алып, сол тапсырманы орындайтын программасын дайындау. (15 минут) 3. Шеңбердің ұзындығын анықтайтын программа жаз. 1. Өрнектің мәнін есептеу программасын құрыңыз. 2. Turbo Pascal-да мына операторлар орындалғаннан кейін Z айнымалысы қандай мәнге ие болады? (N=3964) 4- кезең: Тапсырмаларды компьютерде тексеру. (10 минут) 3*4,3 )29( 2 A:=N Mod 100; B:=N Div 100; Z:=A*100+B;
#7 слайд
Тапсырманы
орындағанға
кейін
Тапсырманы
орындағанға
дейін
3
6
7 слайд
Тапсырманы орындағанға кейін Тапсырманы орындағанға дейін 3 6
#8 слайд
Мысалы: Cызық салу керек
Program suret;
Uses graph;
Var driver,mode:integer;
Begin
Driver:=detect; initgraph(driver, mode,’c;\tp7\bgi’);
Line(100,150,250,150);
Readln;
Closegraph;
End.
8 слайд
Мысалы: Cызық салу керек Program suret; Uses graph; Var driver,mode:integer; Begin Driver:=detect; initgraph(driver, mode,’c;\tp7\bgi’); Line(100,150,250,150); Readln; Closegraph; End.
#9 слайд
Тапсырмалар
«Бақа"
«Тәж"
9 слайд
Тапсырмалар «Бақа" «Тәж"
#10 слайд
10 слайд
#11 слайд
6- кезең: «Қатесін тап?» (Бағдарламаның қатесін
табу ) (2 минут)
11 слайд
6- кезең: «Қатесін тап?» (Бағдарламаның қатесін табу ) (2 минут)
#12 слайд
Дұрыс жауабы:
Program шеңбер;
Const PI=3.14159;
Var L: Real ;
R: Integer;
Begin
Writeln(‘R-ді енгіз’);
Readln (R);
L:=2*Pi*R;
Writeln(‘L=‘,L:4:2);
End. Дұрыс жауабы:
Program шеңбер;
Const PI=3.14159;
Var L: Real ;
R: Integer;
Begin
Writeln(‘R-ді енгіз’);
Readln (R);
L:=2*Pi*R;
Writeln(‘L=‘,L:4:2);
End.
Радиусы Радиусы RR-ге тең шеңбер берілген. -ге тең шеңбер берілген.
Шеңбердің ұзындығын есептеу Шеңбердің ұзындығын есептеу
программасын құр.программасын құр.
End. End.
Const PI=3.14159;Const PI=3.14159;
Writeln(‘R-Writeln(‘R-ді енгізді енгіз’);’);
Program Program шеңбершеңбер;;
Readln (R);Readln (R);
L:=2L:=2**PiPi**R; R;
BeginBegin
WritWriteeln(‘L=‘,L:4:2);ln(‘L=‘,L:4:2);
Var LVar L: : Real ; Real ;
R: R: Integer;Integer;
6- кезең: «Қатесін тап?» (Бағдарламаның қатесін
табу )
(2 минут)
12 слайд
Дұрыс жауабы: Program шеңбер; Const PI=3.14159; Var L: Real ; R: Integer; Begin Writeln(‘R-ді енгіз’); Readln (R); L:=2*Pi*R; Writeln(‘L=‘,L:4:2); End. Дұрыс жауабы: Program шеңбер; Const PI=3.14159; Var L: Real ; R: Integer; Begin Writeln(‘R-ді енгіз’); Readln (R); L:=2*Pi*R; Writeln(‘L=‘,L:4:2); End. Радиусы Радиусы RR-ге тең шеңбер берілген. -ге тең шеңбер берілген. Шеңбердің ұзындығын есептеу Шеңбердің ұзындығын есептеу программасын құр.программасын құр. End. End. Const PI=3.14159;Const PI=3.14159; Writeln(‘R-Writeln(‘R-ді енгізді енгіз’);’); Program Program шеңбершеңбер;; Readln (R);Readln (R); L:=2L:=2**PiPi**R; R; BeginBegin WritWriteeln(‘L=‘,L:4:2);ln(‘L=‘,L:4:2); Var LVar L: : Real ; Real ; R: R: Integer;Integer; 6- кезең: «Қатесін тап?» (Бағдарламаның қатесін табу ) (2 минут)
#13 слайд
Компьютердің экрнанына келесі
фигураларды шығаратын программа
құрыңдар:
А) жарты айды;
Б)аққаланы ;
В) автомобильді.
13 слайд
Компьютердің экрнанына келесі фигураларды шығаратын программа құрыңдар: А) жарты айды; Б)аққаланы ; В) автомобильді.
Бұл курс Қазақстан Республикасы Оқу-ағарту министрлігімен келісілген
