Версия для печати темы

Автор: chad1s 21.12.2010 0:30

 Program Lab9;
type 
 dnined= set of (pn,vt,sr,cht,pt,sb,vs);
var
 days:dnined;
 l,n:byte;
begin
 writeln('Множество рабочих дней');
 writeln('');
 days:=[];
 randomize;
 l:=0;
 for l:=1 to 6 do
  begin
   n:=random(6);
   {case n of}
   days:=days+[dnined(n)];
  end;
if (pn in days) then writeln('pn');
if (vt in days) then writeln('vt');
if (sr in days) then writeln('sr');
if (cht in days) then writeln('cht');
if (pt in days) then writeln('pt');
if (sb in days) then writeln('sb');
if (vs in days) then writeln('vs');
readln;
end.

Автор: Freedom 21.12.2010 1:00

Цитата(chad1s @ 20.12.2010 20:30)

Автор: chad1s 21.12.2010 1:03

Цитата(Freedom @ 20.12.2010 21:00)

Автор: -TarasBer- 21.12.2010 1:49

Цитата(chad1s @ 20.12.2010 20:30)

 Program Lab9;
type 
 dnined= set of (pn,vt,sr,cht,pt,sb,vs);
var
 days:dnined;
 l,n:byte;
begin
 writeln('Множество рабочих дней');
 writeln('');
 days:=[];
 randomize;
 l:=0;
 for l:=1 to 6 do
  begin
   n:=random(6);
   {case n of}
   days:=days+[dnined(n)];
  end;
if (pn in days) then writeln('pn');
if (vt in days) then writeln('vt');
if (sr in days) then writeln('sr');
if (cht in days) then writeln('cht');
if (pt in days) then writeln('pt');
if (sb in days) then writeln('sb');
if (vs in days) then writeln('vs');
readln;
end.

const DayNames: array [dnined] of string = (
  'понедельник',
  'вторник',
  'среда',
  'четверг',
  'пятница',
  'суббота',
  'воскресенье'
);
...
var
  d: dnined;
...
for d := Low(dnined) to High(dnined) do if d in days then WriteLn(DayNames[d]);

Автор: chad1s 21.12.2010 3:49

да я что то не разберусь там с

randomize;
 l:=0;
 for l:=1 to 6 do
  begin
   n:=random(6);
   {case n of}
   days:=days+[dnined(n)];
  end;

Автор: TarasBer 21.12.2010 14:52

В каком смысле?
Надо, чтобы 6 элементов были разные, а у тебя могут быть одинаковые? Тебе это не нравится?
Ну тогда смотри.
У тебя из 7 дней надо 6 пометить выбранными, а 1 невыбранным.
Поэтому пишем

Sel := 6;
NoSel := 1;

for d := Low(dnined) to High(dnined) do begin
  if random(Sel+NoSel) < Sel then begin
    include(days, d);
  end else begin
  end;
end;

for d := Low(dnined) to High(dnined) do begin
  if random(Sel+NoSel) < Sel then begin
    Include(days, d);
    Dec(Sel);
    // один выбрали, учитываем это
  end else begin
    Dec(NoSel);
  end;
end;

Автор: volvo 21.12.2010 15:20

type
  enum = (pn,vt,sr,cht,pt,sb,vs);
  dnined= set of enum;
const
  DayNames: array[enum] of string =
  (
    'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun'
  );

var
  Days: dnined;
  E: Enum;
begin
  Randomize;
  Days := [Low(enum) .. High(enum)];
  Exclude(Days, Enum(Random(Ord(High(Enum))))); { Просто убираем один - случайный }

  for E := Low(enum) to High(enum) do
  begin
    if E in Days then writeln(DayNames[E]);
  end;
readln;
end.

Автор: TarasBer 21.12.2010 15:45

> Просто убираем один - случайный

Ну для 6 дней так лучше.
А потом препод внезапно попросит сделать не 6 разных дней, а 4. И "просто убрать 3 случайных" окажется задачей, эквивалентной "выбрать 4 случайных".

Автор: chad1s 21.12.2010 20:50

Цитата(chad1s @ 20.12.2010 23:49)

randomize;
 l:=0;
 for l:=1 to 6 do
  begin
   n:=random(6);
   {case n of}
   days:=days+[dnined(n)];
  end;

Автор: TarasBer 21.12.2010 20:59

Там вольво уже ответил, что сначала надо задать тип
WeekDay = (pn,vt,sr,cht,pt,sb,vs);
А потом уже
dnined = set of WeekDay;
А приводить, понятно, не к dnined уже, а к WeekDay

Автор: chad1s 21.12.2010 21:33

Цитата(TarasBer @ 21.12.2010 16:59)