Parašė martynasjet· 2012 Geg. 19 20:05:17
#2
Su random tai neturetu buti labai sunku. Ten turetu buti kazkokia funkcija kad ir Random ir Randomize ar kazkas tokio. Susikuri nauja kintamaji. Kintamasis man atrodo turetu buti masyvas. Ir i ta masyva irasai teksta. A[1]:='Labas'; A[2]:='Wasup';
A[3]:='hi'; ir t.t. ir paskui naudoji Randomize;
Tai taip turetu atrody kodas: kazkas panasaus.
program random;
Var i:integer;
A:array[1..n] of string;{n - Tai kiek noresi naudoti tekstu ar zodziu}
begin
Randomize;
For i:=1 to Kiek_Yra_Teksto do
begin
OutText(Random(A[i]);
end;
end;
O su perkrovimo puslapio turetu butu komanda man atrodo kazkokia, nesu visiskai isitikines, kad yra tokia komanda.
P.S As tau cia tik daviau uzuomina kaip daryti su Random. Kadangi as nemoku php kalbos as tik galejau tau parodyti kaip turetu buti. Cia butu pascal kalba ir manau kad su php kazkas panasaus butu.
Padejau?
Redagavo martynasjet· 2012 Geg. 19 20:05:44