Разработка алгоритмов и программ с использованием множеств для решения задач

@DefaltVen · Регистрация: 11.01.2021

Author24 — интернет-сервис помощи студентам

Здравствуйте, нужна помощь в написании программы, заранее большое спасибо.
В задаче задается множество. Составить программу, которая должна
вводить множество, выводить его, производить вычисления или
преобразования, указанные в таблице, и выводить полученные результаты.
Данные для отладки выбирать самостоятельно.
Условие задачи:
Даны два множества символов A и B. Построить и вывести
разности этих множеств (A-B и B-A).

Добавлено через 2 часа 17 минут
Под "производить вычисления или
преобразования, указанные в таблице", подразумевается само условие задачи.

@Puporev · 12.01.2021, 07:11

Delphi

{$R *.dfm}
type mnz=set of char;
procedure Init(var m:mnz);
var i:integer;
    c:char;
begin
m:=[];
for i:=1 to 20 do
 begin
  c:=chr(65+random(26));
  include(m,c);
 end;
end;
procedure Println(m:mnz;l:Tlabel);
var c:char;
begin
l.Caption:='';
for c:='A' to 'Z' do
if c in m then l.Caption:=l.Caption+' '+c;
end;
procedure razn(m1,m2:mnz;var m3:mnz);
begin
m3:=m1-m2;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,ab,ba:mnz;
begin
Init(a);
Println(a,Label2);
Init(b);
Println(b,Label4);
Razn(a,b,ab);
Println(ab,Label6);
Razn(b,a,ba);
Println(ba,Label8);
end;

@DefaltVen 0 / 0 / 0 Регистрация: 11.01.2021 Сообщений: 5
		1
	Delphi 6-7 Разработка алгоритмов и программ с использованием множеств для решения задач 12.01.2021, 00:16. Показов 1358. Ответов 1 Метки delphi 7 (Все метки) Здравствуйте, нужна помощь в написании программы, заранее большое спасибо. В задаче задается множество. Составить программу, которая должна вводить множество, выводить его, производить вычисления или преобразования, указанные в таблице, и выводить полученные результаты. Данные для отладки выбирать самостоятельно. Условие задачи: Даны два множества символов A и B. Построить и вывести разности этих множеств (A-B и B-A). Добавлено через 2 часа 17 минут Под "производить вычисления или преобразования, указанные в таблице", подразумевается само условие задачи. 0

	12.01.2021, 07:11

Разработка алгоритмов и программ с использованием множеств для решения задач

Решение