Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 17.11.2017
Сообщений: 1

Значение было недопустимо малым или недопустимо большим для знака

30.05.2018, 15:29. Показов 1892. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. Не могу понять почему не работает процедура. Пишет ошибку в 18 строчке(Read(FIn,ch)) : "Значение было недопустимо малым или недопустимо большим для знака"
Помогите пожалуйста!

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
procedure ReadProgramm(NameInFile:String);
 var Str:String;
     i:integer;
     ch:char;
     LA:boolean;
 begin
  Assign(FIn,NameInFile);
  Reset(FIn);
  Str:='';
  While Not EOF(FIn) do
   begin
    inc(NStr);
    i:=1;
    Str:='';
    ch:=' ';
    while (ch<>';')and (ch<>'.') do
     begin
      Read(FIn,ch);
      if (ch<>#10) and (ch<>#13) then
       Str:=Str+ch;
      if ch=#26 then
       begin
        Writeln(NStr,' Пунктуационная ошибка');
        Readln; 
        Halt;
       end;
      inc(i);
     end;
    Read(Fin,ch);
    Read(Fin,ch);
    if Str='конец.'then
     begin
      LA:=False;
      Writeln(FOut);
      Write(FOut,'     ','END');
     end;
    if SA then SintAn(Str);
    if SA then TranslProgr(Str);
    if Pos(MasLex[1],Str)<>0 then
     begin
      Name(Pos(MasLex[1],Str),Str);
     end;
    if Pos(MasLex[10],Str)<>0 then
     begin
      PTable(Pos(MasLex[10],Str),Str);
      LA:=True;
     end;
   end;
  Close(FIn);
 end;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.05.2018, 15:29
Ответы с готовыми решениями:

Ошибка времени выполнения: значение было недопустимо малым или недопустимо большим для знака
program ex4; var fin: text; fout: text; funcWords: array of string; qWords: array of integer; //частота слова ...

Значение было недопустимо малым или недопустимо большим для Int32 по Pascal ABC.NET
Вопрос такой, у меня имеется txt файл, с ранее записанными значениями матрицы (матрица из 0,1,2,3,4). Я пытаюсь считать из файла значения...

Ошибка времени выполнения: System.ArgumentException: Значение 'null' недопустимо для 'stream'
Строка: MainForm.Icon := new Icon(GetResourceStream('icon.ico'));

2
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
30.05.2018, 19:15
Скорее всего, ошибка та же самая:
Ошибка времени выполнения: значение было недопустимо малым или недопустимо большим для знака
Приложите весь текст программы и исходный файл.
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
31.05.2018, 07:22
Ошибка не совсем та, как её описывает IDE…
Да, собственно, в PABC.NET очень много ошибок звучат совсем не так, как должны ;–(

10 строка делает проверку, что ещё не достигли конца файла.
Сразу после этой проверки мы имеем право на чтение.

А вы во вложенном цикле (16 строка) читаете файл без всяких проверок!

Не проще ли считать весь файл в строку и потом делать с ней все ваши непонятные манипуляции как с обыкновенным массивом:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure ReadProgramm(NameInFile:String);
begin
  var all := ReadAllText(NameInFile);
  // вот так
  foreach var c in all do
    Print(Format(' {0} - {1} ', c, ord(c)));
  WriteLn;
  WriteLn('~'*100);
  // или вот так
  for var i := 1 to all.Length do
    begin
      var c := all[i];
      Print(Format(' {0} - {1} ', c, ord(c)));
    end;
  WriteLn;
end;
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.05.2018, 07:22
Помогаю со студенческими работами здесь

Значение было недопустимо малым или недопустимо большим для Decimal
Проблема в заголовке темы. Имеем: Dictionary &lt;double, double&gt; f2 = gcnew Dictionary&lt;double, double&gt;(); Вычисляется функция типа...

Значение было недопустимо малым или недопустимо большим для UInt32
Добрый день, есть парсер sqllite таблиц, нашел на просторах интернета и возникает такая беда при чтении таблиц, если в таблице есть данные,...

Ошибка при запуске программы: Значение '-1' недопустимо для 'index'
Доброго времени суток, помогите решить проблему со значением index. При запуске программы вылетает ошибка: &quot;Необработанное...

При отладке возникает ошибка InvalidArgument - Значение '-1' недопустимо для 'index'
Вот код: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; ...

Ошибки System.ArgumentOutOfRangeException: Значение '3022' недопустимо для 'Value'. 'Value' должно лежать в диапазоне от
System.ArgumentOutOfRangeException: Значение '3022' недопустимо для 'Value'. 'Value' должно лежать в диапазоне от 'minimum' до 'maximum'. ...


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

Или воспользуйтесь поиском по форуму:
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