Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задачи по темам: сумма чисел, комбинированный тип, процедура.

Автор: Rocket 14.01.2007 0:58

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

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 14.01.2007 1:07

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

Автор: Rocket 14.01.2007 1:25

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

Автор: Denc2005 14.01.2007 1:34

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

Автор: volvo 14.01.2007 1:52

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

Вот третья - смотри, и доделывай...
http://forum.pascal.net.ru/index.php?s=&showtopic=5867&view=findpost&p=44496

Вот вторая (изменить придется несколько слов): http://forum.pascal.net.ru/index.php?s=&showtopic=10921&view=findpost&p=69170

Автор: Rocket 14.01.2007 2:27

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

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 14.01.2007 2:37

Цитата(Rocket @ 13.01.2007 22:27) *

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

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

Автор: Rocket 14.01.2007 2:52

Цитата(Malice @ 13.01.2007 22:37) *

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

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

Автор: Denc2005 14.01.2007 14:01

volvo, спасибо! smile.gif 


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 14.01.2007 16:22

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


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.

smile.gif