Вопрос по информатике:
Лёгкая задача по информатике паскаль.
По заданному числу x и целому n вычислить x^n используя цикл repeat...until.
Пожаловаться
- 15.11.2017 06:59
- Информатика
- remove_red_eye 19966
- thumb_up 9
Ответы и объяснения 1
Var x,xn:real; n,i:integer;
begin
readln(x,n);
xn:=1; i:=0;
repeat
i:=i+1;
xn:=xn*x;
until i=abs(n);
if n<0 then xn:=1/xn;
writeln(x:3:1,'^',n,' = ',xn:6:4);
end.
Пример:
2 -3
2.0^-3 = 0.1250
begin
readln(x,n);
xn:=1; i:=0;
repeat
i:=i+1;
xn:=xn*x;
until i=abs(n);
if n<0 then xn:=1/xn;
writeln(x:3:1,'^',n,' = ',xn:6:4);
end.
Пример:
2 -3
2.0^-3 = 0.1250
Пожаловаться
- 16.11.2017 14:54
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы