Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 02.02.2019
Сообщений: 5
1

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

19.02.2019, 19:05. Просмотров 305. Ответов 1


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program abc;
var
R, U, I : integer;
begin
writeln('Что вам нужно найти?(R,U,I)');
readln(R,U,I);
if R then
R := U/I;
writeln(R)
else 
if U then
begin
U := R*I;
writeln(U);
end
else
if I then
begin
I := U/R;
writeln(I);
end.
Встречено 'else', а ожидалось ';'
подлатайте код плз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.02.2019, 19:05
Ответы с готовыми решениями:

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

Встречено 'else', а ожидалось ';'
var a,b,c,D, x1, x2: real; begin writeln('Дано уравнение вида ax^2+bx+c=0'); writeln...

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

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

1
Модератор
62952 / 46963 / 32363
Регистрация: 18.05.2008
Сообщений: 113,804
19.02.2019, 19:20 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
R, U, I:real;
k : integer;
begin
writeln('Введите R, U, I');
readln(R,U,I);
writeln('Что вам нужно найти? 1-R,2-U,3-I)');
readln(k);
case k of
1:begin
  R := U/I;
  writeln('R=',R:0:2);
  end;
2:begin
  U := R*I;
  writeln('U=',U:0:2);
  end;
3:begin
  I := U/R;
  writeln('I=',I:0:2);
  end;
end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2019, 19:20

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

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

Встречено '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 строке возникает ошибка "Встречено '.', а ожидалось ';'". Помогите, пожалуйста, решить ее. ...


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

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

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