Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 2
Регистрация: 19.01.2012
Сообщений: 82

ошибка 113 error in statment

14.03.2012, 16:50. Показов 1358. Ответов 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
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
program schet;
uses crt;
var a, b, c: integer;
var vop: string;
label inc, out, nach;
begin
nach:
clrscr;
writeln ('enter ather chisla');
writeln ('for last chisla, enter 0');
 
 
 
 
 
 
inc:
read (a);
if a = 0 then goto out;
 
 
 
if (a >= 100) and (a < 30000) then
     begin
     b:= a mod 7;
 
         if b = 0 then
         begin
            c:= c + 1;
            goto inc;
         end;
 
 
      end;
 
      Else
      begin
      writeln ('chislo', a, 'ne udovletvoryet promezutku');
      writeln ('povtorite ego vvod');
      goto inc;
      end;
 
 
out:
writeln ('kolichestvo chisel: ', c);
readln;
writeln ('you want to out ?  y\n');
if vop = 'y' then end.
else goto nach;
end.
там есть скрин самой ошибки...
ошибку указывает на слово else на 2 скрине я его выделил

заранее спасибо...!
Миниатюры
ошибка 113 error in statment   ошибка 113 error in statment  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.03.2012, 16:50
Ответы с готовыми решениями:

Ошибка 113 error in statement
Здравствуйте! у меня есть задание: исправить ошибки в программе и записать правильный вариант. Я кое-что исправила (например, оператор Goto...

Error 113 in statement Памагите
Error 113 in statement вот эту ошибку выдает компилятор при выполненнии моей программы слушайте помогите кто чем може достало уже...

Ошибка: const Error 113: Error in statement
const nmax=100; var a: array of real; i,j,d,n,m: integer; begin randomize; write('Введите размеры массива n,m: '); ...

2
 Аватар для Zombi_sib
379 / 332 / 89
Регистрация: 26.05.2010
Сообщений: 750
14.03.2012, 17:34
Подправил, но проверить не на чем, работать должно!
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
program schet;
uses crt;
var a, b, c: integer;
var vop: string;
label inc, out, nach;
begin
nach:
clrscr;
writeln ('enter ather chisla');
writeln ('for last chisla, enter 0');
 
 
 
 
 
 
inc:
read (a);
if a = 0 then goto out;
 
 
 
if (a >= 100) and (a < 30000) then
     begin
     b:= a mod 7;
 
         if b = 0 then
         begin
            c:= c + 1;
            goto inc;
         end;
 
 
      end
 
      Else
      begin
      writeln ('chislo', a, 'ne udovletvoryet promezutku');
      writeln ('povtorite ego vvod');
      goto inc;
      end;
 
 
out:
writeln ('kolichestvo chisel: ', c);
readln;
writeln ('you want to out ?  y\n');
if vop = 'y' then end.
else goto nach;
end.
0
 Аватар для BumerangSP
4311 / 1423 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
14.03.2012, 18:21
Да что там править? Нужно просто навсегда запомнить, что в паскале перед else никогда не должна находиться точка с запятой ";" или просто точка ".". И еще: в 49-й строчке вместо "end." нужно написать, к примеру, "exit".
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.03.2012, 18:21
Помогаю со студенческими работами здесь

Ошибка в программе 113 error is statement
ошибка в прогрмме 113 error is statement Program z3; Uses Crt; Var x,a,y,f:real; begin ClrScr; x:=sin(18.1283)/cos(18.1283);...

Ошибка инструкции (Error 113 in statement)
Сделал программу ну в самом конце программы перед End. выдаёт ошибку 113 Ошибка инструкции(Error 113 in statement)я ёё не могу найти можит...

Вращение отрезка и ошибка "Error 113. Error in statement"
Здравствуйте, встретил старый студенческий листинг реализации задачи: &quot;Отрезок, поворачивающийся на 15° при нажатии клавиши «пробел» и...

Просьба найти ошибку. Пишет: Error 113: Error in statement
program BoolLogic; uses Crt; var A:real; begin writeln('+---+---+----+----+-----+-----+-----+-----+'); writeln('| ^ | v |...

Программа выдает ошибки error 85 и error 113
Program Chisl; var {Opredelim peremennye dlya hraneniya dannyh} N,counter:Integer;i:Byte; begin {Vvedem N} ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru