Proc2. Описать процедуру PowerA234($$A$$, $$B$$, $$C$$, $$D$$), вычисляющую вторую, третью и четвертую степень числа $$A$$ и возвращающую эти степени соответственно в переменных $$B$$, $$C$$ и $$D$$ ($$A$$ — входной, $$B$$, $$C$$, $$D$$ — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти вторую, третью и четвертую степень пяти данных чисел.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
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 можно посмотреть здесь.
Комментарии: