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

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

Решение:

program Proc2;
procedure  PowerA234(A: Real; var B,C,D :Real);
begin
  B:=A*A;
  C:=B*A;
  D:=C*A;
end;

var
  X,X2,X3,X4: Real;
  I:Integer;
begin
 for i:=1 to 5 do
  begin
   Write('Введите число: ');
   Readln(X);
   PowerA234(X,X2,X3,X4);
   Writeln('Вторая степень числа ',X,' равна: ',X2);
   Writeln('Третья степень числа ',X,' равна: ',X3);
   Writeln('Четвёртая степень числа ',X,' равна: ',X4);
  end;
end.

program Proc2;

procedure PowerA234(A: Real; var B,C,D :Real);

begin

B:=A*A;

C:=B*A;

D:=C*A;

end;

var

X,X2,X3,X4: Real;

I:Integer;

begin

for i:=1 to 5 do

begin

Write('Введите число: ');

Readln(X);

PowerA234(X,X2,X3,X4);

Writeln('Вторая степень числа ',X,' равна: ',X2);

Writeln('Третья степень числа ',X,' равна: ',X3);

Writeln('Четвёртая степень числа ',X,' равна: ',X4);

end;

end.

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

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

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

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