Задачи по темам: сумма чисел, комбинированный тип, процедура. Опции

[Rocket]

Помогите пожалуйста решить эти задачи. Или хотя бы подскажите метод решения.

1)Найти сумму двенадцати рекулентных чисел, где x0=x1=1, x[k]=0.7*x[k-1]+1.1*x[k-2].
k-коэффициент, k=1,2,3,4...12.

2)Описать параметры книги, где предусмотреть выдачу книги по фамилии автора.

3)Описать процедуру (x,y,z), которая вычисляла z=x+y, и с её помощью вычислялся вектор d=a+b+c, где
a,b,c-вектора.

[volvo]

А в поиск заглянуть? Вторая и третья решались точно, первая - было что-то ОЧЕНЬ похожее... Так что ищи...

[Rocket]

В поиске посмотрел ничего не нашёл.
Мне хотя бы по первой задачи подсказка нужна.

[Denc2005]

volvo, может поможешь...мне тоже нужны эти задачи...

[volvo]

Всем нужны... Я же говорю, было... Что я, еще раз решать буду?

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

Вот вторая (изменить придется несколько слов): Записи

[Rocket]

Первую решил:

Program Seventh;
Var x,x1,x0,s:real; k:integer;
Begin
x0:=1; x1:=1; k:=2; s:=2;
for k:=2 to 12 do
begin
x:=0.7*x1+1.1*x0;
s:=s+x;
x0:=x1;
x1:=x;
end;
write(s);
readln;
end.

А вот со второй так и не втыкну что-то...

[Malice]

Первую решил:

Ты сумму 13-ти чисел нашел..

[Rocket]

Ты сумму 13-ти чисел нашел..

Спасибо. Я понял.

[Denc2005]

volvo, спасибо!

program pr1;
 var rez:real;n:integer;
  Function Fib (n:real):real;
   Begin
     If n=0 then fib:=1;
     If n=1 then fib:=1;
     If n>1 then fib:=0.7*fib(n-1)+1.1*fib(n-2);
   end;
 begin
  For n:=2 to 11 do rez:=rez+fib(n);
  Writeln(rez+2);
 readln;
end.

[Denc2005]

Вот вторая...

program books;
type
  book=record
    abtor:string;
    nazbanie:string;
    ctr:word;
    god:word;
    end;
var
  fb:array[1..10] of book;
  ff:string;
  i,j,m,n:byte;
  key:boolean;
begin
 writeln('Bbedite kol. knig');
  readln(n);
 m:=0;
 repeat
  m:=m+1;
  Writeln('Bbedite abtora');
   readln(fb[m].abtor);
  Writeln('Bbedite nazbanie knigi');
   readln(fb[m].nazbanie);
  Writeln('Bbedite kol. ctranic');
   readln(fb[m].ctr);
  Writeln('Bbedite god');
   readln(fb[m].god);
 until m=n;
 For m:=1 to n do
 begin
   writeln('Hauti no Abtory');
    readln(ff);
   i:=0;key:=false;
 Repeat
   i:=i+1;
   If fb[i].abtor=ff then key:=true until key or (i=m);
 If key then Writeln(fb[i].abtor,' ',fb[i].nazbanie,' ',fb[i].ctr,' ',fb[i].god) else
 Writeln('Het');
 end;
 end.