Ошибка времени выполнения: Входная строка имела неверный формат

24.02.2014, 18:35. **Показов** 1298. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Здравствуйте, я начинающий программист и изучаю Paskal ABC. У меня возникла проблема. Есть программа:
Program P1;

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
Var
  a: real;
  b: real;
  Text: integer;
  addition: integer;
  subtraction: integer;
 Begin 
    Writeln('Добро пожаловать!');
    Writeln('Это калькулятор.');
    repeat
  Writeln('Введите число a');
  Write('Число a = ');
  Readln(a); { *** <--- *** }
  Writeln('Введите число b');
  Write('Число b = ');
   Readln(b);
  Writeln('Для сложения нажмите цифру 1');
  Writeln('Для вычитания нажмите цифру 2');
  Writeln('Для умножения нажмите цифру 3');
  Writeln('Для деления нажмите цифру 4');
  Write('Вы выбрали ');
   Readln(addition);
  Write('Результат = ');
   If addition = 1 
    then Writeln(a + b) 
     else If addition = 2
    then Writeln(a - b)
     else If addition = 3
    then Writeln(a * b)
     else If addition = 4
    then Writeln(a / b)
     else If addition > 4
    then Writeln ('Пожалуйста вводите числа только от 1 до 4, начните сначала');
    Writeln ('Желаете повторить? (Введите "Да" = 1 или "Нет" = 2) ');
     Read(Text);
    Until Text = 2;
     WriteLn ('Спасибо, что вы пользовались нашим калькулятором!');
     Writeln ('До встречи!')
End.

При ее выполнение, если переменная Text: integer, то программа выполняется правильно, а если переменная Text: сhar, то выдается ошибка(.pas(14) : Ошибка времени выполнения: Входная строка имела неверный формат.) в строчке выделенной полужирным и подчеркиванием. Подскажите пожалуйста как исправить эту ошибку.

@RAFISTAUR · 24.02.2014, 18:56

У меня нормально работает.
Только если сделать "text:char;" то пишет что в "until"-e двойку в апострофы взять надо.

Добавлено через 1 минуту
p.s вы изучаете pascal abc или pascal abc.net. Если pascal abc то создайте тему в нужном разделе.

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@RAFISTAUR 8 / 8 / 12 Регистрация: 16.12.2013 Сообщений: 79
	24.02.2014, 18:56
	У меня нормально работает. Только если сделать "text:char;" то пишет что в "until"-e двойку в апострофы взять надо. Добавлено через 1 минуту p.s вы изучаете pascal abc или pascal abc.net. Если pascal abc то создайте тему в нужном разделе. 0