Паскаль в примерах. Иринчеев А.А - 39 стр.

 var
 a,b,c,d,K,x1,x2:real;
  begin
   write('Введите коэффициенты A,B,C');
   readln (a,b,c);
   d:=b*b-4*a*c;
     if d<0 then goto 1;
       if d=0 then goto 2;
         x1:=(-b + sqrt(d))/2;
         x2:=(-b - sqrt(d))/2;
           goto 3;
   1: Writeln('Действительных коней нет');
           goto 4;
   2: x1:=(-b)/(2*a);
      x2:=x1;
        goto 3;
   3: writeln('Ответ: x1 = ',x1:8:3,' x2 = ',x2:8:3);
   4:
 end.

                            2.10. Организация циклических процессов

    При решении многих задач вычислительный процесс имеет циклический характер. Это
означает, что часть операторов многократно выполняются при различных значениях пере-
менных.
    Различают арифметические и итерационные вложенные циклы. Они делятся на два ти-
па: циклы на достижение заданной точности (итерационные) и циклы с известным числом
повторений (арифметические).
    Циклический процесс называется итерационным, если заранее неизвестно количество
повторений цикла, а конец вычислений определяется при достижении некоторой заранее
заданной точности вычисления.
     В языке ПАСКАЛЬ имеется три вида операторов цикла:
оператор цикла с предварительным условием (предусловием);
оператор цикла с последующим условием (постусловием);
оператор цикла с параметром.
       Для всех операторов цикла характерна следующая особенность:
     повторяющиеся вычисления записываются всего один раз;
     вход в цикл возможен только через его начало;
     переменные цикла должны быть определены до входа в циклическую часть;
     необходимо предусмотреть выход из цикла: или по естественному его окончанию, или
по оператору перехода.
       Если этого не предусмотреть, то циклические вычисления будут повторяться бесконечно.
В этом случае говорят, что произошло “зацикливание” выполнения программы.

                                2.11. Оператор цикла с параметром

    Оператор цикла с параметром используется в тех случаях, когда заранее известно,
сколько раз должна повторятся циклическая часть программы или можно вычислить количе-
ство шагов цикла.
Оператор цикла имеет вид:

FOR I:=m1 TO m2 DO

                                                                                     39