Programozás Delphi
Véletlen számok. RANDOM funkciót.
A Delphi RANDOM egy olyan funkció, amely kimenetek egy véletlen szám tartományban 0-1, és még pontosabban, amelyek száma tartozik a [0, 1), például:
Ez azt jelenti, hogy az X változó be van állítva, hogy egy véletlen számot. Nem tudjuk ezt az értéket, de ez nem lehet több, mint 1 és kisebb, mint 0. Ha szükségünk van arra, hogy egy véletlen számot a véletlen intervallum [A, B), szükség van ahhoz, hogy a következő átváltási:
A - az elején a szegmens, B - a végén a szegmens, B-A - szegmens hossza.
Ha kell, hogy egy egész véletlen számot, az [A, B), meg kell írni, így: X = TRUNC (RANDOM (B-A) + A)
Ha azt akarjuk, hogy egy véletlen szám egész szám, az [A, B] azt kell írni: X = TRUNC (RANDOM (B-A + 1) + A)
Feladat №1.
Adott egy sorozata 20 véletlen számok intervallumban [15, 75]. Visszavonja az összes véletlen számokat. Határozzuk meg az összeg az összes számot, akár csak egy szám, csak furcsa értelmesen:
megoldás:
var i, egy, az S1, S2, S3: integer;
kezdődik
S1: = 0; s2: = 0; S3: = 0;
i: = 1-től 20 do kezdeni
A: = véletlenszerű (75-15 + 1) 15;
writeln (i, '', a);
S1: = s1 + egy;
ha i mod 2 = 0, akkor az S2: = s2 + egy;
ha egy mod 2 = 1, akkor az S3: = s3 + egy;
végén;
writeln ( 'összege a véletlen szám =', s1);
writeln ( „az összege páros számú véletlen számok =”, s2);
writeln ( „páratlan összeg értéke a véletlen szám =”, s3);
végén.
Feladat №2.
Adott egy szekvencia 22 véletlen számok, az [22, 89]. Visszavonja az összes véletlen számokat. Határozzuk meg a számok összege, amelyek a következők:
a) nagyobb, mint 44;
b) kevesebb, mint 55;
c) a számok között 42 és 61.