Презентация к уроку информатики "Решение задач с циклами в Паскале"

• 1 слайд

  РЕШЕНИЕ ЗАДАЧ С ЦИКЛАМИ
  

• 2 слайд

  Виды циклов:
  Цикл с параметром - используется в случае, когда количество повторений заранее известно.
  for [переменная : = начальное значение] to [конечное значение] do [команда]
  (для значения переменной от … до …   выполняй команду)
  2. Цикл с предусловием
   While [условие] do [команда]    (пока условие истинно выполняй  команду)
  3. Цикл с постусловием
    Repeat   [команда] until [выражение]  
  (повторяй команду до тех пор, пока значение выражения истинно)
  
  
  
  

• 3 слайд

  1. Найти сумму всех четных чисел, находящихся в целочисленном промежутке [a;b] (Цикл с параметром)
  Program Zadacha1;
  var a, b, i, s: integer;   {i – число из заданного промежутка , s – сумма чисел, удовлетворяющих условию}
  begin                                        
  s:=0;                                   {первоначальное значение суммы равно 0}
  write ('Введите левую границу промежутка а:  ');
  readln (а);
  write ('Введите правую границу промежутка b:  ');
  readln (b);
  for i:=a to b do
  begin
  if i mod 2=0 then s:=s+i  {оператор mod показывает остаток от деления числа i на 2}
   end; 
  writeln ('Сумма чисел равна: ',s);
  readln;
  end.
  

• 4 слайд

  2. Найти сумму вводимых с клавиатуры целых положительных чисел. Результат выводить на экран при вводе числа 0 (Цикл с предусловием)
  Program Zadacha2;
  var a, s: integer;
  begin
  Writeln (‘Введите числа’);
  read (a);
  s:=0;
  while a<>0 do
  begin
  if a>0 then s:=s+a;
  readln(a);
  end;
  writeln ('Сумма положительных чисел равна ',s);
  readln;
  end.
  
  

• 5 слайд

  3. Найти сумму всех вводимых с клавиатуры целых чисел. Ввод чисел прекратить после достижения суммой значения 100 и более (Цикл с послеусловием)
  Program Zadacha3;
  var a, s: integer;
  begin
  s:=0;
  repeat
  write ('Введите число: ');
  readln (a);
  s:=s+a;
  writeln ('Сумма чисел: ',s);
  until  s>=100;
  writeln ('Ввод закончен. Сумма чисел: ',s);
  readln;
  end.
  

• 6 слайд

  4. Подсчет суммы натуральных чисел от 1 до 100
  Program Zadacha4;
  var i, sum: integer;
  begin
  sum:=0; i:=0;
  repeat
  i:=i+1;
  sum:=sum+i;
  until i=100;
  writeln('Сумма равна', sum);
  readln;
  end.
  
  

• 7 слайд

  вывести на экран таблицу квадратов натуральных чисел от 2 до 20