Hey ihr lieben Dephi-interessierte!
ich hab ein riesenproblem. ich soll einen algorithmus erstellen, welcher drei einzugende Zahlen vergleicht und in der Reihenfolge ihrer Größe wieder ausgibt. Jetzt hab ich schon ein programm, aber er macht nicht das, was er soll.
ich kopiers mal rein:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:Integer;
begin
//Eingabe
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
//Verarbeitung
IF (a<b)
AND (b<c)
THEN
begin
Edit5.Text:=IntToStr(a);
Edit4.Text:=IntToStr(b);
Edit6.Text:=IntToStr(c);
end
ELSE
IF (a<c)
AND (c>b)
THEN
begin
Edit5.Text:=IntToStr(a);
Edit4.Text:=IntToStr(b);
Edit6.Text:=IntToStr(c);
end
ELSE
IF (b>a)
AND (a<c)
THEN
begin
Edit5.Text:=IntToStr(a);
Edit4.Text:=IntToStr(b);
Edit6.Text:=IntToStr(c);
end
ELSE
IF (b<c)
AND (c>a)
THEN
begin
Edit5.Text:=IntToStr(a);
Edit4.Text:=IntToStr(b);
Edit6.Text:=IntToStr(c);
end
ELSE
IF (c>a)
AND (a<b)
THEN
begin
Edit5.Text:=IntToStr(a);
Edit4.Text:=IntToStr(b);
Edit6.Text:=IntToStr(c);
end
ELSE
IF (c<b)
AND (b<a)
THEN
begin
Edit5.Text:=IntToStr(a);
Edit4.Text:=IntToStr(b);
Edit6.Text:=IntToStr(c);
end
ELSE
end;
end.
ich habe a=1, b=2,c=3 und dafür gibt es ja 6 varianten: 123,132,213,231,312 und 321. bitte bitte helft mir!!!!
ich bin total am verzweifeln!!!!!!!!!!!
[edit=MrSpock]Code Tags gesetzt. Mfg, MrSpock[/edit]