Презентация по информатике и ИКТ в 9 классе на тему: "Цикл с предусловием и цикл с постусловием в среде программирования Turbo Pascal."

• 1 слайд

  Цикл с предусловием
  и цикл с постусловием
  В среде программирования Turbo Pascal
  

• 2 слайд

  Структура программы на Turbo Pascal
  Program pr1;
  {………………………….пояснения}
  Var …………………..
  
  Begin
  ………………………….
  Begin
  ………………………….
  End;
  
  Readln
  End.
  Повторение.
  

• 3 слайд

  Повторение.
  Program f;
  uses crt;
  var n,f,i :integer;
          BEGIN
              clrscr;
  writeln(‘Задайте n’);
                   readln(n);
                   for i:=1 to n do
                        f:=f*i;
                   writeln(‘F = ’,f);
              readln;
          END.
  Вычисление факториала натурального числа n! (n! = 1 * 2 * 3 * … * n)
  Какая задача выполняется с помощью этой программы?
  

• 4 слайд

  Новое на уроке
  Некоторые новые операторы, которые встретятся на уроке:
  Label k - описание в разделе Var «метка в программе»
  …..
  K:Writeln( ‘Введите число’); - метка в программе
  ……
  goto k - обращение к метке в программе
  
  A div B - частное от деления А на В с остатком
  A mod B - остаток от деления А на В с остатком
  
  Write (i:5); - вывод чисел в строчку с интервалом 5 позиций.
  

• 5 слайд

  И, конечно, операторы циклов
  Цикл с предусловием (While)
  Цикл с постусловием (repeat… until)
  

• 6 слайд

• 7 слайд

• 8 слайд

• 9 слайд

• 10 слайд

• 11 слайд

• 12 слайд

• 13 слайд

  Задача.
  
  Вычислить сумму натурального ряда чисел
  от 1 до n
  
  С помощью двух циклов
  

• 14 слайд

  Program pr3;
  Var n,i, s: integer;
  Begin
  
  Writeln ('Vvedite naturalnoe chislo N');
  Readln(n);
  i:=0;
  repeat
  i:=i+1;
  s:=s+i
  Until i>=n;
  Write (s:5);
  Readln;
  End.
  Program pr4;
  Var n,s, i: integer;
  Begin
  
  Writeln('Vvedite naturalnoe
  chislo N');
  Readln(n);
  i:=0;
  While i<n do
  begin
  i:=i+1;
  s:=s+i;
  End;
  Write (s:5);
  Readln;
  End.
  

• 15 слайд

  Итоги урока
  While
  repeat…….Until
  
  

• 16 слайд

  
  Домашнее задание:
  учить конспект;
  составить программу для решения
  
  задачи:
  
  Вычислить сумму всех
  нечетных чисел в интервале (1;2k-1)