Question

Паскаль , помогите Ввести число и вывести на экран сообщение о том, является ли это число положительным, отрицательным или это число ноль. записать результат в файл.

Answer 1

Var

n : integer

Begin

Writeln(n);

If n>0 then writeln('число положительное');

If n<0 then writeln('число отрицательное');

If n=0 then writeln('число равно нулю');

End.

Answer 2

Для выполнения этой задачи в языке программирования Паскаль, вы можете использовать следующий код. В этом примере мы будем использовать процедуры и работу с файлами для ввода числа, определения его знака и записи результата в файл.

pascalCopy code
program CheckNumberSign;

var
  num: integer;
  resultStr: string;
  outputFile: text;

begin
  // Открываем файл для записи результата
  Assign(outputFile, 'result.txt');
  Rewrite(outputFile);

  // Ввод числа
  Write('Введите число: ');
  Readln(num);

  // Определение знака числа
  if num > 0 then
    resultStr := 'Положительное число'
  else if num < 0 then
    resultStr := 'Отрицательное число'
  else
    resultStr := 'Число ноль';

  // Вывод результата на экран
  Writeln(resultStr);

  // Запись результата в файл
  Write(outputFile, resultStr);

  // Закрываем файл
  Close(outputFile);
end.

Этот код сначала открывает файл 'result.txt' для записи. Затем он запрашивает у пользователя ввод числа, определяет его знак и записывает результат в файл. Результат также выводится на экран. Когда программа завершает выполнение, результат будет записан в файл 'result.txt'.