Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2011, 13:53   #1
WheelieJoe
Новичок
Джуниор
 
Регистрация: 28.05.2011
Сообщений: 1
Вопрос Pascal: проверка переменной

Проблемма такая, нужно создать программку, которая будет собирать данные о товарах,считывать их и выводить в блокнот. программка сделанна.

Нужно проверить что вводит человек, если вводится цифра, то процедура записывает эту цифру в 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;
................................... ..
WheelieJoe вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задание с циклами: ввод и проверка чисел.(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