Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2006, 21:50   #1
Neket
Новичок
Джуниор
 
Регистрация: 19.12.2006
Сообщений: 1
По умолчанию Хелп плизз!!! Задача по множествам.

Задача:Из 2ух множеств составить новое путем обьеденения.Определить сколько и каких больше чисел в множестве: четных илши нечетных.
вывести мно-вол на экран.
Главная пробелема состоит в том что я незнаю как обьявить их (учебника нет конспекта по этой теме нет ) Хелп плизз завтра сдавать
Neket вне форума Ответить с цитированием
Старый 20.12.2006, 17:21   #2
Юдифь
 
Аватар для Юдифь
 
Регистрация: 10.12.2006
Сообщений: 6
По умолчанию

Код:
uses crt;
const n=10;
type number=0..20;
var
      x,y,z:set of number;
      m1,m2:integer;
      i:integer;
      xc:number;
  begin
    clrscr;
    randomize;
    x:=[];
    y:=[];
    for i:=1 to n do begin
        x:=x+[random(20)];
        y:=y+[random(20)];
    end;
    z:=x+y;
    m1:=0;
    m2:=0;
    write('Объединенное множество z=[');
    for xc:=0 to 2*n do
       if xc in z then begin
          if xc mod 2=0 then
             m1:=m1+1
             else
             m2:=m2+1;
          write(xc,' ')
       end;
    writeln(']');
    writeln('чётных чисел ',m1);
    writeln('­нечётных чисел ',m2);
   readln;
end.
Юдифь вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача в Pascale по множествам,помогите решить Student35 Помощь студентам 13 31.01.2008 11:21
Очень нужна помощь по МНОЖЕСТВАМ (Delphi) Olgasato Помощь студентам 3 14.11.2007 13:10
плизз! finch Помощь студентам 1 15.06.2007 22:33