0 / 0 / 0
Регистрация: 02.07.2018
Сообщений: 39
1

Используя операции со множествами, выделите подмножество чисел Фибоначчи, кратных некоторому заданному числу A...

10.10.2018, 09:59. Показов 1046. Ответов 1
Метки нет (Все метки)

Задание:
Построить множество чисел Фибоначчи. Используя операции со множествами, выделите подмножество чисел Фибоначчи, кратных некоторому заданному числу 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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Program Task_01_Set;
Type
   T0=Byte;
   T = Set Of T0;
 
Procedure Property_Set_1(Var X: T);
   Var a: Byte; b,c: Word;
Begin
   X := []; a := 1; b := 1;
   Repeat
      If b >= Ord(Low(T0)) Then X := X+[T0(b)];
      c := a+b; a := b; b := c
   Until b > Ord(High(T0));
End;
Procedure Property_Set_2(D: Byte; Var X: T);
   Var j: Byte; s: String;
Begin
   X := [];
   For j := Ord(Low(T0)) To Ord(High(T0)) Do
      If j Mod D = 0 Then X := X+[T0(j)];
End;
Function Count_Set(Var X: T): Byte;
   Var E: T0; K: Byte;
Begin
   K := 0;
   For E := Low(T0) To High(T0) Do If E In X Then K := K+1;
   Count_Set := K;
End;
Procedure Task(D: Byte; Var K: Byte; Var X: T);
   Var X1,X2: T;
Begin
   Property_Set_1(X1);
   Property_Set_2(D,X2);
   X := X1*X2;
   K := Count_Set(X);
End;
Procedure SetWrite(X: T);
   Var E: T0;
Begin
   For E := Low(T0) To High(T0) Do
      If E In X Then Write(E,' '); WriteLn;
End;
Var
   X: T; D,K: Byte;
Begin
   Write('D? '); ReadLn(D);
   Task(D,K,X);
   If X = [] Then WriteLn('Результирующее множество пусто')
   Else Begin
      WriteLn('Элементы множества:'); 
      SetWrite(X);
      WriteLn('Количество элементов = ',K);
      End;
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2018, 09:59
Ответы с готовыми решениями:

Построить множество чисел Фибоначчи; найти подмножество чисел, кратных A
Построить множество чисел Фибоначчи. Используя операции со множествами, выделите подмножество чисел...

Вычислить сумму членов последовательности натуральных чисел, кратных и не кратных заданному числу
Дана последовательность натуральных чилел А. Вычислить сумму членов последовательности, кратных и...

Если два числа кратны некоторому заданному числу, то большее из этих чисел уменьшить в 2 раза.
1. Даны два числа. Если эти числа кратны некоторому заданному числу, то большее из этих чисел...

Отбор чисел кратных заданному числу
Отбор чисел кратных заданному числу. Входные данные: число А и набор целых чисел. Выходные данные:...

1
5021 / 2608 / 2332
Регистрация: 10.12.2014
Сообщений: 9,930
10.10.2018, 11:06 2
Лучший ответ Сообщение было отмечено nas99 как решение

Решение

Эта программа написана не на PascalABC.NET! — Вот что здесь не так.

Вам же я уже писал программу: Построить множество чисел Фибоначчи; найти подмножество чисел, кратных A
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2018, 11:06
Помогаю со студенческими работами здесь

Определить количество трехзначных чисел, кратных заданному числу
Определить количество трехзначных чисел, кратных заданному числу

Определить количество чисел из промежутка от X до Y, кратных заданному числу
я только начала изучать этот язык,помогите решить задачку через FOR!пожалуйста,очень нужно...

Определение количества трехзначных чисел, кратных заданному числу
Помогите решить, пожалуйста Составить программу для определения количества трехзначных чисел,...

Найти сумму нечётных чисел кратных заданному числу
#include<iostream> using namespace std; main() { setlocale(LC_ALL,"Russian"); cout<<"Ââåäèòå...

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

Посчитать в одномерном массиве количество элементов кратных некоторому числу к
посчитать в одномерном массиве количество элементов кратных некоторому числу к Сделать ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru