find det kort som passer

For lige at beskrive opgaven sådan som jeg har skimmet den: Du mangler en funktion der kan returnere det billigste kort udaf de kombinationsmuligheder du har.

Overordnet - og det er grunden til jeg i første omgang kun skimmede dit spørgsmål - det er ret dårlig programmering at lave alle de IntToStr og StrToInt konverteringer. Hver eneste gang skal programmet konvertere frem og tilbage mellem tal og strenge; Ikke at det kan ses på en moderne PC, men det er ineffektiv kode. Brug interne variable med nogle gode navne som gør koden lettere at læse og programmet hurtigere.

Nedenstående er et forsøg (variabelnavnene er ikke helt perfekte, men variablene er lokale). Bemærk i øvrigt StrToIntDef som er en meget bekvem funktion.

uses
  Math;

var
  dPris: double;
  iZoner: integer;
  dBarn11: double;
  iVoksne: integer;
  iBarn11, iBarn12: integer;
  iSum, iSum1, iSum2: integer;
begin
  iZoner := StrToIntDef(Zoner.Text,0);
  iVoksne := StrToIntDef(Voksne.Text,0);
  iBarn12 := StrToIntDef(Barn12.Text,0);

  iSum1 := iVoksne shr 1; // Dividér med 2
  iBarn11 := StrToIntDef(Barn11.Text,0) - iSum1 - iBarn12;
  dBarn11 := max(iBarn11 / 2,0);
  iSum := iVoksne + iBarn12 + iBarn11;
  dPris := iSum * iZoner;

  // Færdig med beregningerne. Skriv til TEdit'erne.
  Barn11.Text := IntToStr(iBarn11);
  ...
end;

..

Tilbage til opgaven. Jeg ville da bare udregne priserne for hver type kort og så snuppe den billigste. Hvis ellers jeg har forstået opgaven, er det da en simpel løsning.

lukker