[SeVaPeR], Delphi - это язык программирования Я когда знаешь хорошее вспоминаю, перед сном как, первый раз на этот сайт зашёл тогда. Первый раз прошёл тест на знатока. В деревне. Было весело)
Я наконец решил эту проблемму . И решение оказалоь для меня более чем неожиданным
procedure TForm1.Button1Click(Sender: TObject); begin repeat begin x:=random(10); Y:=random(10); Z:=random(10); label1.caption:=floattostr(x); label2.caption:=floattostr(y); label3.caption:=floattostr(z); end ; Until x<>z and x<>y ;
end ;
procedure TForm1.Button1Click(Sender: TObject); begin repeat begin x:=random(10); Y:=random(10); Z:=random(10); label1.caption:=floattostr(x); label2.caption:=floattostr(y); label3.caption:=floattostr(z); end ; Until (x<>z) and (x<>y) ;
end ;
"Тот,кто хочет слишком многого,рискует потерять всё.Конечно,тот кто хочет получить от жизни слишком малого,может не получить ничего" Показания Томми Анджело на суде перед Эннио Сальери,1938 г.
Как мы ошибались Imperator, однако правда была близка Я когда знаешь хорошее вспоминаю, перед сном как, первый раз на этот сайт зашёл тогда. Первый раз прошёл тест на знатока. В деревне. Было весело)
wisp, Ближе чем мы думали Гдето я уже это слышал ... "Тот,кто хочет слишком многого,рискует потерять всё.Конечно,тот кто хочет получить от жизни слишком малого,может не получить ничего" Показания Томми Анджело на суде перед Эннио Сальери,1938 г.