Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Genezis13
0 / 0 / 0
Регистрация: 12.05.2014
Сообщений: 2
1

Удалить все элементы массива, являющиеся числами Фибоначчи

12.05.2014, 14:14. Просмотров 1242. Ответов 2
Метки нет (Все метки)

1.Дан массив A из N элементов (натуральные числа), удалить все элементы являющимися числами Фибоначчи.
2.Дан массив A из N элементов (натуральные числа), сформировать новый массив B из элементов массива A являющимися палиндромами.
Заранее спасибо.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2014, 14:14
Ответы с готовыми решениями:

Выдать элементы массива, являющиеся простыми числами
Помогите пожалуйста с программой:составить функцию,проверяющую, является ли заданное натуральное...

Из заданного массива удалить уникальные (не повторяющиеся) элементы, являющиеся совершенными числами
Написать программу. Дан одномерный массив А. Из этого массива удалить уникальные ( не...

Вывести все элементы последовательности, являющиеся трехзначными числами, кратными семи
Напишите программу обработки последовательности целых чисел. На вход программе сначала подается...

Найти элементы одномерного массива из N элементов, являющиеся простыми числами
В целочисленном одномерном массиве из N(N\geq 50)элементов есть только один нулевой.Вывести на...

Удаление строк и столбцов матрицы, где все элементы являются числами Фибоначчи
Здравствуйте, помогите написать программу! Удалить строки и столбцы матрицы, где все элементы...

2
erl27
900 / 748 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
12.05.2014, 17:08 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Genezis13 Посмотреть сообщение
1.Дан массив A из N элементов (натуральные числа), удалить все элементы являющимися числами Фибоначчи.
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
34
35
36
37
38
39
40
41
42
///определяет, является ли число N числом Фибоначчи
function fibonachi(N: integer): boolean;
var
  A: array[1..1000] of integer;
begin
  a[1] := 0; a[2] := 1;
  var i: byte := 2;
  while a[i] < N do 
  begin
    inc(i);
    a[i] := a[i - 1] + a[i - 2]
  end;
  result := (a[i] = N)
end;
 
var
  A: array[1..100] of integer;
 
begin
  randomize;
  var N := random(1, 100);
  writeln('Массив ', N, ' случайных чисел:');
  for var i := 1 to N do begin
    a[i] := random(100);
    write(a[i], ' ')
  end;
  writeln;
  writeln;
  write('Удаленные числа Фибоначчи: ');
  var k : byte := 0;
  for var i := 1 to N do
    if not fibonachi(a[i]) then begin //число a[i] НЕ число Фибоначчи
      inc(k);
      a[k] := a[i]
    end
    else write(a[i], ' ');
  if k = N then write('их нет');
  writeln;
  writeln;
  writeln('Массив без чисел Фибоначчи:');
  for var i := 1 to k do write(a[i], ' ') //выводим массив с удаленными числами Фибоначчи
end.
Добавлено через 11 минут
Цитата Сообщение от Genezis13 Посмотреть сообщение
2.Дан массив A из N элементов (натуральные числа), сформировать новый массив B из элементов массива A являющимися палиндромами.
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
34
35
36
37
38
39
///функция проверяет, является ли число палиндромом
function palindrom(j: Uint64): boolean;  
var
  t, m: byte;
  s: string;
begin
  result := true; //сначала считаем число палиндромом
  s := IntToStr(j); //число превращаем в строку
  m := Length(s); //длина этой строки
  for t := 1 to (m div 2) do //проверяем до середины числа совпадение цифр с разных концов
    if s[t] <> s[m - t + 1] then begin //при совпадении цифр выходим
      result := false;
      break
    end
end;
 
var
  A, B: array[1..1000] of Uint64;
 
begin
  randomize;
  var N := random(1, 1000);
  var j := 0;
  writeln('Массив ', N, ' случайных чисел:');
  for var i := 1 to N do begin
    a[i] := random(100000);
    write(a[i], ' ');
    if palindrom(a[i]) then begin //если a[i] палиндром
      inc(j);
      b[j] := a[i] //то находим b[j]
    end
  end;
  writeln;
  writeln;
  write('Числа-палиндромы:');
  if j > 0 then
    for var i := 1 to j do write(' ', b[i]) 
  else write(' таких чисел нет')
end.
0
Genezis13
0 / 0 / 0
Регистрация: 12.05.2014
Сообщений: 2
13.05.2014, 20:47  [ТС] 3
Большое спасибо за ответ!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2014, 20:47

Сформировать новый массив, содержащий все элементы исходного массива, являющиеся палиндромами
Сформировать новый массив, содержащий все элементы исходного массива, являющиеся палиндромами.(ввод...

Удалить из вектора все элементы, которые не являются совершенными числами
Помогите пожалуйста с задачей. Буду очень благодарна! С клавиатуры вводятся длина (&lt;=100)...

Создать стек со случайными целыми числами. Удалить все элементы, равные первому
Создать стек со случайными целыми числами. Удалить все элементы, равные первому.


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

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

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