Выполнить проверку для задач с процедурой 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;

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

В данном коде происходит следующее:

  1. Объявляются три переменные: k, a и s. Переменная k типа integer, переменная a также типа integer, а переменная s типа string (строка).
  2. Запускается цикл repeat-until. В начале цикла выводится сообщение Введите к:.
  3. Считывается значение переменной s с помощью функции readln(). Значение переменной s сохраняется в переменную s.
  4. Вызывается процедура val(). Эта процедура принимает три аргумента: s, k и a. Аргумент s передается без кавычек, так как это строка. Аргументы k и a передаются в кавычках, так как они являются целочисленными переменными.
  5. Если значение переменной a не равно нулю, то выводится сообщение Это не целое число, повторите ввод.
  6. Цикл повторяется до тех пор, пока значение переменной a не станет равным нулю.

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

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