Выполнить проверку для задач с процедурой val - Turbo Pascal
Формулировка задачи:
Приветствую всех.
Нужно выполнить проверку для задач с процедурой val для данных задач.
Решение задачи: «Выполнить проверку для задач с процедурой val»
textual
Листинг программы
var k, a: integer; s:string; begin repeat writeln('Введите к:'); readln(s); val(s,k,a); if a<>0 then write('Это не целое числ, повторите ввод'); until a=0;
Объяснение кода листинга программы
В данном коде происходит следующее:
- Объявляются три переменные: k, a и s. Переменная k типа integer, переменная a также типа integer, а переменная s типа string (строка).
- Запускается цикл repeat-until. В начале цикла выводится сообщение
Введите к:
. - Считывается значение переменной s с помощью функции readln(). Значение переменной s сохраняется в переменную s.
- Вызывается процедура val(). Эта процедура принимает три аргумента: s, k и a. Аргумент s передается без кавычек, так как это строка. Аргументы k и a передаются в кавычках, так как они являются целочисленными переменными.
- Если значение переменной a не равно нулю, то выводится сообщение
Это не целое число, повторите ввод
. - Цикл повторяется до тех пор, пока значение переменной a не станет равным нулю.