знаю что задание нужно решить с помощью case of

[Aleksandr litvinch]

нужно написать программу в Pascal для вывода на печать заданого месяца 2009 года , если 1 января 2009 года это четверг

[Stilet]

var n:integer;
begin
 readln(n);{Вводим номер месяца}
 case n of
  1: write('чертверг');
  2: write('пятница');
  ... И так остальные месяцы
 end; readln;
end.

[Aleksandr litvinch]

Тут не просто так, нужно вводить день и мне должно выдавать какой это месяц , просто задание изначально дали не полное , самому не понятно что нужно сделать , но как мне кажется нужно именно так, ну или еще из вариантов вводить месяц и день и мне должно писать какой это день недели

[Stilet]

Мда... смутно как сон верблюда...
А паскаль то какой? Вдруг из тех что поновее, где есть модуль работы с датами типа DateUtils?

[Aleksandr litvinch]

Сообщение от Stilet

Мда... смутно как сон верблюда...
А паскаль то какой? Вдруг из тех что поновее, где есть модуль работы с датами типа DateUtils?

вообще , делал я работу в аbc pascal , но как я понимаю это значения не имеет так как это задание можно и в обычном турбо сделать , знаю что тут кроме case of больше ничего не нужно ,но вот как это завернуть я честно не знаю

[Aleksandr litvinch]

Сообщение от Stilet

Мда... смутно как сон верблюда...
А паскаль то какой? Вдруг из тех что поновее, где есть модуль работы с датами типа DateUtils?

http://cs424817.vk.me/v424817833/3ae5/YHgQURw-JGw.jpg


вот что написал учитель мне , но от этого понятние не стало

[Stilet]

Так...
d mod 7 + 4 по идее даст номер дня недели по порядку.
Допустим есть массив:

const nm:array[1..7] of string=('Понеделок','вторник','среда','четверг','тяпниццо','сатурбота','воскресенчег');

тогда nm[d mod 7 + 4] даст название дня недели.
Только к месяцу это не имеет отношения. Тут уж нуна как-то так:

const m:array[1..12] of integer=(31,30,31,30,31,30,30,31,30,31,30,31);
var i,d:integer;
begin
 readln(d); i:=1;
 while d>m[i] do begin dec(d,m[i]); inc(i); end;
 write(i); {Это вывод номера месяца этого дня из 365 дней в году}
end;

[Aleksandr litvinch]

да , это правильно , только задание нужно решать с помощью case of


у меня задание было написать программу зная день и месяц вывести знак зодиака к которому эта дата относиться ..

program Lab3;
Uses crt;
var d,m,k:byte;
begin
   clrscr;
   repeat
   write('месяц: ');
   readln(m);
   until m in [1..12];
   repeat
   k:=0;
   write('день: ');
   readln(d);
   if ((m=2)and(d>29))or((m in [1,3,5,7,8,10,12])and(d>31))
   or((m in [4,6,9,11])and(d>30))or(d<1)then k:=1;
   until k=0;
   case m of
1:case d of
  1..19:write('козерог');
  20..31:write('водолей ');
  end;
2:case d of
  1..18:write('водолей ');
  19..29:write('рыбы');
  end;
3:case d of
  1..20:write('рыбы');
  21..31:write('овен');
  end;
4:case d of
   1..21:write('овен');
   22..30:write('телец');
   end;
5:case d of
   1..2:write('телец');
   21..31:write('близнецы');
   end;
6:case d of
   1..21:write('близнецы');
   22..30:write('рак');
   end;
7:case d of
   1..22:write('рак');
   23..31:write('лев');
   end;
8:case d of
   1..22:write('лев');
   23..31:write('дева');
   end;
9:case d of
   1..22:write('дева');
   23..30:write('весы');
   end;
10:case d of
   1..22:write('весы');
   23..31:write('скорпион');
   end;
11:case d of
   1..22:write('скорпион');
   23..30:write('стрелец');
   end;
12:case d of
   1..21:write('стрелец');
   22..31:write('козерог');
   end;
end;
readln
end.

это я сделал , по этому же принципу нужно вводить день и месяц и должно выводить день недели , но как сделать это задание я без понятия

[Stilet]

Что тут непонятного?

case d mod 7 + 4 of
 1:write('понедельник');
 2:write('вторник');
 ...
end;

Примеро так, тем паче аналогия у тебя есть.

[Aleksandr litvinch]

Благодарю за помощь , все сделано )