Пән: 9 сынып информатика Тақырып: Циклды ұйымдастыру операторлары Оқыту мен тәрбиелеудің міндеттері: Мақсаты

Компьютерлер, Информатика мен есептеуіш техника негіздері әдістемелік нұсқау бағдарламалары. Турбо Паскаль оқулығы.

Сәлемдесу, оқушыларды түгелдеу.

1-мысал. Натурал n санының жазылуындағы тақ цифрлардың саның есептеу керек.

Шешу жолы. Берілген санның ең кіші разрядынан бастап цифрларды бір-бірлеп, оларды түгелімен, яғни нөлге тең болғанша салыстырып шығамыз. Әрбір тақ цифр есепке алынады.

1. 
   Басы;
   
2. 
   n санын енгізу;
   
3. 
   k:=0 (санауға даярлаймыз);
   
4. 
   Егер : n:=0 болса, онда 8-паунктке өтеміз;
   
5. 
   Егер n mod 2 =1 болса, онда k:=k+1;
   
6. 
   n:=n div 10;
   
7. 
   4-пунктке өтеміз;
   
8. 
   k-шығару;
   
9. 
   Соңы.
   

Екі тәсілден де шығару схемалаы көрсетілген.

PROGRAM lab -4 -1;

(Есепті while операторымен шығару)

Uses crt;

Var k,n:integer;

Begin

Write(‘n-ді енгіз:’);

Readln(n);

K:=0;

Begin

N:=n div 10

End;

Write (‘Тақ цифрлар саны: k=',k);

End.

PROGRAM lab -4 -2;

(Есепті Repeat операторымен шығару)

Uses crt;

Var k,n:integer;

Begin

Write(‘n-ді енгіз:’);

Readln(n);

K:=0;

Begin

N:=n div 10

Until n=0;

Write (‘Тақ цифрлар саны: k=',k);

End.
Бекіту: Жаңа сабаққа байланысты сұрақ жауап беру арқылы жаңа сабақты қортындылау.