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

Задача по теме множества

24.12.2018, 20:48. Показов 1813. Ответов 3

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

2. Вывод элементов множества в Memo оформите в виде процедуры OutSetMemo.

3. Решение задачи своего варианта также оформите в виде подпрограммы (процедуры или функции - на ваше усмотрение), которую нужно вызвать в обработчике события OnClick кнопки Button1.
Задайте константу-множество A, содержащее все простые числа от 1 до 50. Сгенерируйте случайное целое число N в пределах от 1000 до 10000, найдите все его различные простые делители из множества A и поместите в множество B. Элементы
множества A поместите в Memo1, число N - в Label1, элементы множества B - в Memo2.

скиньте всё в одном файле,пожалуйста. До четверга нужно сдать
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2018, 20:48
Ответы с готовыми решениями:

Задача по теме записи
1. Для работы необходимо создать новое приложение. 2. Объявите тип данных запись, а также...

Задача по теме «циклические алгоритмы»
Суточный рацион коровы составляет u кг сена, v кг силоса и w кг комбикорма. В хозяйстве, содержащем...

Задача по теме Множества
Есть список игрушек, некоторые из которых имеются в N детских садах. Определить игрушки из списка: ...

Задача по теме множества
Сконструируйте форму, на которой расположите компоненты в соответствии с условием задачи. Заметим,...

3
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.12.2018, 11:07 2
Лучший ответ Сообщение было отмечено латцпын как решение

Решение

Delphi
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
type mnz=set of byte;
const a:mnz=[2,3,5,7,11,13,17,19,23,29,31,37,39,41,43,47];
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure OutSetMemo(m:mnz;memo:TMemo);
var i:byte;
    s:string;
begin
s:='';
for i:=1 to 50 do
if i in m then s:=s+inttostr(i)+'  ';
memo.Lines.Add(s);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
    b:mnz;
begin
randomize;
n:=1000+random(9001);
Label2.Caption:='N='+inttostr(n);
Memo1.Clear;
Memo2.Clear;
b:=[];
for i:=2 to 50 do
if(i in a)and(n mod i=0) then include(b,i);
OutSetMemo(a,Memo1);
if b=[] then Memo2.Text:='Нет делителей из множества А'
else OutSetMemo(b,Memo2);
end;
Вложения
Тип файла: zip Множества.zip (194.9 Кб, 7 просмотров)
1
0 / 0 / 0
Регистрация: 24.12.2018
Сообщений: 32
25.12.2018, 18:55  [ТС] 3
А вы можете помочь с записями тоже в делфи?
1.Дан текстовый файл, содержащий строки. Найти максимальную длину строки в данном файле. Показать самую длинную строку файла. Если таких строк несколько, показать первую из них.
0
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.12.2018, 19:02 4
А при чем здесь записи? Записи это тип record.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2018, 19:02
Помогаю со студенческими работами здесь

По теме множества.Из диапазона целых чисел m... n выделить
Помогите ПЛЗ Из диапазона целых чисел m... n выделить: 1) множество чисел, делящихся без остатка...

Задача на файлы. Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе — все остальные.
1.Имя входного файла zmn26.in Имя выходного файла zmn26.out Имеется множество, содержащее...

задача по теме линзы
оптическая сила линзы 12 дптр определите расстояние от линзы до предмета, если избражение мнимое,...

Задача по теме 'Записи'
Помогите пожалуйста, по условию нужно вывести на экран работника, у которого стаж работника >= 10...

Задача по теме строки
Дан текст. Требуется напечатать все слова с удвоенной буквой "н". Вывести самое длинное и короткое...

Задача по теме функции
Мне дали задачу: на языке с++ записать объявления функций, выполняющих заданные действия. Написать...


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

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

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