Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
2 / 2 / 0
Регистрация: 15.10.2012
Сообщений: 76
1

Переписать из массива А в массив В те элементы массива А,индексы которых являются числами Фибоначчи

15.10.2012, 21:49. Просмотров 1106. Ответов 2
Метки нет (Все метки)

Здравствуйте!
Я уже не знаю что делать,не получается
Вот сама задача:Переписать из массива А в массив В те элементы массива А,индексы которых являются числами фибоначчи 1,2,3,5,13,21,34... Число Фибоначчи определяется как сумма предыдущего и последующего числа.Например:8=3+5,13=5+8 ...

Вот код,но мне выдаёт ошибку:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
var mas,mas2,fib : array [1..maxint] of integer;
i,j,n : integer;
begin
n:=6;
for i:=1 to n do begin
if i=1 then fib[i]:=1
else if i=2 then fib[i]:=2
else fib[i]:=fib[i-2]+fib[i-1]
end;
 
writeln('числа фибоначи'); 
for i:=1 to n do write(fib[i]:4);
writeln;
 
writeln('случайные числа : ');
randomize;
for i:=1 to n do begin
mas[i]:=random(14);
write(mas[i]:4);
end;
writeln;
 
for i:=1 to n do begin
for j:=1 to n do begin
if mas[j]=fib[i] then mas2[i]:=mas[j];
end;
end;
writeln('переписываем числа в отдельный масив');
for i:=1 to n do write(mas2[i]:4);
writeln;
 
end.
Паскал пишет: error 96:too many variables

Заранне благодарен!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.10.2012, 21:49
Ответы с готовыми решениями:

Переписать из массива А в массив В те элементы массива А, индексы которых являются степенями двойки (1,2,4,8,16,…)
Помогите пожалуйста, нужна программа и блок схема

Дано массив из 100 чисел. Напечатать те элементы массива, индексы которых являются степенями двойки
1.Дано массив из 100 чисел. Напечатать те элементы массива, индексы которых являются степенями...

Напечатать те элементы массива, индексы которых являются квадратами.
1. const n = ...; var s : array of integer; Напечатать те элементы массива s, индексы которых...

Напечатать те элементы массива, индексы которых являются степенями двойки
Дан целочисленный массив с количеством элементов n. Напечатать те его элементы, индексы которых...

2
124 / 120 / 54
Регистрация: 10.02.2011
Сообщений: 202
15.10.2012, 22:11 2
Цитата Сообщение от bladzher Посмотреть сообщение
var mas,mas2,fib : array [1..maxint] of integer;
для начала попробуй заменить maxint на число
0
2 / 2 / 0
Регистрация: 15.10.2012
Сообщений: 76
15.10.2012, 23:10  [ТС] 3
Заработала спасибо

Только вот что-то программа не правильно работает вроде как
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.10.2012, 23:10

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Напечатать те элементы массива, индексы которых являются степенями двойки
Напечатать те элементы массива, индексы Являются степенями двойки

Выведите на экран такие элементы массива, у которых индексы являются степенями двойки
Дан одномерный массив A целых чисел. Выведите на экран такие его элементы, у которых: 1) индексы...

Сформировать массив B из элементов массива A, индексы которых являются делителями числа C
народ, помогите с присваиванием значений одного массива другому и правильного вывода . вот...

Вычислить сумму и вывести на печать те его элементы массива, индексы которых являются степенями двойки
Дан целочисленный массив x(N) , N>15 вычислить сумму и вывести на печать те его элементы ,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.