Просьба помочь с решением уравнения

[Stelix]

Дорогие програмисты!Нужно решить эт систему в паскале,очень прошу,помогите мне.

[KORT]

Я ее не проверял, писал он-лайн.

uses crt;
var c,n,a,b:real;
begin
write('с=');
readln(c);
write('n=');
readln(n);
x:=(c-n)*(c-n)/(0.5*(n*n-c*c));
writeln('X=',x);
If (x<=-4) and (x>=12.5) then  
Begin
a:=x*x+c;
writeln('A=',a);
end
else
begin
a:=c*c*x+n;
writeln('A=',a);
end;
If (a+x*x>3) then
Begin
b:=2*a;
writeln('B=',b);
end
If (a+x*x=3) then
Begin
b:=a-1;
writeln('B=',b);
end
else
begin
b:=3*a;
writeln('B=',b);
end;
readkey;
end.

[Stelix]

Спасибо огромное!Всё здорово,щас вот сижу с друзьями пытаюсь в ответе еще вывести значения в нормальных числах,но он пишет дрянь какую-то вместо правильных ответов

[KORT]

Огромное флудское пожалуйста.

[Alex21]

Сообщение от Stelix

вывести значения в нормальных числах,но он пишет дрянь какую-то вместо правильных ответов

видимо речь идет о нулях после значения.

writeln('B=',b:4:2);

т.е. 2 - это число знаков после запятой

[matrixanton]

Здравствуйте, уважаемые программисты!
У меня примерно такая же задача... не могу разобраться, помогите пожалуйста...
Вот условие:

Расчитать значения y при заданном значении x:

[kommunist]

to matrixanton

PROGRAM ASD;
VAR y:real
       x:real;
begin
writeln('vvedite x);
readln(x);
if x > 0 then
y:=sqr(sin(x))
else 
y:=1+2*sqr(sin(x));
write('y=',y);
readln;
end.

[puporev]

Вы эту строчку поправили?

If (x<=-4) and (x>=12.5) then

По условию ведь -4<=x>=12.5

[matrixanton]

kommunist, спасибо за оперативную помощь!

[Alex21]

Сообщение от kommunist

to matrixanton

if x > 0 then
y:=sqr(sin(x))
else

Наверное все таки вот так:

y:=sin(sqr(x))