Здесь оператор ReadLn; используется для просмотра выводимых ПК на дисплей результатов вычислений до тех пор, пока вы не нажмете клавишу ввода Enter (подсказка с помощью оператора

WriteLn ( ‘ Нажмите клавишу Enter ‘ ); ).

Программирование блока 11. Этот блок на Паскале записывается закрывающей операторной скобкой End .

8.3. Полная Паскаль-программа решаемой сложной задачи

Итак, полная Паскаль-программа, составленная в соответствии с алгоритмом рис. 8.1, будет иметь следующий вид:

{ Блок 1 }

Рrogram Ргimer;

Vаr b, t, beta, alfa : геаl; к, n, m : integег;

х, у: аrraу [1 .. 99] of real;

Рrосеdure Вmin;

Vаr i : integer;

Begin b : = x [1];

Fоr i : = 2 tо n do If х[i] < b then b : = x [i];

end ;

Веgin

{ Блок 2 }

ReadLn (n, m, t); Fоr k : = 1 to n do

ReadLn (х [k]);

WriteLn (‘_ _ИСХОДНЫЕ_ _ ДАННЫЕ ’); WriteLn (‘ n =’, n , ’_ _m =’, m , ’_ _t = ’, t);

Fоr k : = 1 to n do

WriteLn (‘х [’, k : 2, ’] = ‘, х [k]);

{Блок 3 }

Вmin;

{Блок 5 }

Веta : = 2 * t ;

Аlfa : = sin (3 * beta);

{Структура из блоков 6 - 9 }

For k : = 1 to m do

If beta < и then y [ k ] : = k * beta else y [ k ] : = alfa / k ;

{ Блок 10 }

WriteLn ( ‘_ _ Результаты _ _ вычислений ‘ ) ;

Fоr k: = 1 to m do

WriteLn (‘y[’, k : 2, ’] = ‘, y[k] : 9);

WriteLn ( ‘ Нажмите клавишу Enter ‘ ) ; ReadLn ;

{Блок 11 }

End.

56