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



             until    x>1;

end.

Действия, которые подчеркнуты, необходимы для организации цикла. 

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

WHILE    <условие>  DO P;

Где P - простой или составной оператор.

По этому оператору проверяется <условие> и, если оно выполняется, то выполняется - P, после чего опять проверяется <условие> и т. д.

Итак,  P - выполняется до тех пор, пока выполняется <условие>.

Если условие ни разу не выполнилось, P - игнорируется, управление передается следующему оператору.

Вычислить:    y = sin x, x, x,  - ввести с клавиатуры.

Подсчитать среднее положительное и среднее отрицательное значение функции.

Program cikl;

var

         y, x, x k, d x: real;

         n, k: integer;                               SP, n - среднее и количество положительных значений.

         SP, S0: real;                                S0, k - среднее и количество отрицательных значений.             

begin

        writeln (' введите x - начальное, x - конечное, d x - шаг');

        read (x, x k, d x);

               SP: =0; S0: = 0; n: =0; k: =0;

       While    x< = k x    do.

P  Составной оператор.

if   n=0   then       writeln ('Отрицательные отсутствуют')

               else       writeln (' Средние отрицательные = ', SP/n);

if   k=0   then       writeln (' Положительные отсутствуют ')

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

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