IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задачи по темам: сумма чисел, комбинированный тип, процедура.
сообщение
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


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

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-вектора.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


В поиске посмотрел ничего не нашёл. nea.gif
Мне хотя бы по первой задачи подсказка нужна.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


volvo, может поможешь...мне тоже нужны эти задачи... smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






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

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

Вот вторая (изменить придется несколько слов): Записи
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Первую решил:
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.


А вот со второй так и не втыкну что-то...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


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

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

Ты сумму 13-ти чисел нашел..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Знаток
****

Группа: Пользователи
Сообщений: 306
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


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

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

Спасибо. Я понял.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


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.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


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

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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.09.2020 18:53
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name