Паскаль. Перечислимый тип. Определение порядкового номера дня високосного года.

[katya36]

Пусть дан фрагмент программы:

type
месяц = (янв. фев. мар. апр. май. сен. окт. ноя. дек );

var
k: 1..366;
d: 1..31;
m: месяц;

Определите k - порядковый номер дня високосного года, который имеет дату d,m.



Паскаль, тема совсем новая, не всё понятно пока что...

[Stilet]

Ну тебе ж извесно сколько дней в каждом месяце?
Сделай массив из этих дней, потом получай сумму элементов массива с первого до m плюс d = то самое число.
Смысл ясень?

[Anatole]

Определите k - порядковый номер дня високосного года, который имеет дату d,m.

функция ord возвращает порядковый номер переданого ей значения перечисляемого типа. Т.е. выражение

n := ord(m)

lдаст вам порядковый номер месяца, а дальше простые вычисления, ведь вы наверно знаете число дней в каждом месяце?

[katya36]

Спасибо, я вроде бы понимаю смысл, но дальше... можно поподробнее пожалуйста??
Вообще по идее пользовательно вводит число и месяц, а программа должна вывести номер дня- я правильно понимаю??

[Serge_Bliznykov]

Прежде всего, тот пример, который вы привели, вообще написан с ошибками и не откомпилируется.
во-вторых, в TurboPascal нельзя использовать русские буковки в качестве идентификаторов типов и переменных...
конечно, можно описать и вот так:

type
  month = (JAN, FEB, MAR, APR, MAY, SEP, OCT, NOV, DEC );
var  
  m: month;

в третьих, переменные перечисляемого типа просто так вводить/выводить не получится. Как Вы собираетесь ввести значение месяца?!


и вообще, Катя, а зачем Вам вообще перечисляемый тип Месяц ??
он в данном случае только портит всё!!!
вот, решение без этого типа:

var
  k: 0..366;
  d: 1..31;
  num_m : 1..12;
  i : integer;

begin
   WriteLn('Vvedite den, nomer mesaca : ');
   ReadLn(d, num_m);

   k := 0;
   for i:=1 to num_m-1 do 
     case i of
       1, 3, 5, 7, 8, 10, 12 :
             k := k + 31;
       4, 6, 9, 11 :
             k := k + 30;
       2 : k := k + 29;
     end;
   k := k + d;

   WriteLn('k = ',k:1);
   ReadLn;
end.

добавлено.

или вот предложенный Stilet'ом вариант с массивом, в котором задано количество дней в месяце:

const DaysInMonth : array[1..12] of integer =
   (31,29,31,30,31,30,31,31,30,31,30,31);

var
  k: 0..366;
  d: 1..31;
  num_m : 1..12;
  i : integer;

begin
   WriteLn('Vvedite den, nomer mesaca : ');
   ReadLn(d, num_m);

   k := 0;
   for i:=1 to num_m-1 do 
       k := k + DaysInMonth[i];
   k := k + d;

   WriteLn('k = ',k:1);
   ReadLn;
end.

[katya36]

Спасибо огромное! Но м:МЕСЯЦ - это условие задачи! Его менять нельзя!
А не убирая его если, то как??

[Serge_Bliznykov]

Катя, давайте так — если Вы организуете ввод месяца вашего типа, тогда я помогу Вам написать код, вычисляющий номер дня K...

[katya36]

begin
writeln ('vvedite mecyac');
writeln ('1- jan');
writeln ('2- feb');
writeln ('3- mar');
...........
writeln ('12-dec');
readln (i);
case i of
1:m1:=jan;
2:m1:=feb;
..............
12:=ec;
end;

[katya36]

Так вроде??

[Serge_Bliznykov]

ну ладно.. тогда получите и распишитесь...
два варианта:
первый:

const DaysInMonth : array[1..12] of integer =
   (31,29,31,30,31,30,31,31,30,31,30,31);
...
Var
     m1 : month;
...
   k := 0;
   for i:= ord( Jan )+1 to ord(m1) do
       k := k + DaysInMonth[i];
   k := k + d;

второй вариант:

type
  month = (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC );

{const DaysInMonth : array[1..12] of integer =
   (31,29,31,30,31,30,31,31,30,31,30,31);}

const DaysInMonth : array[JAN..DEC] of integer =
   (31,29,31,30,31,30,31,31,30,31,30,31);
...
var
    m1, m00: month;
...
   k := 0;
   for m00 := Jan to pred(m1) do
       k := k + DaysInMonth[ m00 ];
   k := k + d;