![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 28.05.2011
Сообщений: 1
|
![]()
Проблемма такая, нужно создать программку, которая будет собирать данные о товарах,считывать их и выводить в блокнот. программка сделанна.
Нужно проверить что вводит человек, если вводится цифра, то процедура записывает эту цифру в a.kolvo и работает дальше, а если вдруг вводится буква, то выводится сообщение об ошибке и процедура заканчивает свою работу. проблемма в том, что val работает только со string, а у меня integer или real. Помогите пожалуйста, как реализовать эту проверку? ![]() program kursovik; uses crt; type tovar=record naim:string[10]; ed:string[12]; kolvo:integer; cena:integer; itog:real; end; var a:tovar; bb:text; i:byte; ........... procedure vvod; var code:integer;n:real;kolwo:string; ..... Writeln('vvedite kol-vo prodannogo'); readln(kolwo); val(kolwo,n,code); if code<>0 then begin writeln('error,nazmite enter',code); break; end; a.kolvo:=kolwo writeln('vvedite ceny'); readln(a.cena); a.itog:=a.kolvo*a.cena; ................................... .. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задание с циклами: ввод и проверка чисел.(Pascal) | swillrocker | Помощь студентам | 4 | 04.05.2011 20:37 |
Выполнить разные вычисления в зависимости от значения переменной. (Pascal) | p0weR | Помощь студентам | 3 | 12.03.2011 11:40 |
[Pascal] Обработка Массивов переменной длины | TidalAeon | Помощь студентам | 1 | 06.12.2009 18:40 |
Двумерный массив с динамической переменной Pascal | AxisNet | Помощь студентам | 1 | 17.11.2009 14:33 |
Работа с файлами (создание, удаление, открытие, связываение с переменной, очищение памяти переменной) | Arkuz | Общие вопросы Delphi | 12 | 25.09.2007 20:47 |