Опубликовано 6 лет назад по предмету Информатика от warveis

сделайте пожалуйста ту же самую программу только с процедурой
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.

Ответ

Ответ дан mixtern

Пойдёт?
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.
1. Ответ
  
  Ответ дан mixtern
  
  Пойдёт?
  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.
2. Ответ
  
  Ответ дан mixtern
  
  var x,y,y1,y2,y3:real;
  function st(b,b1:real):real;
  begin
  st:=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;
  begin
  write('x');
  readln(x);
  work;
  writeln('y',y);
  end.
3. Ответ
  
  Ответ дан mixtern
  
  ПОСЛЕДНИЙ это исправленный
4. Ответ
  
  Ответ дан warveis
  
  подпрограма должна быть в виде процедуры.То есть место функции процедура
5. Ответ
  
  Ответ дан mixtern
  
  понял

Самые новые вопросы

Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 6 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 6 лет назад

Почему япония - лидер по выплавке стали?

Математика - 6 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.