Создать приложение для перевода длины

[Фима]

В старину длина измерялась в четвертях, вершках, и аршинах.Один вершок равнялся 1/16 аршина или 1/4 четверти.В современном исчислении один вершок - 4,44 см.Создать приложение для перевода длины , измеренной в сантиметрах , в любой упомянутый вид единиц.

[W0LF]

Самая простая задачка, Вам повезло.
P.S.: больше ненужно оповещать нас о своем ДЗ, спасибо.

[Stilet]

Надо полагать как-то так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
			StdCtrls;

type

			{ TForm1 }

      TForm1 = class(TForm)
						Edit1: TEdit;
						Label1: TLabel;
						RadioGroup1: TRadioGroup;
						procedure FormCreate(Sender: TObject);
      procedure RadioGroup1Click(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.RadioGroup1Click(Sender: TObject);
var v:double;
begin
 v:=StrToFloatDef(Edit1.Text,0)/4.44;
 case TRadioGroup(Sender).ItemIndex of
  0:Label1.Caption:=format('%5.2f',[v*1/4]);
  1:Label1.Caption:=format('%5.2f',[v]);
  2:Label1.Caption:=format('%5.2f',[v*1/16]);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with RadioGroup1 do begin
    Items.Append('четвертях');
    Items.Append('вершках');
    Items.Append('аршинах');
	end;
end;

end.

Не проверял...