Program DvachAnon;
var x:real;
const a=7.5;
function CalcY(x:real):real;
begin
CalcY:= ((3*sqr(a)+2*abs(x))/(2*x-sqrt(3*a)))*2*cos(sqr(x));
end;
begin
write('Введите переменную "х":');
read(x);
writeln('y = ', CalcY(x));
end.
-------------------------------------------------------------
UPD: не уверен, как это правильно должно выглядеть, спросите у кого-нибудь знающего :D
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПОСТ
h = 0.1;
a = 0;
b = 1;
ПЕР
x: ВЕЩ;
УКАЗ
x := a;
ПОВТОРЯТЬ
Вывод.ЧВещ("\%.8f^", x * x, 0, 0, 0);
x := x + h
ДО x > b
КОН Задание.
В миллиарде 9 нулей. 1 000 000 000
Материнская плата-----'--