Question

ПАСКАЛЬ. составьте программу для вычисления выражений а) a=1+2x^2*y^5/x-10 б) b=(sqr x^2+4-3)/(y^3) +3xy

Answer 1

Ответ:

А)

program name1;

var x,y,a:real;

begin

 writeln('Введите x и y');

 readln(x,y);

 a:=(1+2*x*x*y*y*y*y*y/x-10);

 writeln('a=',a);

end.

Б)

program name2;

var x,y,b:real;

begin

 writeln('Введите x и y');

 readln(x,y);

 b:=(sqr(x*x+4-3)/(y*y*y)+3*x*y);

 writeln('b=',b);

end.

Answer 2

Конечно, вот программы на языке Pascal для вычисления данных выражений:

а) a = (1 + 2 * x * x * y * y * y * y) / (x - 10)

pascalCopy code
program CalculateExpressionA;
var
  x, y, a: real;
begin
  write('Введите значение x: ');
  readln(x);
  write('Введите значение y: ');
  readln(y);

  if (x - 10) = 0 then
    writeln('Ошибка: деление на ноль')
  else
  begin
    a := (1 + 2 * x * x * y * y * y * y) / (x - 10);
    writeln('Результат a = ', a);
  end;
end.

б) b = ((x * x + 4 - 3) / (y * y * y)) + (3 * x * y)

pascalCopy code
program CalculateExpressionB;
var
  x, y, b: real;
begin
  write('Введите значение x: ');
  readln(x);
  write('Введите значение y: ');
  readln(y);

  if y = 0 then
    writeln('Ошибка: деление на ноль')
  else
  begin
    b := ((x * x + 4 - 3) / (y * y * y)) + (3 * x * y);
    writeln('Результат b = ', b);
  end;
end.

Обратите внимание, что в этих программах предполагается, что ввод пользовательских значений x и y будет корректным. В случае деления на ноль, программа выдаст сообщение об ошибке.