Question

Помогите пожалуйста, нужно срочно. Решение фотографией

Answer 1

program Wybor;
uses Crt;
var y, a, b :real;

begin
 a:=226.3;
 b:=931.3;
 if (a-b)<(10*ln(1/3.1415926) ) then   y:= b*sqr(x)*x -a*ln(abs(2*x))+sqr(sin(x))
             else  y:=sqrt(b*sin(x)/cos(x))-exp(3*x);
 WriteLn('y=', y:6:3);
 ReadLn;
 end.

Типа того, только проверь все внимательно, а то ТУРБО устроил мне пляску Святого Витта... Кстати, в Паскале нет тангенса, его заменяем sin(x)/cos(x) и я в программе "СЪЭКОНОМИЛ" описание переменной Х...