звёздное небо и подсчёт кратных звёзд , Pascal

звёздное небо и подсчёт кратных звёзд

var 
    star, star_prev, count, total_stars,
    i, j, density : 
integer;

begin
    total_stars := 0;
    count := 0;
    readln (density);
    randomize;
    
    for i := 1 to 80 do
    begin
        star_prev := 0;
        for j := 1 to 80 do
        begin
            star := random(density);
            if star in [2,5] then total_stars := total_stars + 1; // считаем количество всех звёзд
            
            if ( star in [2,5] ) and ( star_prev in [2,5] ) then  // если две звезды рядом,
                count := count + 1;                               // то считаем такие совпадения
            
            if star = 2 then
                write ('O')
            else
                if star = 5 then
                    write ( '*' )
                else
                    write ( ' ' );
                // можно продолжать, на сколько хватает фантазии: например, ввести туманности, шаровые скопления и т. д.
                    
            star_prev := star;
            
        end;
        writeln;
    end;
    writeln ('Из общего количества звёзд, равного ', total_stars);
    writeln ('кратных звёзд получилось ', count, '.');
    writeln ('Это составляет ', 100*count/total_stars:4:1, '%.');
end.
// заметим, что звёзды могут быть рядом, но в разных строках! Но тут уже без массива не обойтись.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development