Числовая последовательность задана рекуррентной формулой:

[Витя007]

инфа2.jpgЗадать с консоли два первых члена последовательности и . Найти первые n членов последовательности и их сумму.
Результаты вычислений вывести в виде таблицы с заголовком.

[Mandrivnyk]

С/С++/С#, паскаль.
Сделаю быстро и недорого.
Аська под аватаром.

[Витя007]

спс я сделал но там ошибка((

[BDA]

Ну так показывайте, как сделали

[Витя007]

[/CODE]

Ну так показывайте, как сделали

тут бред какой то((

program Vitjok_part2;
uses crt;
var s,a1,a2,a:real; k,n:byte;
begin
Write('a1=');
readln(a1);
Write('a2=');
readln(a2);
write('n=');
readln(n);
Writeln;

Writeln('-----------------') ;
writeln(' k a s');
writeln('-----------------');
s:=sqrt(a2)/exp(1/3*ln(a1));
For k:=3 To n Do
begin
a:=sqrt(a2)/exp(1.0/3.0*ln(a1));
s:=s+a;
a1:=a2;
a2:=a;
Writeln(k:3, ' ',a:3, ' ',s:3);

end;
Writeln('-----------------');
writeln;
end.

думаю что проблема в этом s:=sqrt(a2)/exp(1/3*ln(a1));

[BDA]

Во-первых, пользуйтесь кнопочкой # для оформления кода.
Во-вторых, код почти правильный.

uses
  crt;

var
  s, a1, a2, a3: double;
  k, n: integer;

begin
  Write('a1 = ');
  readln(a1);
  Write('a2 = ');
  readln(a2);
  write('n = ');
  readln(n);
  Writeln;
  
  Writeln('---------------------------------');
  writeln('k', chr(9), 'a', chr(9), 's');
  writeln('---------------------------------');
  s := a1 + a2;
  Writeln(1:3, chr(9), a1:5:3, chr(9), a1:5:3);
  Writeln(2:3, chr(9), a2:5:3, chr(9), (a1 + a2):5:3);
  for k := 3 To n Do
  begin
    a3 := sqrt(a2) / exp(1 / 3 * ln(a1));
    s := s + a3;
    a1 := a2;
    a2 := a3;
    Writeln(k:3, chr(9), a3:5:3, chr(9), s:5:3);  
  end;
  writeln('---------------------------------');
  readln;
end.

Чуть-чуть исправил вывод. Нужно было правильно инициализировать s.
А1 и А2 должны быть положительными, а n >= 2.

[Витя007]

спасибо большое))