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

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

Паскаль тілінің параметрлі қайталану операторы (практикалық сабақ)
[ Сайттан жүктеу (6.75Mb) ] 03.03.2015, 12:27

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

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

загрузка...
Сабақтың мақсаты:

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

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

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

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

Сабақтың барысы:
1. Ұйымдастыру
2. Үй тапсырмасын тексеру
3. Жаңа сабақты түсіндіру
4. Компьютермен жұмыс
4. Сабақты бекіту
5. Үйге тапсырма
№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.
№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.
№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
Көрсетілім: 1057 | Жүктеулер: 626 | Рейтинг: 0.0/0
Барлық пікірлер: 0
Пікірді тек тіркелген қолданушылар ғана қалдыра алады
[ Тіркелу | Кіру ]
Іздеу
Сертификат алу
Бөлімдер
Сайтқа кіру
Логин:
Пароль:
Сұрақ
Сізге сайттың жаңа дизайны ұнады ма?
Барлық жауаптар: 5930
Бізге қосыл
Жаңалықтар
Санақ

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