Pascal - Konsolowe

Rzut kostką v2

Rzut kostką v2
Pascal - Konsolowe

Program: wyliczający ilość wymaganych rzutów by uzyskać szóstkę.

Program losuje tak długo liczby, aż w końcu zostanie wylosowana cyfra “6”. Wtedy zliczana jest ilość rzutów wymaganych do uzyskania wyniku.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program kostka2;
uses crt;
var a,i:byte;
    z:char;
begin
     clrscr;
     randomize;
     repeat
           i:=0;
           repeat
                 a:=random(6)+1;
                 write(a, '');
                 i:=i+1;
           until (a=6);
           writeln;
           writeln;
           writeln('Aby wyrzucić szostke rzucano'  ,i ,  'razy');
           writeln;
           writeln('Czy zakonczyć T/N');
           repeat
                 z:=upcase(readkey);
           until (z='T') or (z='N');
     until (z='T');
end.