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

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

const value = 80;
var 
    star_prev, count, total_stars,
    density, value,   // плотность и объём вселенной 
    i, j :
integer;

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


run \| edit \| history \| help	0