Решаем задачи Абрамян на Паскале. Proc1

Proc1. Описать процедуру PowerA3($$A$$, $$B$$), вычисляющую третью степень числа $$A$$ и возвращающую ее в переменной $$B$$ ($$A$$ — входной, $$B$$ — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел.

Решение:

program Proc1;

procedure PowerA3(A:Real; var B:Real);
begin
B:=A*A*A;
end;

var
  i:Integer;
  A,B:Real;
begin
 for i:=1 to 5 do
  begin
   Write('A: ');
   Readln(A);
   PowerA3(A,B);
   Writeln(B);
  end;
end.

program Proc1;

procedure PowerA3(A:Real; var B:Real);

begin

B:=A*A*A;

end;

var

i:Integer;

A,B:Real;

begin

for i:=1 to 5 do

begin

Write('A: ');

Readln(A);

PowerA3(A,B);

Writeln(B);

end;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc1

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ