Пример 3.1.
Вычислить при x = 2.1, y = 0.59, z = -4.8 значения a и b, используя формулы:
Блок-схема алгоритма
Листинг программы
program prg_3_1;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, RusTrans;
label
10;
var
a,b,c,x,y,z: real;
proba:integer;
begin
10: writeln(Rus(‘Введите x,y,z’));
readln(x,y,z);
writeln;
writeln(Rus(‘Вы ввели’));
writeln(‘x=’,x:8:3,’ y=’,y:8:3,’ z=’,z:8:3);
writeln;
writeln(Rus(‘Введите 1, если правильно’));
readln(proba);
if proba<>1 then
begin
writeln;
goto 10;
end;
writeln;
c:=sin(x*x)/cos(x*x);
a:=y*c*sqr(c)+sqrt(z*z/(y*y+x*x));
b:=ln(y+x*x)+sqr(sin(z/y));
writeln(Rus(‘Результат’));
writeln(‘a=’,a:8:3,’ b=’,b:8:3);
readln;
end.
Консоль перед закрытием программы: