Задача на Множества!

[prosport91]

Народ выручай!! Такая вот задачка!!

Заданы имена девочек. Определить, какие из этих имен встречаются во всех классах данной параллели, которые есть только в некоторых классах и какие из этих имен не встречаются ни в одном классе.

Её нужно сделать с перечисляемым типом!!

Заранее спасибо!

[Sazary]

Ну так что непонятно? Объявляете несколько множеств (сколько классов).
Потом проверяете принадлежность заданных имен этим множествам.

[prosport91]

Не мог ли ты написать код программы? Буду очень благодарен!

[Sazary]

Ну если с перечисляемым типом, то как-нибудь так:

Uses Crt;
type
names = (anya,masha,lyuba,olya,kolya,zhenya);

Var
a,b,c : set of names;
mas : array[0..4] of string = ('anya','masha','lyuba','olya','kolya');
i : integer;
k : names;

Begin
ClrScr;
a := [anya,masha,lyuba];
b := [anya,masha,olya];
c := [anya,masha,kolya];
{----------}
writeln('Est vo vseh klassah: ');
for k := anya to zhenya do
 begin
 if (k in a) and (k in b) and (k in c) then
  write(mas[ord(k)],'  ');
 end;
writeln;
writeln;
writeln('Net ni v odnom klasse: ');
for k:=anya to zhenya do
 begin
 if not (k in a) and not (k in b) and not (k in c) then
  write(mas[ord(k)],'  ');
 end;
writeln;
writeln;
writeln('tolko v klasse A: ');
for k:=anya to zhenya do
 begin
 if (k in a) and not (k in b) and not (k in c) then
  write(mas[ord(k)],'  ');
 end;

Readln
END.

[prosport91]

спасибо !

[L_i_s]

:вводится строка<=79 символов,отдельные слова разделены в ней пробелами.Среди слов встречаются слова-целые числа в диапазоне от К1 до К2.Составить мн-во из тех чисел,которые кратны заданному числу М и не кратны числу N. По нему сформировать мн-во из тех чисел,которые меньше заданного числа.Вывод на экран обоих множеств.....может хотя бы логику кто сможет накидать,если несложно.спасибо!!!

[Sazary]

L_i_s, вам следовало бы создать свою тему, а не писать в чужих.

Выделяете из строки очередное число (как строку).

 Для этого идете посимвольно по строке.
  Пока текущий символ - пробел и еще не  достигли конца строки, увеличиваем счетчик.
  Очищаем строку-буфер.
  Пока текущий символ - не пробел и не достигли конца строки,
    пишем символы в буфер.
  Преобразуем буфер в число (с помощью val). Проверяем на кратность M и N. 
   Если число подходит, заносим его в множество.

[L_i_s]

спасибо огромное!!!!!!!!!!!!!!!!!!!прошу прощения что не создала свою тему не сориентировалась сначала на форуме

[L_i_s]

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

[Sazary]

L_i_s, давайте, все-таки, код вы напишете сами. Алгоритм выше. Осталось переписать его на паскале.
Если возникнут конкретные вопросы - задавайте.

Вы начните. А то ведь под лежачий камень вода не течет.
Будет что-то не получаться - выкладывайте код. Будем смотреть. Только темку, все-таки, лучше создать.