Строки и множества, есть наработки чуть чуть подправить программу Опции

[chad1s]

 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.

.

помогите плз)

Сообщение отредактировано: chad1s - 20.12.2010 20:31

[-TarasBer-]

 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]);