Геометрическая прогрессия. Вычислить k-1 и к-ые члены геометрической прогрессии и сумму первых n членов

23.05.2012, 19:32. **Показов** 1182. **Ответов** 0

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

Заданы первый член а, знаменатель q, количество членов к геометрической прогрессии. Вычислить k-1 и к-ые члены геометрической прогрессии и сумму первых n членов Sn. Если Sn≥10, то вычислить процентное отношение первого и последнего членов геометрической прогрессии .
помогите написать программку..запуталась.

Добавлено через 9 часов 38 минут
Нашла программу на форуме каком-то, она считает сумму n-члена геометрической прогрессии, идёт в начале. Только я не понимаю, что значит - writeln (n, ' - element prog = ', element_n:0:4) - вот этот кусок, что за :0:4 ?? и в условии запуталась. Пожалуйста, исправьте ошибки.

Pascal

program prog;
var b, q, q_new, summa_n, element_n,P: real;
   i: integer;
   n, k: integer;
 
begin
     q_new := 1;
     write ('first 4len');
     readln (b);
     write ('znamenatel prog');
     readln (q);
     write ('nomer elementa');
     readln (n);
     write ('koli4estvo firsts elements');
     readln (k);
for i := 1 to n - 1 do
begin
     q_new := q_new * q;
end;
 
element_n := b * q_new;
writeln (n, ' - element prog = ', element_n:0:4);
q_new := 1;
for i := 1 to k do
begin
     q_new := q_new * q;
end;
    if q =1 then summa_n := k * b;
    if q <> 1 then summa_n := (b * (q_new - 1)) / (q - 1);
    writeln (' summa ', k, 'firsts elems = ', summa_n:0:4);
    readln;
if(summa_n>=10) then
                  P:=(b/q_new)*100;
                  writeln(q_new,summa_n,P);
                  writeln ('b= ',b, 'summa_n= ', summa_n, 'q_new= ',q_new, 'q =',q,'k=',k,'P=',P);
      readln;
      END.

Добавлено через 23 часа 57 минут
ну хоть кто-нибудь, пожалуйста..

	23.05.2012, 19:32