! Процедуры ! Pascal !

[valerka92]

Описать процедуру Power A3 (A , B) Вычисляющую третью
степень числа А и возращающую ее переменной В ( A - входной
В выходной Параметр Оба параметпа вещественные )
С помощью этой процедурв найти третьи степени пяти данных чисел


Срочно ! Всем Спасибо !

[Grag]

Умножай число А само на себя три раза - вот тебе и куб числа А и возвращай результат в В!!!

[Филантроп]

var a1,b1:real;
i:integer;
procedure power3(a:real;var b:real);
begin
b:=a*a*a;
end;
begin
for i:=1 to 5 do
begin
readln(a1);
power3(a1,b1);
writeln('a^3=',b1);
end;
readln;
end.

[valerka92]

Спасибо Большое ! Выручил !
Жалко нет webmoney
А то бы отблагодарил !!!
Не только словами !!!

[valerka92]

Спасибо Большое ! Выручил !
Жалко нет webmoney
А то бы отблагодарил !!!
Не только словами !!!
1