Question

Помогите пожалуйста, где ошибки Program hello;var a,x,y:real;var a:=-pi;var x1:=8.3;var x2:=0;var x3:=-5.7;begin readln(a,x); if ax<0 then y := sgrt(x)+2*a else if ax=0 then y := 1.38*a+x else y := exp(1/3*ln(a*x)); writeln('y=',y);end.

Answer 1

program hello;

var

a, x, y: real;

begin

readln(a, x);

if (a * x < 0) then

y := sqrt(x) + 2 * a ;

if (a * x = 0) then

y := 1.38 * a + x ;

if (a * x > 0) then

y := exp((1 / 3) * ln(a * x)) ;

writeln('y=', y);

end.

Примечания:

1. В Паскале нельзя объявлять значения переменных в области var.

Можно только в программе.

Либо присвоением, либо вводом с клавиатуры(readln, которое есть в этой программе)

2. Паскаль не поддерживает 2 и более else.

3.Не sgrt, а sqrt (от английского square root)

Answer 2

Конечно, я помогу вам. В коде есть несколько ошибок, и я расскажу вам, как их исправить.

Вот исправленный вариант вашей программы:

pascalCopy code
Program hello;
uses Math; // Добавляем модуль Math для использования функций sqrt, exp и ln

var
  a, x, y: real;
  x1: real = 8.3; // Используем инициализацию при объявлении переменных
  x2: real = 0;
  x3: real = -5.7;

begin
  readln(a, x);
  
  if a * x < 0 then // Заменяем "ax" на "a * x"
    y := sqrt(x) + 2 * a // Заменяем "sgrt" на "sqrt"
  else if a * x = 0 then // Заменяем "ax" на "a * x"
    y := 1.38 * a + x
  else
    y := exp(1/3 * ln(a * x)); // Заменяем "1/3*ln" на "1/3 * ln"
  
  writeln('y=', y);
end.

Исправления, которые были внесены:

1. Убрано повторное объявление переменной a.
2. Исправлено сравнение ax на a * x в условиях.
3. Заменена функция sgrt на sqrt для вычисления квадратного корня.
4. Добавлена необходимость использования модуля Math для функций sqrt, exp и ln.
5. Исправлено умножение в аргументах функций, например, 1/3 * ln(a * x) вместо 1/3*ln(a*x).

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