Вероятность 60%

[Editor]

Если что не так сори за название чет в голову не особо пришло как это назвать...
Вобщем нужна реализовать код который будет давать шанс
допустим edit1.text:=('удача'); и edit1.text:=('неудача');...
типа шанс удачи там допустим 60%...

[evg_m]

function lotorea(v1,v2: integer): string;
begin
if random(v1+v2)<v1 then result:='удача' else result:='увы, вы проиграли';
end;

[Editor]

А шанс то тут где?

[Utkin]

random(v1+v2)<v1

[evg_m]

text:=lotorea(60,40);

[Editor]

[DCC Error] Unit1.pas(58): E2010 Incompatible types: 'string' and 'PAnsiChar'
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Deamonig]

Как вариант, можно сделать так:

...
var 
a:integer;
...
begin
Randomize;
a:=Random(100)+1;    // т. е. Рандомно берется число от 1 до 100, можно например от 1 до 10 или от 1 до 1000
if a<61 then // и проверяем если число в первых 60% диапазоне числел, то повезло, иначе - не повезло
Edit1.Text:='yda4a'
else 
Edit1.Text:='ne yda4a';
...

[Alex Cones]

Когда-то делал такую вещь, реализовал так, чтобы можно было выдавать много значений и каждому регулировать шанс, вот тема:
http://programmersforum.ru/showthrea...ghlight=Random

[x128]

заполни массив вероятностей т.е. 60%=0 остальное =1 и рандомно перемешай =)

[VovanZ]

var v : real;

{..............}

v:=0,6; //Это вероятность удачи
if random<v then edit1.text:=('удача') else edit1.text:=('неудача');

{.............}

end.