Сайт фан клуба ИГХТУ

 

Методичка 706 ИГХТУ

   r: integer; {остаток от деления}

begin

   write (’Введите натуральное число:’); readln (n);

   d:= 2; {сначала будем делить на два}

   repeat

      r:= n mod d;

      if r < > 0 {n не разделилось нацело на d}

         then d:= d + 1;

   until r = 0; {пока не нашли число, на которое делится n}

   if d = n

      then writeln (n,’ – простое число.’)

      else writeln (n,’ – не простое число.’);

end.

 Вложенные циклы

В программах на Паскале возможно использование вложенных циклов. Это подразумевает, что существует внешний цикл и один или несколько внутренних циклов. Каждое повторение внешнего цикла означает завершение всех внутренних циклов; при этом всем выражениям, которые управляют внутренними циклами, вновь присваиваются начальные значения.

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

 

Program summa; {программа вычисления суммы положительных

                               элементов матрицы А(5*8)}

var

   a: array [1..5, 1..8] of real; {исходная матрица}

   i, j: integer; {параметры циклов}

   sum: real; {сумма положительных элементов}

begin

   s:= 0;

   for i:= 1 to 5 do

      begin

         for j:= 1 to 8 do

            begin

               read (a[i, j]);

               if a[i, j] > 0 then s:= s + a[i, j];

            end;

         writeln;

      end;

   writeln (’сумма положительных элементов =’, sum:10:6);

end.

 

Данная программа содержит два оператора цикла с параметром, вложенные один в другой. Две переменные (i и j) типа integer представляют собой управляющие параметры для внешнего и внутреннего циклов, соответственно. С каждым повторением внешнего цикла (таких повторений пять) количество повторений внутреннего цикла равно восьми. Таким образом, элементы матрицы А вводятся по строкам.

 



страницы:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
 
 
 
 
 
 

Warning: in_array() expects parameter 2 to be array, null given in /home/p198609/www/bestlogistics.ru/2f41c03c6df35aa46f8d897a4eed7d02/sape.php on line 192