Ezt hogy lehetne kivitelezni?
egy olyan programot akarok írni PASCALBAN ami 0 es 36 közötti természetes számokat randomra dobál ki!
segítségeteket előre is köszönöm!
sikerült valahogy megoldanom!
íme:
Program RandomNumbers;
Uses Crt;
Var i:Byte;
Begin
randomize;
For i:=1 To 1 Do WriteLn(Random(37));
ReadLn;
End.
mostmár csak aztkéne tudnom h hogytudom megoldani h többször dobjon ki számot egymás alá ha entert nyomok és ne kelljen ujra belépkedni a programba...
válasza: válasza:Program RandomNumbers;
Uses crt;
Var
s: String;
Begin
s:='';
Clrscr;
Randomize;
While s<>'quit' Do
Begin
WriteLn(Random(37));
ReadLn(s);
End;
End.
A ciklus addig fut, amíg s értéke nem "quit". Kiír egy véletlen számot, majd beolvassa s-t. Ha Entert nyomsz, s értéke "" marad, tehát a ciklus folytatódik. Ha beírod, hogy "quit", majd leütöd az Entert, kilép a programból.
Köszönöm a gyors választ, és különösen köszönöm hogy elmagyaráztad hogy mit miért és hogy kell.:) Így már nem lesz nehéz elsajátítani a pascalt, remélem! :D
Üdv.
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!