Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачи по темам: сумма чисел, комбинированный тип, процедура.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
В поиске посмотрел ничего не нашёл. nea.gif
Мне хотя бы по первой задачи подсказка нужна.
Denc2005
volvo, может поможешь...мне тоже нужны эти задачи... smile.gif
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
Цитата(Rocket @ 13.01.2007 22:27) *

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

Ты сумму 13-ти чисел нашел..
Rocket
Цитата(Malice @ 13.01.2007 22:37) *

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

Спасибо. Я понял.
Denc2005
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
Вот вторая...

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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.