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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2006, 19:58   #1
Загадка
 
Регистрация: 16.11.2006
Сообщений: 1
Восклицание Помогите,пожалуйста,исправить задачу...

Вот набранное условие:
http://katelinka.narod.ru/ysl.doc
и решение:
http://katelinka.narod.ru/51.PAS
У меня такая проблема:выдаётся неправильный ответ...
Загадка вне форума Ответить с цитированием
Старый 21.12.2006, 00:42   #2
Юдифь
 
Аватар для Юдифь
 
Регистрация: 10.12.2006
Сообщений: 6
По умолчанию

Код:
uses crt;
const N=3;
Type  sport=(liji,konki,hokkey,futbol,regbi,sambo) ;
      group_all=array[1..n] of set of sport; {vidi sporta v gruppax}
var
      x:sport;
      group,group_rez:group_all;
      i:integer;
      iw:byte;
  begin
    clrscr;
    for I:=1 to n do
      begin
         group[i]:=[];
         writeln('vvedite nomera vidov sporta',I,'-j gruppi,0 - exit: ');
         repeat
            readln(iw);
            Case iw of
               1:x:=liji;
               2:x:=konki;
               3:x:=hokkey;
               4:x:=futbol;
               5:x:=regbi;
               6:x:=sambo;
            else
               if iw<>0 then writeln('nomera vidov sporta 1..6');
            end;{case}
            group[i]:=group[i]+[x];{vidi sporta v odnoj gruppe}
         until iw=0;
      end; {konec cicla po gruppam}
  {polycenie mnogestv A,B,C}
      group_rez[1]:=group[1]+group[2]+group[3];
      group_rez[2]:=group[1]*group[2]*group[3];
      group_rez[3]:=[];
      for x:=liji to sambo do
          if (x in group_rez[1]) = false then group_rez[3]:=group_rez[3]+[x];

      for I:=1 to 3 do
      begin
        case i of
           1:writeln('vidi sporta,kotorimi zanimautsa xota bi v odnoj gruppe:');
           2:writeln('vidi sporta,kotorimi zanimautsa vo vsex gruppax:');
           3:writeln('vidi sporta,kotorimi ne zanimautsa vo vsex gruppax:');
        end;
        for x:=liji to sambo do begin
           if x in group_rez[i] then
               Case x of
                   liji:write('  liji    ');
                   konki:write('  konki    ');
                   hokkey:write('  hokkey    ');
                   futbol:write('  futbol    ');
                   regbi:write('  regbi    ');
                   sambo:write('  sambo    ');
               end;
        end;
   writeln;
   end;
   readln;
end.

Последний раз редактировалось Alar; 21.12.2006 в 00:46. Причина: надо было текст скопировать.
Юдифь вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста найти и исправить ошибку Sam04 Паскаль, Turbo Pascal, PascalABC.NET 4 10.06.2008 08:28
помогите доделать(исправить) задачу по массиву braza Паскаль, Turbo Pascal, PascalABC.NET 2 29.04.2008 19:54
помогите пожалуйста исправить задачу kardan Помощь студентам 2 12.04.2008 10:16
Пожалуйста помогите исправить несколько задач Shatyn Помощь студентам 5 25.06.2007 20:20