посчитать значение по заданной системе уравнений (найти ошибку в программе в Паскаль)

[Mariya0011]

Необходимо написать программу по по этой системе в Паскаль.

        U=cosx^2lny,если х+у<0
И={  U=,если 0<=х+у<1
        U=tg^2,если1<=х+у<7
        U=e,если х+У>=7
И найти D=Max{coax;sqrt y}

Program lab3;
Var u,x,y: real;
Begin
Write(‘X+y<0; 0<x+y<1; 1<=x+y<7; x+y>=7’);
If x+y<0 then
Begin
U:=sqr (cos(x))*ln(y)
Writeln (‘x=‘,’y=‘);
End;
Else
If x+y<7 then
Begin
U:=sqr(tg (y))
Writeln(‘x=‘,’y=‘);
End;
Else
If x+y<1 then 
Begin
U:=sin(x)
Writeln(‘x=‘,’y=‘);
End;
End.

Помогите разобраться где ошибка.



___________________________________ ____________________

1) Название темы не соответствует правилам форума
Название темы должно адекватно отражать суть решаемой задачи/проблемы!

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

2) Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)


Учтите это на будущее.

Модератор

[Serge_Bliznykov]

выложите формулу системы в виде фотки/скриншота/рисунка

но пока ошибка в логике условий уже чётко видна, почему после проверки x+y<0
следующий Вы проверяете If x+y<7 ? разве у Вас условия идут в таком порядке?

и ещё. принципиальный вопрос - а где запрос X и Y ? если их не задать, они ниоткуда не возьмутся!

приведите текст задания целиком!

[type_Oleg]

- Не хватает ; в строках перед Writeln
- а перед else - наоборот, нельзя ;
- надо не tg , а tan , а для этого надо uses Math;
- прога будет выводить только символы x= y=, и больше ничего

Может еще что есть..