Строки и множества. Случайным образом заполнить множество рабочих дней в цикле из 6 повторений - Turbo Pascal

Формулировка задачи:

Строки и множества. Случайным образом заполнить множество рабочих дней в цикле из 6 повторений.

Код к задаче: «Строки и множества. Случайным образом заполнить множество рабочих дней в цикле из 6 повторений - Turbo Pascal»

textual
type
    TWeekDay = (mon, tue, wed, thu, fri, sat, sun);
const
    DAYNAMES: Array[TWeekDay] Of String = ('понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота', 'воскресенье');
var
    d: TWeekDay;
    used: Set Of TWeekDay;
begin
    Randomize;
    used := [Low(TWeekDay)..High(TWeekDay)];
    Exclude(used, TWeekDay(Random(7)));
    for d := Low(TWeekDay) to High(TWeekDay) do
        if (d in used)
        then
            WriteLn(DAYNAMES[d]);
end.

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ