Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/34: Рейтинг темы: голосов - 34, средняя оценка - 4.68
0 / 0 / 1
Регистрация: 11.06.2010
Сообщений: 64
1

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает

26.09.2010, 13:06. Показов 6874. Ответов 3
Метки нет (Все метки)

Реализация нужно с помощью множеств.
Лучше написать весь текст программы, а не маленький кусочек Спасибо за понимание
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.09.2010, 13:06
Ответы с готовыми решениями:

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.
Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств...

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

множества:задано некоторое множество...
Решите пожалуйста задачу: Задано некоторое множество M и множество Т того же типа.Подсчитать...

Подсчитать сколько элементов из множеств T и M совпадает
Задано некоторое множество M= и множество T= того же типа. Подсчитать сколько элементов из множеств...

3
Почетный модератор
64083 / 47492 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
26.09.2010, 16:26 2
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
uses crt;
var m,t:set of 'A'..'Z';
    i,k:byte;
    c:'A'..'Z';
begin
clrscr;
randomize;
m:=[];
t:=[];
for i:=1 to 20 do
 begin
  c:=chr(random(26)+65);
  m:=m+[c];
  c:=chr(random(26)+65);
  t:=t+[c];
 end;
writeln('Множество M:');
for c:='A' to 'Z' do
if c in m then write(c,' ');
writeln;
writeln;
writeln('Множество T:');
for c:='A' to 'Z' do
if c in t then write(c,' ');
writeln;
writeln;
writeln('Совпадающие элементы:');
k:=0;
for c:='A' to 'Z' do
if (c in m)and (c in t)then
 begin
  k:=k+1;
  write(c,' ');
 end;
writeln;
if k=0 then write('Совпадающих элементов нет!')
else write('Всего совпадает = ',k);
readln
end.
2
1 / 1 / 0
Регистрация: 23.11.2012
Сообщений: 17
20.05.2013, 11:07 3
запишите эту прогу в делфи срочно нужно
0
Почетный модератор
64083 / 47492 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
20.05.2013, 11:50 4
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
procedure TForm1.Button1Click(Sender: TObject);
var m,t:set of 'A'..'Z';
    i,k:byte;
    c:'A'..'Z';
begin
randomize;
m:=[];
t:=[];
for i:=1 to 20 do
 begin
  c:=chr(random(26)+65);
  m:=m+[c];
  c:=chr(random(26)+65);
  t:=t+[c];
 end;
for c:='A' to 'Z' do
if c in m then Edit1.Text:=Edit1.Text+' '+c;
for c:='A' to 'Z' do
if c in t then Edit2.Text:=Edit2.Text+' '+c;
k:=0;
for c:='A' to 'Z' do
if (c in m)and (c in t)then
 begin
  k:=k+1;
  Edit3.Text:=Edit3.Text+' '+c;
 end;
if k=0 then Edit4.Text:='Ñîâïàäàþùèõ ýëåìåíòîâ íåò!'
else Edit4.Text:='Âñåãî ñîâïàäàåò = '+IntToStr(k);
end;
Вложения
Тип файла: rar 123.rar (165.9 Кб, 8 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2013, 11:50

Подсчитать, сколько элементов из множеств T и M совпадает
Задано некоторое множество М и множество T того же типа. Подсчитать, сколько элементов из множеств...

Подсчитать, сколько элементов из множеств Т и М совпадает
Задано некоторое множество М и множество Г того же типа. Подсчитать, сколько элементов из множеств...


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

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

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