Question

Составить программу вычисления выражения: {3*X, если X ≤ 0Y= {1/X , если X > 0ПОМОГИТЕ ПОЖАЛУЙСТА, НАДО НА ЗАВТРА!!! Смотреть ответ nedro nedro program p1; var     x:integer;   y:real; begin   WriteLn('Введите число');   ReadLn(x);       if x <= 0 then     begin       y:=3*x;     end;          if x > 0 then     begin       y:=1/x;     end;           WriteLn(y); end.

Answer 1

Программа, которую вы составили, содержит некоторые ошибки, которые я исправлю. Вам следует учитывать правильный синтаксис языка программирования (Pascal, как я предполагаю, посмотрев на код).

Вот исправленный вариант программы на языке Pascal:

pascalCopy code
program p1;
var
  x: integer;
  y: real;

begin
  WriteLn('Введите число');
  ReadLn(x);

  if x <= 0 then
  begin
    y := 3 * x;
  end
  else
  begin
    y := 1 / x;
  end;

  WriteLn(y);
end.

Обратите внимание на следующие исправления:

1. В Pascal используются ключевые слова program, var, begin, end, и т.д. Не стоит заменять их на символы и пробелы, как в вашем примере.

2. Объявления переменных (например, x и y) разделяются точкой с запятой.

3. Условие x <= 0 проверяется с помощью оператора if, а условие x > 0 обрабатывается с помощью else. Ваша исходная программа содержала два отдельных блока if.

Теперь программа должна работать правильно. Она запрашивает у пользователя значение x, затем вычисляет y в соответствии с условиями {3*X, если X ≤ 0 и {1/X , если X > 0}, после чего выводит результат на экран.