Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

Задача:Из 2ух множеств составить новое путем обьеденения.Определить сколько и каких больше чисел в множестве: четных илши нечетных.
вывести мно-вол на экран.
Главная пробелема состоит в том что я незнаю как обьявить их (учебника нет конспекта по этой теме нет ) Хелп плизз завтра сдавать
Neket вне форума   Ответить с цитированием
Старый 20.12.2006, 18: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.
Юдифь вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


14:40.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.