Перевести строковое представление числа в числовое представление - Free Pascal

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

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

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

Решение задачи: «Перевести строковое представление числа в числовое представление»

textual
Листинг программы
var
  s : string;
  r : real;
  code : integer;
begin
  readln(s);
  Val(s, r, Code);
  if Code > 0 then writeln('Строка не является представлением вещественного числа')
  else writeln('Проверка: ', 2*r);
end.

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

  1. Объявляются три переменные: s (строка), r (реальное число), code (целое число).
  2. С помощью функции readln() в переменную s считывается строка из стандартного ввода.
  3. С помощью функции Val() происходит преобразование строки в реальное число с плавающей точкой, результат сохраняется в переменной r, а возвращаемое значение функции (код ошибки) сохраняется в переменной code.
  4. Если код ошибки больше нуля, то выводится сообщение об ошибке.
  5. Если код ошибки равен нулю, то выводится сообщение с проверкой (2*r), где 2 - это коэффициент, умножающий полученное число на два.

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

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