Numere aleatoare. Funcție RANDOM.
În Delphi există o funcție RANDOM care produce un număr aleator în intervalul de la 0 la 1, sau mai precis, numărul care aparține segmentului: [0, 1), de exemplu:
Aceasta înseamnă că variabilei X i se atribuie o valoare de număr aleatoriu. Nu știm această valoare, dar nu poate fi mai mare decât 1 și mai mică decât 0. Dacă trebuie să luăm un număr aleator dintr-un interval arbitrar [A, B], atunci trebuie să efectuăm următoarele transformări:
A - începutul segmentului, B - sfârșitul segmentului, B-A - lungimea segmentului.
Dacă avem nevoie să obțineți un întreg număr aleator din intervalul [A, B), atunci este necesar să scrieți: X = TRUNC (RANDOM (B-A) + A)
Dacă este nevoie să obțineți un întreg număr aleator din intervalul [A, B], atunci este necesar să scrieți: X = TRUNC (RANDOM (B-A + 1) + A)
Numărul sarcinii 1.
Având o secvență de 20 de numere aleatorii din intervalul [15, 75]. Imprimați toate numerele aleatorii. Determina suma tuturor numerelor, numai prin numar, numai ciudat in valoare:
soluţie:
var i, a, s1, s2, s3: întreg;
începe
s1: = 0; s2: = 0; s3: = 0;
pentru i: = 1 până la 20 începe
a: = aleatoriu (75-15 + 1) +15;
writeln (i, '', a);
s1: = s1 + a;
dacă i mod 2 = 0 atunci s2: = s2 + a;
dacă un mod 2 = 1 atunci s3: = s3 + a;
se încheie;
writeln ('suma tuturor numerelor aleatoare =', s1);
writeln ('suma numerelor cu numere aleatoare cu numere aleatoare =', s2);
writeln ("suma numerelor aleatoare impare = ', s3);
end.
Numărul sarcinilor 2.
Având o secvență de 22 de numere aleatorii din intervalul [22, 89]. Imprimați toate numerele aleatorii. Determinați suma acelor numere care:
a) mai mare de 44;
b) mai mică de 55;
c) se află între numerele 42 și 61.