тренировка баскетболиста 2, Pascal

Language: Layout:

//fpc 3.0.0

program basketball_player_training;
const 
    b = 30;
    p = 5;
var 
    kb, kp, hit,
    max_p,                      // рекордное количество попаданий подряд
    num_p                       // количество серий 5 попаданий подряд
         : integer;
    flag : boolean; // will true after 5 hits one to other
begin
    randomize;
    kb := 1; // счётчик количества бросков
    kp := 0; // счётчик количества попаданий (обнуляется если нет между попаданиями есть один промах)
    max_p := 0; // максимальное количество попаданий подряд
    num_p := 0; // количество серий из 5 попаданий подряд
    flag := FALSE;
    while (kb <= b) do
    begin
        hit := random ( random (10) ); // random внутри random - задел для набора игроков
{ 
  Когда не один игрок, а команда, то random (10) определяет начальный уровень игрока: 
  вероятность попадания выше у игрока с random (10), чем у игрока с random (3). То есть, 
  когда будет моделироваться команда, то начальные данные у каждого игрока в общем случае должны быть разные.
}        
        writeln ('hit = ', hit );
        if hit <> 0 then
        begin
            kp := kp + 1;
            if kp = p then
            begin
                flag := TRUE;
                writeln ('5 раз подряд ', flag, ' total hits= ', kb);                
 //              kb := b + 1; - убрать // если попал 5 раз подряд, и можешь СРАЗУ уходить домой
 //                           - оставить // если нужно посмотреть сколько раз 5 раз подряд попал num_p
 //                           - также можно найти рекорд количества попаданий 5 раз подряд max_p
            end;
            if max_p < kp then max_p := kp;
        end
        else
        begin
            kp := 0;
            flag := FALSE;
        end;
        kb := kb + 1;
    end;
    writeln;
    writeln( 'рекорд попаданий подряд = ', max_p, flag:6, kb:3);
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.18 sec, absolute running time: 0.08 sec, cpu time: 0.02 sec, memory peak: 3 Mb, absolute service time: 0,46 sec