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

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

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

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

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

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

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

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

2
901 / 749 / 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
0 / 0 / 0
Регистрация: 12.05.2014
Сообщений: 2
13.05.2014, 20:47  [ТС] 3
Большое спасибо за ответ!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2014, 20:47

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

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

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

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

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


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

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

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