Кто программирует на Delphi ? - Обсуждения на FableGame

Новые посты · Поиск постов ·

Страница 1 из 3
1
2
3
»

Кто программирует на Delphi ?

Imperator

Вообщем . Мне нужно написать генератор трех рандомных не равных друг к другу чисел .
Вот что у меня получилось

Code

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 ;

Программа выдает ошибку на условие x<>y . Как вставить это условие в программу ?

30.03.2011, 19:43

wisp

Imperator, я в Delphi - ноль. Но у меня есть версия (чисто теоретическая)

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 ;

Может быть ошибка из-за Y и Z ? (они заглавные, а x - нет)
Или же это не влияет на работу...

30.03.2011, 19:56

Imperator

Quote (wisp)

Imperator, я в 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 ; Может быть ошибка из-за Y и Z ? (они заглавные, а x - нет) Или же это не влияет на работу...

Разницы нет . Я же говорю ошибку выдает на "Until x<>z and x<>y" . Одни строчку "Until x<>z ;" он переносит нормально , а вот в той ошибку выдает .

30.03.2011, 22:07

Altaris

Я так думаю, тут неправильно задано условие. Программа видит несоответствие в равностях smile

30.03.2011, 22:11

Imperator

Quote (Altaris)

Я так думаю, тут неправильно задано условие. Программа видит несоответствие в равностях

Условие должно звучать так : "х" не равно "у" и не равно "z" . Но как это записать ?

30.03.2011, 23:24

wisp

Quote (Imperator)

Условие должно звучать так : "х" не равно "у" и не равно "z" . Но как это записать ?

Может быть так: x<>z<>y ? или так x<>z and x<>y and z<>y; ?

30.03.2011, 23:40

Altaris

Значит тебе нужно сделать генератор случайных чисел?

30.03.2011, 23:43

Altaris

Вот нужный скрипт:

30.03.2011, 23:44

Imperator

Quote (Altaris)

Вот нужный скрипт:

Для меня не совсем читабельный . Мне просто нужно в постусловии "Until" записать х <>y<>z так чтоб не было ошибки и я понял в чем ошибся .

30.03.2011, 23:54

Imperator

Но все равно + за код .

30.03.2011, 23:55

Кто программирует на Delphi ?

Страница 1 из 3
1
2
3
»