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

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

08.02.2016, 10:45. Просмотров 2445. Ответов 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Program calculator; //v1.1
var a,b,rez:real;oper,calc:string;flag_start:boolean;
Begin
flag_start:=false;
calc:='N';
rez:=0;
repeat
if(flag_start=false)then
begin
writeln('Are you want to use calculator:Y/N/');
readln(calc);
if(calc<>'Y')then break;
writeln('Please input the first number');
readln(a);
writeln('please choose operator:+,-,*,/,div,mod');
readln(oper);
rez:=a;
writeln('Please input a second number');
readln(a);
case oper of
'+':rez:=rez+a;
'-':rez:=rez-a;
'*':rez:=rez*a;
'/':rez:=rez/a;
'div':rez:=int(round(rez)div round(a));
'mod':rez:=int(round(rez)mod round(a));
else writeln('You chose wrong operator');
end;
end
else
begin
writeln('please choose operator:+,-,*,/,div,mod');
readln(oper);
rez:=a;
writeln('Please input a second number');
readln(a);
case oper of
'+':rez:=rez+a;
'-':rez:=rez-a;
'*':rez:=rez*a;
'/':rez:=rez/a;
'div':rez:=int(round(rez)div round(a));
'mod':rez:=int(round(rez)mod round(a));
else writeln('You chose wrong operator');
end;
writeln('Will you continue to use a calculator?Y/N');
readln(calc);
until(calc='N');
WriteLn('Result is',rez:8:2);
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.02.2016, 10:45
Ответы с готовыми решениями:

Встречено '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
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30874 / 20194 / 7877
Регистрация: 22.10.2011
Сообщений: 35,060
Записей в блоге: 6
08.02.2016, 11:17 2
См. строку №49
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
program calculator; //v1.1
 
var
  a, b, rez: real;oper, calc: string;flag_start: boolean;
 
begin
  flag_start := false;
  calc := 'N';
  rez := 0;
  repeat
    if(flag_start = false) then
    begin
      writeln('Are you want to use calculator:Y/N/');
      readln(calc);
      if(calc <> 'Y') then break;
      writeln('Please input the first number');
      readln(a);
      writeln('please choose operator:+,-,*,/,div,mod');
      readln(oper);
      rez := a;
      writeln('Please input a second number');
      readln(a);
      case oper of
        '+': rez := rez + a;
        '-': rez := rez - a;
        '*': rez := rez * a;
        '/': rez := rez / a;
        'div': rez := int(round(rez) div round(a));
        'mod': rez := int(round(rez) mod round(a));
      else writeln( 'You chose wrong operator');
      end;
    end
    else
    begin
      writeln('please choose operator:+,-,*,/,div,mod');
      readln(oper);
      rez := a;
      writeln('Please input a second number');
      readln(a);
      case oper of
        '+': rez := rez + a;
        '-': rez := rez - a;
        '*': rez := rez * a;
        '/': rez := rez / a;
        'div': rez := int(round(rez) div round(a));
        'mod': rez := int(round(rez) mod round(a));
      else writeln( 'You chose wrong operator');
      end;
    end; // <--- Этого не хватало
    writeln('Will you continue to use a calculator?Y/N');
    readln(calc);
  until(calc = 'N');
  WriteLn('Result is', rez:8:2);
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2016, 11:17

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

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

Встречено 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;

Встречено '.', а ожидалось ';'
Ошибка при компиляции type reals = file of real; procedure p(f,g,h:reals); var k,sum : real; ...

Встречено 'else', а ожидалось ';'
Program abc; var R, U, I : integer; begin writeln('Что вам нужно найти?(R,U,I)');...


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

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

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