Сколько времени убила на решение этой задачи, сколько народа замучала, чтобы помогли... Результатов нет. Не одного разумного решения задачи с поставленными условиями.

Задача:
Дано: type деньнедели=(пн,вт,ср,чт,пт,сб,вс);
Var wd:деньнедели; t: boolean;
Требуется переменной t присвоить значение true,если wd-рабочий день, и значение false иначе. Для вычисления написать функцию типа Boolean.

program week;
uses crt;
type
weekday=(Mon, Tue, Wed, Thu, Fri, Sat, Sun);

var wd:string;
    t:boolean;
    n:integer;
    bud:set of weekday;
begin
writeln('Введите день недели (сокращенно)');
readln(wd);
bud:=[Mon, Tue, Wed, Thu, Fri];
if wd in bud then writeln ('Ok');





readkey;
end.

как не пытались... не работает и все тут... разные вариации пробовали не работает. что делать?

mapblwka, вот так не пробовала?

program week;
uses crt;
type
  weekday=(Mon, Tue, Wed, Thu, Fri, Sat, Sun);
const
  days: array[weekday] of string =
    ('Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun');

var
  wd:string;
  i: weekday;
  t: boolean;
  bud:set of weekday;
begin
  write('Введите день недели (сокращенно) '); readln(wd);
  bud:=[Mon, Tue, Wed, Thu, Fri];
  t := false;
  for i := mon to sun do
    if wd = days[i] then
      if i in bud then t := true;

  readkey;
end.

?

посещали нас такие мысли, но вот сформулировать в паскале мы их грамотно не смогли...

Тут какая то запарка с TRUE и FALSE почему если ввести такие строки:

if t=true then writeln('Будень');
if t=false then writeln('Выходной');

он выводит совершенно наоборот то есть

if t=false then writeln('Будень');
if t=true then writeln('Выходной');

To: mapblwka

  if t then writeln ('Будний')
  else writeln('Выходной');

У меня совершенно нормально отрабатывает. Ты пример вводимых значений приведи...

mapblwka , не забывай вводить точно сокращения..
так mon не равно Mon, потому что регистр 1 буквы разный... вот отого у тебя и ошибка..

To: Altair
АААААААААА!!! Я ЛУЗЕРРРР!!!! Не догадалась сама! СПАСИБО ОГРОМНОЕ!!!!


ВСЕМ ОГРОМНОЕ СПАСИБО! все так просто.. как всегда, а мы не догадались... наверно множество не наш конек ниче! исправимся!!!