Пример простой программы

Составить блок-схему и программу вычисления функции y= a*sinx/b при заданных значениях x, a, b.

Program Primer;

{Раздел описания}

Var a, b, x, y: real; {Описание переменных a, b, x, y}

Begin

Writeln(‘Введите a, b, x’);{Вывод на экран подсказки ‘Введите a, b, x’}

Readln(a, b, x);{Ввод переменных a, b, x }

Y:=a*sin(x)/b;{Вычисление выражения и присваивание этого значения переменной У}

Writeln(‘y=’, y:7:3);{Вывод значения У с тремя знаками после запятой}

Readln;{ Задержка экрана пользователя до нажатия rл.Enter}

End.

 

 

 

16