Описать процедуру PowerA3(A, B), вычисляющую третью степень числа

@Светлана25 · Регистрация: 17.02.2013

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

@ntrx · 28.04.2013, 18:32

Pascal

program dfdsfds;
uses
    Crt;
var
    A, B : real;
    n1, n2, n3, n4, n5 : real;
    q1, q2, q3, q4, q5 : real;
 
procedure PowerA3(A : real; var B : real);
begin
    B := A*A*A;
end;
 
begin
    write('input 5 numbers: ');
    readln(n1,n2,n3,n4,n5);
    PowerA3(n1,q1);
    PowerA3(n2,q2);
    PowerA3(n3,q3);
    PowerA3(n4,q4);
    PowerA3(n5,q5);
    writeln;
    writeln(n1,'=',q1);
    writeln(n2,'=',q2);
    writeln(n3,'=',q3);
    writeln(n4,'=',q4);
    writeln(n5,'=',q5);
    
    readkey;
end.

@Светлана25 0 / 0 / 0 Регистрация: 17.02.2013 Сообщений: 73
		1
	Описать процедуру PowerA3(A, B), вычисляющую третью степень числа 28.04.2013, 16:48. Показов 12376. Ответов 1 Метки нет (Все метки) Описать процедуру PowerA3(A, B), вычисляющую третью степень числа A и возвращающую ее в переменной B (A — входной, B — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел. 0

Опции темы

Описать процедуру PowerA3(A, B), вычисляющую третью степень числа

Решение