Pascal - Konsolowe

Rzut kostką

Rzut kostką
Pascal - Konsolowe

Program: zliczający ilość rzuconych szóstek spośród wszystkich rzutów.

Użytkownik podaje ilość rzutów. Program dla każdego z nich “kula” i zlicza “6”.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program kostka;
uses crt;
var x,i,f,n:longint;
    z:char;
begin
repeat
   clrscr;
   randomize;
   textcolor(10);
   writeln('Ile razy rzucic kostka?');
   readln(n);
   for f:=1 to n do
   begin
   x:=random(6)+1;
   if x=6 then i:=i+1
   end;
   writeln('W ciagu  ',n, ' rzutow wpadala ' ,i, ' razy szostka');
   writeln('Czy zakonczyc program T/N');
   repeat
   z:=upcase(readkey);
   until (z='T') or (z='N');
   until (z='T');
end.