Вопрос по информатике:
Даны действительное число А и натуральное N. Вычислить S= 1/A + 1/A^2 .....+(1/A^N) с помощью рекурсии. РЕБЯТА СРОЧНО ПОМОГИТЕ СЕГОДНЯ ВЕЧЕРОМ НУЖНО
- 01.07.2016 02:16
- Информатика
- remove_red_eye 10629
- thumb_up 13
Ответы и объяснения 1
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,s,a1:real;
i,j,n:integer;
procedure subsqr(var i,j:integer;var a1,a:real);
begin;
if ij then
begin;
inc(j);
a1:=a1*a;
subsqr(i,j,a1,a);
end;
end;
begin;
readln(a);
if a=0 then exit;
readln(n);
j:=1;
for i:=1 to n do
begin;
a1:=a;
subsqr(i,j,a1,a);
s:=s+1/a1;
j:=1;
end;
writeln(s);
end.
Пример ввода:
2
2
Пример вывода:
0.75
- 02.07.2016 01:03
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.