Pascal: lehet olyat csinálni, hogy véletlenszerűen írja ki valamelyik változót?
pl.:
Egy tömb elemei közül véletlenül kiír 1-et.
Az elemeket először megadtuk:
a[1]:='alma';
a[2]:='körte' ...
Azt szeretném, ha valamelyiket visszaadná.
illetve még egy kérdés: hogy lehet-e hosszabb dolgokkal ugyan ezt csinálni:
writeln(a[1]);
i:=i+1;
readln(b[1]);
és hogy itt lehet-e, hogy pl. nem az előzőt adja ki majd, hanem pl.:
writeln(a[2]);
i:=i+2;
readln(b[2]);
vagy:
writeln(a[3]);
i:=i+1.5;
readln(b[3]);
köszönöm a segítséget.
válasza:Persze: ( amúgy mindenki a véletlenszámgenerálásán van kiakadva? a random függvény hú de nehéz XD)
program veletlen;
uses crt;
var tomb:array[1..10] of string;
i:integer;
begin
tomb[1]:='alma';
--
tomb[10]:='litium';
randomize;
i:=random(10)+1;
Write(tomb[i]);
end.
köszi.
És a másikat valahogyan meg lehetne csinálni?
válasza:A másik amit írtál egy értelmetlen zagyvaság.
Próbáld meg emberi nyelven megfogalmazni mit szeretnél.
válasza:Az akármilyen hosszú "dolgokat" rakd eljárásokba, és a véletlengenerálás után kapott értéket add egy case-elágazásnak, ilyenformán:
...
veletlen:=random(10);
case veletlen of
1: egyikhulyeseg;
2: masikhulyeseg;
3..8: harmadikhulyeseg;
else ezmarnekemissok('BOÁÁÁ!');
end;
...
Bocs, de nem próbáltam ki, elnézést, ha hiba van benne, de a módszer tán érthető.
válasza:Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!