Паскаль тілінің параметрлі қайталану операторы(практикалық сабақ)
Сабақтың мақсаты:
Білімділігі: Оқушыларды Паскаль тілінің шартты алдын ала
тексеретін қайталу операторымен таныстырып, программа құруға дағдыландыру;
Дамытушылығы: Оқушылардың Паскаль программалау тілінде
есеп шығару мүмкіндіктерін, логикалық ойлау қабілеттерін дамыту;

Тәрбиелік: Оқушыларды тәрбиелікке, тиянақтылыққа,
ұқыптылыққа тәрбиелеу.

Сабақтың түрі: Практикалық сабақ

Сабақтың барысы:
1. Ұйымдастыру
2. Үй тапсырмасын тексеру
3. Жаңа сабақты түсіндіру
4. Компьютермен жұмыс
4. Сабақты бекіту
5. Үйге тапсырма

Өткен материалды қайталау сұрақтары• Шартты оператордың қандай түрлері бар? • If операторының жалпы жазылу түрі қандай? • Таңдау операторы не үшін пайдаланылады?
Компьютермен жұмыс
2 топпен жұмым жасаймыз: Кім жылдам?
№9. 1-ден n – ге дейінгі сандардың квадраттарының қосындысын табатын программа құру керек.
Program kvadrat;
Var s, i , n: integer;
Begin
WriteLn (‘ n = ’) ;
Readln (n);
I:=1;
S:=0;
While i<=n do
Begin S:=S + sqr (i);
I:= i+1;
WriteLn (‘ S=’ , S);
End;
End.
№10. Y= ex sinx+cosx функциясының мәндерінің [a, b] аралығында h қадамы бойынша өзгеру кестесін құратын программа құрыңдар.
Program y- tap;
Var x, y, a, b, h: real;
Begin
WriteLn (‘ a , b , h -? ’);
ReadLn (a, b , h);
X:= a;
While x<= b do
Begin
Y:=exp (x) * sin (x) + cos(x);
WriteLn (‘x=’, x:5:2, ‘, ‘ , y= ‘, y:5:2);
X:=x+h;
End;
End.
№11. Х € [1; 3] аралығындағы 0,2 қадаммен өзгергендегі y= функциясының мәнін тап.
Program esep;
Var x, y: real;
Begin
X:=1;
While x<=3 do
Begin y:= sqrt (x+1)-1/x;
Writeln (‘ x=’ , x, ‘y=’, y);
x:=x+0.2;
end;
readln;
end.
№12 Р=1*2*3 … * N N ! факториалды табу программасын жаз.
Program fakt;
Var I , n , p: integer;
Begin
WriteLn ( ‘ n= ‘);
ReadLn (n) ;
I: = 1;
P:= 1;
Repeat
P:= p*1;
I:= i+1;
Until i>n;
Writeln (p:4);
End.
№13. у =3x+1 x €[1 ; 2 ], h =0,5 өрнегін WHILE, REPEAT операторларын пайдаланып программа құр.
Program y-tabu;
Var x , y : real ;
Begin
X:=-1;
Repeat
Y: = 3*x+1;
WriteLn (‘ y = ‘ , y);
X:=X+0,5;
Until x>2;
End.
№14. x €[1 ; 3 ] аралығында 0,2 қадаммен өзгергендегі y= функциясының мәнін тап.
Program esep;
Var x, y: real;
Begin
X:=1;
repeat
y:= sqrt (x+1)-1/x ;
Writeln ( x:3, y:5);
x:=x+0.2;
until x>3
readln;
end.
Үй тапсырмасы: 100 санның әрбір 3 санының қосындыларын есептейтін бағдарлама құрып келу

Сабақ аяқталды, сау болыңдар
Соңғы жарияланған материалдар тізімі

Вложенные циклы Тармақталу алгоритмдерін программалау Паскаль бағдарламалау тілінде сызықтық бағдарлама құру Сызықтық алгоритмдерді программалау Паскаль тілінің қарапайым операторлары Информатикадан 9 сыныпқа арналған бақылау жұмысы СТО арқылы Сызықтық алгоритмдерді программалау Циклдік алгоритмдер Көп өлшемді жиымдармен (массивтермен) жұмыс Паскаль тілінің параметрлі қайталану операторы (практикалық сабақ)

Автор Изтлеуова Гульмира Танатовна

СШ № 253, Қызылорда қаласы

Бөлім: Материалы / Информатикадан презентациялар | Көрсетілім: 2881 | Қосты: NA | Ілмек сөздер: