Встречено 'else', а ожидалось ';'

@1999299 · Регистрация: 17.09.2016

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

Pascal

program Nikita;
var A, B, N, x : integer;
    d, F :real;
    Function Cos(X : integer): Real;
begin
cls;
d:=0;
writeln('Введите левую границу: '); 
read(A);
writeln('');
read(B);
writeln('');
read(N);
x:=A;
d:=(B-A)/(N-1);
If (x<=B) then begin
  if ((x>0) and (x mod 2 = 0)) then begin
    F:= (Abs(Ln(x/10.5)))*((Exp(Sqrt(x))/(Sqrt(Abs(Cos(3,1415926535*x)+1)))));
    writeln (x,'',F); end
  else begin
    writeln ('Функция в точке',x,'не существует.');
    x:=x+d; end 
else begin                       
 writeln ('Конец'); end
 
end;
end.

(23строчка) : Встречено 'else', а ожидалось ';' чет не могу допереть

Kodzaev · 17.09.2016, 04:42

Здесь куча синтаксических ошибок. По поводу 23 строчки - ты не там поставил end, красиво отформатируй код и увидишь, что в 22 строке нужно добавить еще один end, а в 26-ой - убрать его. Кроме того 4 строчка никому не нужна. Зачем она здесь? В 18 строчке число $https://www.cyberforum.ru/cgi-bin/latex.cgi?\pi$ записано через запятую, а надо через точку. А вообще лучше использовать встроенную константу Pi. В 22 строке ты целому числу x присваиваешь вещественное x + d. И это может не все ошибки, которые есть. Так что сиди исправляй. Если опять упрешься в тупик - пиши.

ФедосеевПавел · 17.09.2016, 07:12

Можно форматировать код в одно нажатие.
Судя по http://www.gunsmoker.ru/2011/01/blog-post.html
это делается через меню Сервис - Форматировать код.

@volvo · 17.09.2016, 12:27

ФедосеевПавел, некомпилируемый код не отформатируется.

ФедосеевПавел · 17.09.2016, 14:24

Да, согласен. Но если форматировать по мере набора, то небаланс скобок и begin-end легче обнаруживается.

Добавлено через 1 минуту
Про форматирование это уже совет "на будущее". А по текущим ошибкам уже помог Kodzaev.

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	17.09.2016, 04:42	2
	Сообщение было отмечено 1999299 как решение Решение Здесь куча синтаксических ошибок. По поводу 23 строчки - ты не там поставил `end`, красиво отформатируй код и увидишь, что в 22 строке нужно добавить еще один `end`, а в 26-ой - убрать его. Кроме того 4 строчка никому не нужна. Зачем она здесь? В 18 строчке число $https://www.cyberforum.ru/cgi-bin/latex.cgi?\pi$ записано через запятую, а надо через точку. А вообще лучше использовать встроенную константу `Pi`. В 22 строке ты целому числу x присваиваешь вещественное x + d. И это может не все ошибки, которые есть. Так что сиди исправляй. Если опять упрешься в тупик - пиши. 1

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	17.09.2016, 07:12	3
	Можно форматировать код в одно нажатие. Судя по http://www.gunsmoker.ru/2011/01/blog-post.html это делается через меню Сервис - Форматировать код. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	17.09.2016, 12:27	4
	ФедосеевПавел, некомпилируемый код не отформатируется. 1

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	17.09.2016, 14:24	5
	Да, согласен. Но если форматировать по мере набора, то небаланс скобок и begin-end легче обнаруживается. Добавлено через 1 минуту Про форматирование это уже совет "на будущее". А по текущим ошибкам уже помог Kodzaev. 0

Встречено 'else', а ожидалось ';'

Решение