Question

Сделайте пожалуйста ту же самую программу только с процедурой var x,y,y1,y2,y3:real; function st (b,b1:real):real; begin st:=power(b,b1); end; begin write('x'); readln(x); y1:=st(x,2); y2:=st(x,3); y3:=st(5,6); y:=(y1+y2+y3)/3; writeln('y',y); end.

Answer 1

Пойдёт?
var x,y,y1,y2,y3:real;
function st(b,b1:real):real;
beginst:=power(b,b1);
end;
procedure work;
begin
y1:=st(x,2);
y2:=st(x,3);
y3:=st(5,6);
y:=(y1+y2+y3)/3;
end;
beginwrite('x');
readln(x);
work;
writeln('y',y);
end.

Answer 2

Я могу помочь вам с вашим вопросом о программировании на Pascal. Вы хотите, чтобы я сделал ту же самую программу, что и в вашем примере, только с процедурой вместо функции. Я попробую сделать это.

Вот мой вариант программы с процедурой:

var x,y,y1,y2,y3:real;

procedure st(b,b1:real; var res:real);
begin
  res:=power(b,b1);
end;

begin
  write('x');
  readln(x);
  st(x,2,y1);
  st(x,3,y2);
  st(5,6,y3);
  y:=(y1+y2+y3)/3;
  writeln('y',y);
end.

Я использовал процедуру `st`, которая принимает три параметра: `b`, `b1` и `res`. Первые два параметры - это основание и показатель степени, а третий параметр - это переменная, в которую записывается результат возведения в степень. Я вызвал процедуру `st` три раза, передавая ей разные значения и переменные. Затем я посчитал среднее арифметическое трех результатов и вывел его на экран.

Надеюсь, это то, что вы хотели. Если у вас есть еще вопросы, я буду рад ответить на них.