[Cathrinka]

Помогите, пожалуйста, решить задачку... Вроде до этой все получалось, а над этой уже три недели думаю:
Задача: пусть дан фрагмент программы:
type месяц=(январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь);
var k:1..366; d:1..31; m:месяц.
Определить (d,m)-дату k-того по счету дня ВИСОКОСНОГО года.

[Professor Farnsworth]

А условие менять нельзя?
Без таких переменных и введения именно такого типа?

[lmikle]

Ввести костанту (массив) для дней в месяце, а дальше обратным отсчетом.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

type  TDayInMonth = record   month : месяц;   days : integer;  end; const  cDayInMonth : Array [1..12] Integer = (31, 29, 31, 30,...), ...    var  n : Integer;  m : Integer;  ResDate : String;   n := k; For I := 1 To 12 Do begin   m := I;   If n <= cDayInMonth[i] Then break;   n := n - cDayInMonth[i]; end;   ResDate :=IntToStr(n) + ' ' + месяцToStr(месяц(m-1));

Если что непонятно - пиши.

[Cathrinka]

У меня в этом-то вся и проблема, что с помощью массива нельзя. Нужно с помощью перечислимого типа. Через всякие CASE .. OF и прочее. У меня ничего не получается, не считает программа ничего....

[Cathrinka]

Вот и нельзя-то.... меня эта задача скоро с ума сведет, уже черт знает сколько пытаюсь ее написать

[Professor Farnsworth]

Вот в принципе работает. Только с небольшими изменениями. Не знаю как с русскими названиями сделать. Во вторых как переводить TMonth в string формат чтобы вывести на экран.
Поэтому поступил несколько хитро. Может сами переделаете как надо или местные профи подскажут.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type    TMonth =(jan, feb, mar, apr, may, jun, jul, aug, sen, okt, noy, dec);     TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Label1: TLabel;     Label2: TLabel;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   Function m1(m:TMonth):integer;   var k:1..366;   d:1..31;   m:TMonth;    st:string;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); Var t:string; n,i:integer; label 10; begin    k:=StrToInt(Edit1.text);    m:=jan;    For i:=1 to 12 do    begin       d:=m1(m);       if k>d then inc(m)       else       begin         d:=k;         goto 10;       end;       k:=k-d;    end;    10: label1.Caption:=  st;         label2.Caption:=  IntToStr(d);   end;     Function m1; var day:integer;   begin     case m of         jan: begin day := 31; st:='январь;end;         feb: begin day := 29; st:='февраль';end;         mar: begin day := 31; st:='март';end;         apr: begin day := 30; st:='апрель';end;         may: begin day := 31; st:='май';end;         jun: begin day := 30; st:='июнь';end;         jul: begin day := 31; st:='июль';end;         aug: begin day := 31; st:='август';end;         sen: begin day := 30; st:='сентябрь';end;         okt: begin day := 31; st:='октябрь';end;         noy: begin day := 30; st:='ноябрь';end;         dec: begin day := 31; st:='декабрь';end;     end;     result:=day; end;   end.