Встречено Else а ожидался оператор

@Neocosmo · Регистрация: 25.01.2010

Author24 — интернет-сервис помощи студентам

Написал программу:

Pascal

program klxz3;
var
x,y,z1,z2:real;
begin
writeln('Введите x и y');
readln(x,y);
if (sqr(x)-y<-2) and (x>0) then
z1:=sqrt(exp(x))-5;
z2:=sin(sqr(x)-y)-sqr(y);
writeln(z1,z2);
else 
z1:=(2/3*ln(x))-exp(y*ln((abs(sin(x)))));
writeln('z1=',z1:2:3);
end.

Только вот ошибку выдаёт "Встречено else а ожидался оператор".Посмотрел темы форума, так и не нашёл решения.Погуглил-пишут что надо перед else удалить ";" , но я их удалил и тогда выдаётся ошибка "Встречено Else, а ожидалось ;".
Если закомментировать часть кода с блоком Else то программа работает,правда не совсем как надо. Если закомментировать после if последние две строчки-тоже работает, но опять же не так как надо.В чём дело так и не могу понять.

@Max Dark · 21.02.2015, 01:28

begin и end забыли...

Pascal

program klxz3;
var
x,y,z1,z2:real;
begin
writeln('Введите x и y');
readln(x,y);
if (sqr(x)-y<-2) and (x>0) then begin
z1:=sqrt(exp(x))-5;
z2:=sin(sqr(x)-y)-sqr(y);
writeln(z1,z2); end
else 
z1:=(2/3*ln(x))-exp(y*ln((abs(sin(x)))));
writeln('z1=',z1:2:3);
end.

второе "забытое" место подправьте самостоятельно

	21.02.2015, 01:28