Бросание кубиков на Pascal
Здесь иллюстрируется использование стандартной функции Random.
var
r1,r2: integer; // значения на верхних гранях кубиков
begin
r1 := Random(6)+1;
r2 := Random(6)+1;
writeln('Очки, выыпавшие на кубиках: ',r1,' ',r2);
writeln('Сумма очков равна ',r1+r2);
end.
10.02.2015, 08:48 -
Категория: Статьи » Программирование » Pascal
