Информатикадан презентациялар

Басты бет » Әдістемелік » Презентациялар жинағы » Информатикадан презентациялар

Паскаль тілінің параметрлі қайталану операторы (практикалық сабақ)
[ · Жүктеу () ] 24.02.2015, 13:34

Материалдың жеке номері 614

Паскаль тілінің параметрлі қайталану операторы (практикалық сабақ)

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

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

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

Сабақтың барысы:
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 санының қосындыларын есептейтін бағдарлама құрып келу

Сабақ аяқталды, сау болыңдар
loading...

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

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

Бөлім: Информатикадан презентациялар | Қосты: dico | Ілмек сөздер: Паскаль. тілі
Көрсетілім: 1016 | Жүктеулер: 622 | Рейтинг: 0.0/0
Барлық пікірлер: 0
Пікірді тек тіркелген қолданушылар ғана қалдыра алады
[ Тіркелу | Кіру ]
Іздеу
Сертификат алу
Бөлімдер
Сайтқа кіру
Логин:
Пароль:
Сұрақ
Сізге сайттың жаңа дизайны ұнады ма?
Барлық жауаптар: 5930
Бізге қосыл
Жаңалықтар
Санақ

Онлайн: 26
Қонақтар: 26
Тіркелгендер: 0