Компьютермен жұмыс
№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.
Үйге тапсырма: WHILE операторы.
Пән аты: Информатика
Класы: 9 «А», 9 «Б», 9 «В», 9 «Г»
Сабақтың тақырыбы: Паскаль тілінің шартты соңынан тексеретін қайталау
операторы – REPEAT.
Сабақтың мақсаты:
Білімділігі: Оқушыларды Паскаль тілінің шартты соңынан тексеретін қайталау - REPEAT операторымен таныстырып, программа құруға дағдыландыру;
Дамытушылығы: Оқушылардың паскаль программалау тілінде есеп шығару мүмкіндіктерін, логикалық ойлау қабілеттерін дамыту;
Тәрбиелік: Оқушыларды тиянақтылыққа, ұқыптылыққа тәрбиелеу.
Сабақтың түрі: аралас сабақ
Сабақтың барысы:
1. Ұйымдастыру
2. Үй тапсырмасын тексеру
3. Жаңа сабақты түсіндіру
Достарыңызбен бөлісу: |
