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

 

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

Использованные здесь ключевые слова while и do имеют смысл пока и выполнить, соответственно.

В качестве примера использования оператора while приведем программу вычисления числа π по формуле Грегори

с точностью 0.5·10-7:

program calcpi;

const

   c = 0.5E – 7;

var

   a, sum: real;

   sign: integer;

   n: longint;

begin

   sign: = -1;

   sum: = 1.0;

   a: = 1.0;

   n: = 1;

   while abs(a) > c do

      begin

         a: = sign / (2 * n – 1);

         sum: = sum + a;

         sign: = - sign;

         n: = n + 1;

      end;

   sum: = 4 * sum;

   write (’pi =’, sum);

end.

 Оператор цикла с постусловием repeat

 Данный оператор имеет вид:

         repeat s until p;

 Сначала выполняется тело цикла (s), затем вычисляется логическое выражение p (условие), в случае ложности которого вновь выполняется тело цикла. Затем выполнение тела цикла, вычисление условия p и его проверка повторяются до тех пор, пока выражение p не станет равным true. Тогда управление передается следующему (за repeat) оператору в программе.

Использованные здесь зарезервированные слова repeat и until имеют смысл повторять и пока не, соответственно.

Пример использования оператора цикла repeat:

Program prost; {проверка, является ли введенное с клавиатуры

                           натуральное число простым}

var

   n: integer; {введенное число}

   d: 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