Hallo!
Ich muss ein Programm mit einer Funktion erstellen, die das Mimimum eines Feldes mit Zufallszahlen ermittelt. Ich habe Probleme bei der Ausgabe, da dynamic array und integer nicht kompatibel sind. Wie kann ich das beheben?
[snip]
Ich weiß, dass dieses Programm sehr amateurhaft ist, ich bin nur Schüler
Ok, hier mal dein Quelltext etwas besser formatiert, Zwecks Leserlichkeit
und mit Kommentaren versehen die Frageb beinhalten die du uns beantworten
solltest:
Delphi-Quellcode:
function minimum(n,m : Integer):Integer;
var
zahlen1: array of integer;
begin
// woher kommen die Werte des Arrays "zahlen1"?
// dieser ist lokal und damit nur innerhalb von minimum gültig
// und wo ist der Code deiner Minintvalue function?
result := Minintvalue(zahlen1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,i: integer;
zahlen2: array of integer;
begin
a := StrToInt(edit1.Text);
b := StrToInt(edit2.Text);
for i := 1 to a do
begin
// man hat euch hoffentlich beigebracht, dass vor Benutzung
// von random in einem programm irgendwo randomize; aufzurufen ist?
// in deinem Fall am besten vor der Schleife oder im OnCreate event der Form
zahlen2[i] := random(b);
memo1.Lines.add(IntToStr(zahlen2[i]));
end;
// du übergibst deiner minimum funktion hier ein ganzes Array, statt
// zwei integer Werte. Die Definition deiner minimum functon sagt aber,
// dass diese 2 Parameter vom Typ Integer will und nicht ein einzelnes
// Integer-Array. Wie soll es denn nun sein?
c := minimum[zahlen2];
edit3.Text := IntToStr(c);
end;