Как сделать проверку в строке "для дурака" с авто-заменой "," на "." - иначе вылетает - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Помогите в программу "запилить" проверку ввода символа (Base, Pawer) "для дурака" с авто-заменой ',' (естественно не читающейся) на соответствующую '.' ; Запутался окончательно с типами данных, поэтому то что накуралесил показывать не cтану, а в общем виде все выглядит так:
Из разряда "Я пытался":

Решение задачи: «Как сделать проверку в строке "для дурака" с авто-заменой "," на "." - иначе вылетает»

textual
Листинг программы
var Power,code: integer; {степень} 
     Base: double; {число}
     s:string;
...........................
repeat
write('Введите основание :');
readln(s);
val(s,base,code);
if code<>0 then writeln('Введите действительное число');
until code=0;
repeat
write('Введите степень :');
readln(s);
val(s,Power,code);
if code<>0 then writeln('Введите целое число');
until code=0;

Объяснение кода листинга программы

  1. Объявляются переменные Power, code типа integer и Base типа double.
  2. В цикле repeat-until читается ввод пользователя и проверяется на ноль (чтобы прервать цикл).
  3. Для каждой переменной (Power, code, Base) вызывается функция val, которая проверяет введенные данные и преобразует их в допустимый формат. Если данные недопустимы, выводится сообщение об ошибке.
  4. После успешного преобразования данных, переменная code проверяется на ноль. Если ноль, то цикл повторяется, иначе выводится сообщение о том, что введено действительное число.
  5. После ввода всех данных, переменная Power проверяется на ноль. Если ноль, то цикл повторяется, иначе выводится сообщение о том, что введено целое число.
  6. Цикл repeat-until продолжается до тех пор, пока все условия для ввода данных выполняются.

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы