Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/89: Рейтинг темы: голосов - 89, средняя оценка - 4.55
2 / 2 / 1
Регистрация: 12.06.2013
Сообщений: 57
1

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

15.11.2013, 14:15. Просмотров 17496. Ответов 1
Метки нет (Все метки)


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a,b,c,D, x1, x2: real;
 
begin
  writeln('Дано уравнение вида ax^2+bx+c=0');
  writeln ('Найти корни уравнения!');
  Writeln('Введите данные переменных a,b,c');
  readln(a,b,c);
  D:=sqr(b)-4*a*c;
  writeln('D=',D);
  if D=0 then 
  writeln('Уравнение имеет один корень');
      begin
        x1:=-b/2*a;
        writeln('Корень уравнения x1=',x1);
      end
  else if D<0 then writeln('Нет корней'); 16 строка
  else if D>0 then
      begin
        x1:=-b-sqr(d)/2*a;
        x2:=-b+sqr(d)/2*a;
        writeln ('Корни уравнения x1=',x1, 'и x2=',x2);
      end;  
end.
на 16 строке выдаёт "Program1.pas(16) : Встречено 'else', а ожидалось ';'", ставлю после end ";" пишит "Program1.pas(16) : Встречено 'else', а ожидался оператор.", помогите разобраться.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2013, 14:15
Ответы с готовыми решениями:

Встречено 'i', а ожидалось ';'
во всех строках типа writeln('введите координаты X Y Z 'i'й точки:'); не хочет добавлять цифру...

Встречено '.', а ожидалось ';'
Привет, форум. Не могу найти ошибку, поможете? function Chr(arg : integer) : char; function...

Встречено ';', а ожидалось ')'
Program2.pas(19) : Str (r:integer; buf:string); ошибка Встречено ';', а ожидалось ')'

Встречено 'else', а ожидалось ';'
program Nikita; var A, B, N, x : integer; d, F :real; Function Cos(X : integer): Real;...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
7 / 7 / 2
Регистрация: 31.08.2011
Сообщений: 135
15.11.2013, 14:21 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a,b,c,D, x1, x2: real;
 
begin
  writeln('Дано уравнение вида ax^2+bx+c=0');
  writeln ('Найти корни уравнения!');
  Writeln('Введите данные переменных a,b,c');
  readln(a,b,c);
  D:=sqr(b)-4*a*c;
  writeln('D=',D);
  if D=0 then 
begin
  writeln('Уравнение имеет один корень');
        x1:=-b/2*a;
        writeln('Корень уравнения x1=',x1);
      end
  else if D<0 then writeln('Нет корней')
  else if D>0 then
      begin
        x1:=-b-sqr(d)/2*a;
        x2:=-b+sqr(d)/2*a;
        writeln ('Корни уравнения x1=',x1, 'и x2=',x2);
      end;  
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2013, 14:21

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Встречено 'until', а ожидалось ';'
Program calculator; //v1.1 var a,b,rez:real;oper,calc:string;flag_start:boolean; Begin...

Встречено else, а ожидалось ';'
var a1,b1,a,b: real; begin Writeln('Введите А'); readln(a); Writeln('Введите B'); readln(b);...

Встречено '.', а ожидалось ';'
На 169 строке возникает ошибка &quot;Встречено '.', а ожидалось ';'&quot;. Помогите, пожалуйста, решить ее. ...

Встречено 'else', а ожидалось ';'
program lol; uses crt; const nmax = 20; type matr = array of integer;


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.