Примеры использования цикла FOR

Предположим, что у нас есть следующее описание переменных:

     Var

        I:integer;

        C:char;

        B:boolean;

        Col=(Red,Yellow,Green,Blue,White);

 

Тогда будут правильными с синтаксической точки зрения следующие конструкции цикла:

     а) for I:=-10 to 10 do writeln(I);

     б) for I:=10 downto -10 do writeln(I);

     в) for C:='a' to 'r' do writeln(C);

     г) for b:=False to True do writeln(b);

     д) for Col:=Red to White do writeln(ord(Col);

 

Ниже приводится пример программы, вычисляющей сумму квадратов первых N целых чисел.

program SUM;

uses crt;

var  N,sum,I:integer;

begin                       { - начало тела главной программы}

  clrscr;

  writeln;

  writeln('<<< вычисления суммы квадратов первых N чисел >>>');

  writeln; write('N = ? ');

  readln(N); sum:=0;

  FOR I:=1 TO N DO

     sum:=sum+I;

  writeln('сумма квадратов первых ',N,' чисел  pавна ',sum);

  readln;

end.

 

В практике программирования достаточно часто возникает потребность использовать вложенные циклы. Примером такого использования вложенных циклов может быть программа, вычисляющая и печатающая таблицу Пифагора:

 

program PIFAGOR;

uses Crt;

var  I,J:integer;

begin                        { - начало тела главной программы}

  clrscr;

  gotoXY(10,5);

  TextColor(Blue);

  writeln('<<< ТАБЛИЦА ПИФАГОРА >>>');

  writeln;

  for I:=1 to 10 do        { повертикали }

     begin

       for J:=1 to 10 do   { погоризонтали }

          write((I*J):4);

       writeln             { переход на следующую горизонталь }

     end;

  readln

end.

Обо мне
Я - Степан Сюсин, начинающий программист. Мне 17 лет, я живу в Уфе и учусь в УТЭК'е. Люблю web-программирование. Поподробнее обо мне можно узнать в социальных сетях: