Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N.

@sameperson · Регистрация: 20.04.2010

Author24 — интернет-сервис помощи студентам

1) Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N.

2) Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1-A+A^2-A^3+...+(-1)^N*A^N.

@DeLuxe · 21.04.2010, 00:10

1)

Pascal

program tmp;
uses crt;
var a,sum:real;
i:integer;
n:word;
begin
clrscr;
readln(a);
readln(n);
sum:=0;
for i:=0 to n do sum:=sum+exp(ln(a)*i);
write(sum:3:2);
readkey;
end.

Добавлено через 6 минут
2)

Pascal

program tmp;
uses crt;
var a,sum:real;
i,buf:integer;
n:word;
begin
clrscr;
readln(a);
readln(n);
sum:=0;
for i:=0 to n do begin
                 if odd(i) then buf:=-1 else buf:=1;
                 sum:=sum+buf*exp(ln(a)*i);
                 end;
write(sum:3:2);
readkey;
end.

@sameperson 0 / 0 / 0 Регистрация: 20.04.2010 Сообщений: 5
		1
	Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N. 20.04.2010, 23:29. Показов 10823. Ответов 1 Метки нет (Все метки) 1) Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N. 2) Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1-A+A^2-A^3+...+(-1)^N*A^N. 0

	21.04.2010, 00:10

Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N.

Решение