Указатели Опции

[SoulDrinker]

Пусть a1 = 1; а2 = 1.5; ai = a[i/2]a[i/3] + 1 (i = 3, 4, ...). Дано натуральное m. Получить am.

[volvo]

Делаем так:

Код

type
 floatArr = array[1 .. maxint div sizeof(real)] of real;
var
 i, m: integer;
 pArr: ^floatArr;

begin
 write('m = '); readln(m);
 getmem(pArr, m*sizeof(real));
 pArr^[1] := 1; pArr^[2] := 1.5;
 for i := 3 to m do
   pArr^[i] := pArr^[i Div 2] * pArr^[i Div 3] + 1;
 WriteLn('a[', m, '] = ', pArr^[m]:10:4);
 freemem(pArr, m*sizeof(real));
 ReadLn
end.

Сообщение отредактировано: volvo - 4.12.2004 17:30