Составить программу Pascal для вычисления отрицательной степени через цикл for без использования pow.
BobbyFresnel:
Отрицательной степени чего?
Ответы
Ответ дал:
1
Ответ:
var degree: integer;
number, res: real;
flag: boolean;
begin
res:= 1;
writeln('Число, степень:');
readln(number, degree);
if(degree < 0) then
begin
for var i := 1 to -degree do
res := res / number;
end
else
for var i := 1 to degree do
res := res * number;
writeln(res);
end.
Объяснение:
Ответ дал:
1
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад