Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата



Var

         i: integer;

         sum: real;

begin

        sum: =0;

        for i: = 1 to 50 do

                           Sum: = sum + 1/i;

        Writeln (' сумма = ', Sum);

end.

Оператор for применяют в тех случаях, когда значения параметра цикла целые и меняются с шагом +1, -1.

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

                                                   REPEAT

 -  тело цикла

                                                           UNTIL  <условие>;

где P1, P2, …PN - любые операторы.

По этому оператору выполняется "тело цикла", а затем проверяется <условие>, если оно не выполнилось, цикл повторяется. И так до тех пор, пока <условие> не будет выполнено.

Необходимо помнить: если <условие> сразу выполнилось, цикл будет пройден один раз.

Вычислить:    y = a sin (x ) ,   x = ,  =0.2

program fun;

var

        y, a, x: real;

begin

            x: =0;  read (a)

            repeat

                     y: = a *sin (x);  writeln (y, x); x: = x + 0.2;

Рекомендуем скачать другие рефераты по теме: конспекты занятий в детском саду, менеджмент.

Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата