Циклические алгоритмы. Обобщение. Примеры реализации

Обобщение циклических алгоритмов

Теперь Вы знаете 3 типа операторов типа

Циклы со счетчиком (for)
Циклы с предусловием (while)
Циклы с постусловием (repeat)

Теперь разберем конструкцкию каждого на примерах.

Цикл for

Ниже приведенный код выполняет создание двузначных чисел и находит количество и сумму делителей числа нацело на переменную цикла

uses crt;
var a,i,sum,k,kk: INTEGER;
BEGIN
  for a:=10 to 100 do
  begin
    k:=0;
    for i:=2 to a div 2 do
      IF a mod i = 0 then inc(k);
    if k = 0   then begin inc(kk);inc(sum,i); write(A,' ');end;
  end;
  writeln('');
  writeln('Кол-во делителей:',kk);
  writeln('Сумма делителей:',sum);
END.

Цикл while

А данный код считывает символ с клавиатуры в переменную 'a' и продолжает цикл до момента, пока 'a' не станет равным 0. Т.к. В теле программы всего один оператор (readln (a)), то begin и end можно не использовать

uses crt;
var a:char;

BEGIN

  while a <> '0' DO
    begin
      readln (a);
    end;


END.

Цикл repeat

ЗАДАЧА: Вводится последовательность из N целых чисел. Найти наибольшее из всех отрицательных чисел.

Решение

var
  N, i, a, maxNegNum: integer;
  bln: boolean; // Логический тип данных

begin
  i := 0; // Счетчик цикла, левая граница выполнения цикла
  N := 10; // Правая граница выполнения цикла
  bln := false; 
  writeln('Введите ', N, ' целых чисел:');

  repeat
    inc(i); // Увеличиваем i на одну единицу. Равносильно i:=i+1;
    write(i, ') ');
    readln(a); // Считали число
    if (a < 0) then //Если число меньше ноля, то
      if not bln then begin // Если bln = false, то
        maxNegNum := a; // Максимальному отрицательному числу присваиваем значение переменной 'a'
        bln := true // Отрицательное число найдено!
      end
      else // Иначе
        if (a > maxNegNum) then maxNegNum := a 
  until i = N; // Повторять, пока i не станет равным N
  if not bln then writeln('Нет отрицательных чисел') // Если bln = false, то написать, что число не найдено.
  else writeln('Ответ: ', maxNegNum); // Иначе вывести это число

end.

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail