14. oktober 2007 - 20:26
Der er
1 kommentar og
1 løsning
find det kort som passer
Hej eksperter...
Jeg er nu igang med at lave et program som udregner zoner og lidt andet. så man kan finde ud af hvad man skal bruge af klippekort hvis man er
F.eks.
Voksne : 3
Børn o/12 : 12
Børn u/12 : 24
det giver så er resultat på 18.
det resutat ganges med det antal zoner som en voksen skal bruge i dette tilfælde 2 zoner. så nu har vi et nyt resultat som er 36.
nu kommer mit problem... Det nye resultat på 36 zoner i alt. skal nu definere hvilket kort der vil være det økonomiske rigtige kort. så der skal jeg nu sætte de forskellige zoner op mod de 36 indtil den finder ud af at et 4 zoners kort vil være det mest økonomiske kort at købe....
her kommer lidt kode med mine udregninger...
procedure TForm1.Button1Click(Sender: TObject);
begin
sum1.Text:=(inttostr(strtoint(voksne.text) * 2));
barn11.Text:=(inttostr(strtoint(barn11.Text) - strtoint(sum1.Text)));
barn11.Text:=(inttostr(strtoint(barn11.Text) - strtoint(barn12.Text)));
barn11.Text:=(floattostr(strtofloat(barn11.Text) / 2));
if barn11.Text < '0' then
begin
barn11.Text:='0';
end;
sum.Text:=(inttostr(strtoint(voksne.Text) + strtoint(barn12.Text) + strtoint(barn11.Text)));
label7.Caption:=(inttostr(strtoint(sum.Text) * strtoint(zoner.Text)));
sum2.Text:=(inttostr(strtoint(sum.Text) * strtoint(zoner.Text)));
sum2.Text:=Sqrt(49);
Men hvad skal jeg gøre for at få det til at give mig beskeden om det skal være et 2,3,4,5,6,alle zoners kort?
er gået helt i stå. på forhånd tak...
15. oktober 2007 - 08:21
#1
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.
