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

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

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

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

Ответ
 
Опции темы
Старый 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. Причина: надо было текст скопировать.
Юдифь вне форума Ответить с цитированием
Ответ

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

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS