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

[overlor]

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

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

Для 1 снова поставьте и посчитайте

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

А что касается тройки. Задание сформулировано некорректно. Ни один из этих операторов не выполняется потому что... поэтому пишет ноль...

[overlor]

Спасибо большое очень помог, можешь посмотреть...
Проверьте, где ошибка....Заранее спасибо...))
Код:

program zadanie6;
uses crt;
const t=0.00000001;
var x,xn,xk,h,A,B,C,y:real;
BEGIN
clrscr;
write('еn=');
readln(xn);
write('еk=');
readln(xk);
write('h=');
readln(h);
x:=xn;
while (x<=xk) do
begin
if (exp(ln(2)*x)-3*cos(x))<>0 then
begin
C:=exp(ln(2)*x)-3*cos(x);
if abs(c)>t then
A:=exp(ln(2)*(-cos(x)));
B:=exp(ln((0.75-sqr(x)*x)*x)*1/3);
y:=(A-B)/C;
writeln('При x=',x:7:3,' y=',y:10:5)
end
else
writeln('При x е=',x:7:3,' y - не существует');
x:=x+h;
end;
readkey;
END.

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

ещё раз говорю
Оформляйте код тэгом CODE.
И напишите задание. Что должна делать программа и что происходит.