Pascal nahodne cisla – Pascal – Fórum – Programujte.com

Spravil som program na nahodne cisla.
Zadanie programu: Vytvorte program, ktorý vypíše 10 náhodných čísel v rozsahu od 1 do 50.

program nahodne cisla
uses crt;
var i:integer;

begin
    clrscr;
    i:=0;
    while i<50 do
  begin
  write('CISLO');
  i:=i+1;
  writeln(i);
 end;
readln
end.

Holt ses dobrej... sice to nemuze urcite fungovat podle zadani, ale jinak zajimave oznameni

#2 KIIV
Prosim Ta mam to dobre? Ako to ma byt vlastne, v pascali neviem tak dobre programovat

kde sou treba ty nahodny cisla? a mas jich vypsat jen 10 ne 50

+ "program nahodne cisla" pres pascal neprojde ... zaprve to ma byt jeden identifikator bez mezer a zadruhe ma byt jako prakticky vse ukonceny strednikem

#4 KIIV
Takze mam toto zmenit: 

while i<50 do

na 

while i<10 do

to taky .. ale jeste to neni zdaleka vse... ted tam vypisujes cisla od 1 do 10...  to nejsou nahodny cisla...

Uz som to opravil aj funguje

program nahodne_cisla;
uses crt;
var i:integer;
begin
clrscr;
i:=0;
while i<10 do
begin
write('CISLO');
i:=i+1;
writeln(i);
end;
readln
end.

#7 pietro62
A nevadí ti, že ty čísla nejsou náhodný?

Tvuj program vypíše: 1 2 3 4 ...10

Měl vypsat třeba: 7 42 36 13 ... 19

google = pascal randomize example

    const
    myarray: array [0..9] of Integer = (10, 20, 30, 40, 50, 60, 70, 80, 90, 100);
    begin
    Randomize;
    Writeln(myarray[Random(10)]);
    end;