unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    e_anzahl: TEdit;
    RadioButton1: TRadioButton;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Label2: TLabel;
    Panel1: TPanel;
    p_einzel: TPanel;
    Button2: TButton;
    Panel2: TPanel;
    p_gesamt: TPanel;
    procedure eingabe;
    procedure einzelpreisausgabe;
    procedure gesamtpreisausgabe;
    function f_einzel:double;
    function f_gesamt:double;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  einzel,gesamt,anzahl:double;
implementation
  const
  kinder=5;
  erwachsen=10;
  Senioren=7;
  Sauna=5;
{$R *.dfm}


  procedure Tform1.eingabe;
  begin
  anzahl:=strtofloat(form1.e_anzahl.Text);
  end;

  function Tform1.f_einzel:double;
   begin
   if (radiobutton1.Checked:=false) then
begin
  case radiogroup1.ItemIndex of
  -1:showmessage('bitte etwas auswählen');
  0:begin
      einzel:=kinder*anzahl;
      end;
  1:begin
      einzel:=erwachsen*anzahl;
      end;
  2:begin
      einzel:=senioren*anzahl;
      end;
    end;
end
else begin
 case radiogroup1.ItemIndex of
  -1:showmessage('bitte etwas auswählen');
  0:begin
      einzel:=kinder*anzahl+sauna;
      end;
  1:begin
      einzel:=erwachsen*anzahl+sauna;
      end;
  2:begin
      einzel:=senioren*anzahl+sauna;
      end;
    end;
end;
   end;


function Tform1.f_gesamt:double;
begin
gesamt:=einzel;

end;

procedure Tform1.einzelpreisausgabe;
begin
  p_einzel:=floattostr(f_einzel);
end;
procedure Tform1.gesamtpreisausgabe;
begin
  p_gesamt:=floattostr(f_gesamt);
end;
end.