Дана программа, содержащая синтаксические и алгоритмические ошибки. Исправить их - Pascal ABC

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

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

Дана программа, содержащая синтаксические и алгоритмические ошибки. Исправить их. Представить правильный вариант программы и проверить его тестами

Решение задачи: «Дана программа, содержащая синтаксические и алгоритмические ошибки. Исправить их»

textual
Листинг программы
Program sig;
Var
  I: integer;
  x,y,z: real;
 
function sign(a:real):real;
var
  s:real;
begin
  if a>0 then s:=1;
  if a<0 then s:=-1;
  if a=0 then s:=0;
  sign:=s;
end;
 
begin
  writeln(' Введите числа x,y');
  readln(x,y);
  for i:=1 To 5 Do
    begin
      z:= i*(sign(x)+ sign(y));
      writeln('z= ',z:8:3);
    end;
  readln;
end.

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

  1. Объявляются переменные I, x, y, z типа integer и real соответственно.
  2. Создается функция sign(a:real), которая возвращает значение -1, если a отрицательное, 1, если a положительное, и 0, если a равно нулю.
  3. В основной программе:
    • Выводится сообщение для ввода чисел x, y.
    • Считываются два числа x, y.
    • В цикле for выполняется пять раз.
      • Вычисляется значение z как сумма или разность значений x и y, умноженных на знак каждого из чисел (функция sign(x) и sign(y)).
      • Выводится значение z.
    • Программа завершается после чтения последнего значения z.

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

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