Question

Program usi; Var d,r: real; Begin writeln('ВЕДИТЕ ЧИСЛ'); Readln (d); if d>0.655 THEN write(r=sqrt(d)) else IF d<=0.65 THEN write (r=3-2*d); readln(d) End. выдаёт ошибку: Ошибка времени выполнения: Входная строка имела неверный формат и указывает на readln. Помогите как решить проблему ?

Answer 1

Ответ:

program rad;

var d: real;

begin

writeln('Введите число');

readln(d);

if d>0.655 then write ('r=', sqrt(d));

if d<0.655 then write ('r=', 3-2*d);

readln;

end.

Answer 2

Проблема в вашем коде связана с тем, что вы неправильно используете операторы присваивания (:=) в выражениях. Также есть некоторые структурные проблемы. Давайте внесем необходимые изменения:

pascalCopy code
Program Example;
Var
  d, r: Real;

Begin
  writeln('Введите число');
  Readln(d);

  if d > 0.655 then
    r := sqrt(d)
  else
    if d <= 0.65 then
      r := 3 - 2 * d;

  writeln('Результат: ', r);

  readln; // Подождать, пока пользователь введет что-либо
End.

В этом коде я внес несколько изменений:

1. В операторе присваивания используется оператор := вместо =.

2. Добавлена строка вывода результата (writeln('Результат: ', r);), чтобы вывести значение переменной r.

3. Добавлена команда readln; в конце программы, чтобы программа не завершалась сразу, а ожидала ввода от пользователя.

Теперь код должен корректно работать.