Система уравнений!!!

[overlor]

Народ помогите очень нужно, учусь на заочке не у кого помощи попросить, я бы сам сделал, но просто не понимаю сильно паскаль уже 5 день над этой задачей голову ломаю....

Задача.doc

[overlor]

program func;
uses crt;
var x,y:real;
const e=0.00000001;
begin
clrscr;
write('‚ўҐ¤ЁвҐ x=');
read(x);
if x<0.5-e then
begin
y:=exp(ln(sin(x)*2))+2*exp(ln(x)*4) ;
writeln('y=',y:10:5);
end
else if (x>1-e) and (x<3-e) then
begin
y:=sqrt(1-x)/(sin(3*x));
writeln('y=',y:10:5);
end
else if (x>3+e) and (x<5+e) then
begin
y:=(sin(x)/cos(x))/(1-sqr(x));
writeln('y=',y:10:5);
end
else if (x>5+e) then
begin
y:=sin(2*(x-1));
writeln('y=',y:10:5);
end;
writeln('y=',y:10:5);
End.

[Вадим Мошев]

if x < 0.5 then y:=sin(x)*sin(x) - 2*x*x*x*x;
if (x >= 1) AND (x < 3) then y:=sqrt(1-x)/sin(3*x);
if (x > 3) and (x <= 5) then y:=(sin(x)/cos(x))/(1 - x*x);
if x > 5 then y:=sqr(x - 1);

Для оформление кода пользуйтесь тэгом CODE (это кнопочка с решёткой #)

[overlor]

Спасибо огромное попробую....

[Вадим Мошев]

А пока между делом советы.
Нестрогие знаки равенства в Паскале тоже есть, поэтому не надо вводить в использование никаких констант!

if x<0.5-e then
begin
y:=exp(ln(sin(x)*2))+2*exp(ln(x)*4) ;
writeln('y=',y:10:5);

Зачем столько выводов на экран?
Можно сначала вычислить y, и уж потом выводить его значение на экран.
Кстати, формат вывода я бы рекомендовал использовать например 5:3, то есть: Write(y:5:3)

[overlor]

А можешь написать весь текст программы, что-то у меня все равно не получается..((((

[overlor]

Написал вот так программу, правда только при вводе 0,1,2,3 не считает...???

program func;
uses crt;
var x,y:real;
const e=0.00000001;
begin
clrscr;
write('‚ўҐ¤ЁвҐ x=');
read(x);
begin
if x < 0.5-e then y:=sin(x)*sin(x) - 2*x*x*x*x;
if (x >= 1-e) AND (x < 3-e) then y:=sqrt(1-x)/sin(3*x);
if (x > 3+e) and (x <= 5+e) then y:=(sin(x)/cos(x))/(1 - x*x);
if x > 5+e then y:=sqr(x - 1);
writeln('y=',y:10:5);
end;
readkey;
end.

[Вадим Мошев]

program func;
uses crt;
var x,y:real;
const e=0.00000001;
begin
clrscr;
write('‚ўҐ¤ЁвҐ x=');
read(x);
begin {вот нафига? Это не нужно писать, так как Бегин был уже выше}
if x < 0.5-e then y:=sin(x)*sin(x) - 2*x*x*x*x;
if (x >= 1-e) AND (x < 3-e) then y:=sqrt(1-x)/sin(3*x);
if (x > 3+e) and (x <= 5+e) then y:=(sin(x)/cos(x))/(1 - x*x);
if x > 5+e then y:=sqr(x - 1);
writeln('y=',y:10:5);
end; {тоже нафига по той же причине}
readkey;
end.

уберите красные строчки
И уберите вычитание и прибавление e

правда только при вводе 0,1,2,3 не считает...???

А вот поставьте 2 (введите) да и сами посчитайте (выполните ручную прокрутку алгоритма), что там будет.

[overlor]

Просто нужно эту задачу решить с использованием точности....,просто я не пойму почему не считает для 0,1,2,3...

[Вадим Мошев]

просто я не пойму почему не считает для 0,1,2,3...

Поставьте 2 в свой алгоритм и посмотрите, что там будет.
Подсказка: проход будет идти по ветке

if (x >= 1) AND (x < 3) then y:=sqrt(1-x)/sin(3*x);