Question

Napisz program w TP symulujący 20 rzutów monetą i obliczający liczbę wyrzuconych orłów i reszek.

BARDZO WAŻNE. NA JUTRO TJ. 18.10.10r.

"Ma sie tak zaczynać:

program orzeł_reszka;

USES crt;

var

Tak_Nie: char;

orzeł, reszkaL integer;

i, x: integre;

const:n=20

begin"

Answer 1

PROGRAM orzel_reszka;

USES Crt;
VAR
i,x, orzel,reszka:INTEGER;
Tak_Nie:CHAR;
CONST
n=20;

BEGIN
Repeat
ClrScr;
RANDOMIZE ;
orzel:=0;
reszka:=0;
For i:=1 to n do
BEGIN
x:=RANDOM(2);
IF x=0 THEN orzel:=orzel+1
ELSE
reszka:=reszka+1;
END;

Writeln(' Losowy rzut moneta ');
Writeln(' Moneta rzucano ', i,' razy ');
Writeln(' Wylosowano orla.... ', orzel:2 ,' razy');
Writeln(' Wylosowano reszke.. ', reszka:2,' razy');
Writeln (' Jeszcze raz ?');
Tak_Nie:=UpCase(ReadKey)
UNTIL NOT (Tak_Nie='T')

END.