[Cathrinka]

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

[Professor Farnsworth]

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

[lmikle]

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

Код:

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 формат чтобы вывести на экран.
Поэтому поступил несколько хитро. Может сами переделаете как надо или местные профи подскажут.

Код:

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.