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

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

Language: Layout:

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.
// заметим, что звёзды могут быть рядом, но в разных строках! Но тут уже без массива не обойтись.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.08 sec, cpu time: 0.01 sec, memory peak: 3 Mb, absolute service time: 0,39 sec

* O O O * O O* O ** O OO OOO O O *O * O O O *O * OOOO*** O O O O * O * O O **O O * * * O O* * * * OO ** * O * O OO * *O O O * OO O O O * O * OO ** O *O * * OO O O OO** OO O * *O ** O O * ** O * * ** OOO * *O ** * O OO * * * O O* O * * O * O * O O O *O * * O O O* O * O * *O OO * * O O** * * O O O* * * O * * * O OO** O* *** O* * OOO* * O* *O*O O * O O O OOO* O * * O ** O *O ** * * O OO O**O** * O **** ** O * * * O OO OO * * O* * ** O O * O O ** OO O * O O* O* O * O O OO* O * O *O O O * * O O** * O O O *OO * O O *O O O * O * * ** **O * ***O OO O O * * * O **OO*O * O O O * O * * O O* * * * O O * OO O O * * * *O O O *O O O * O O * O O * *O * O **OO * * *O* O O ** O * O *O OO O* O OO O O *O O O *O * * O * * O OOO * * O * O OO *O O * * O O O * O ** OO * * O OO * O * * O O **OO O * ** * O *O * OO* *** * *O O* O * O ** OOO *O O * *O O*O * * *O OO O* OO* O O O * O O **O O * * *O * O O * * O * *O OOO * ** O * * O * * * O * O * * * * O O * O *OO * *O O O O * * * O*O* O O O * * O* ** O O * * ** O O O *O O O O* O* * * O O ****O OO O* O O OO** * * O O O O* * *O **O * * O * ** O O* O O * O O* * O O * O * O * O O * O O O* O O* O * OO O O* O * * * ** OO O O * O OO O O O* O O *O * O * O O* * * OO * * O * *O*** O* *O O * * O O O O * * * * OOO* O O O *O O O *O O OO O * O * * O O * O O O * * O OOO * * * * * * * O * O*O O * O O* * OO * O * * * * O O*O * O O* *O OO O **O * O * OO O* * O O * * O * *O* O O OO OO * O*O * ***O O *O O * O * O O O O * ** O O *O O * O O ** ** * O* O O** O* * OO* O * OO * * O O O ** * O O O * * * * * * O* O*O* * O *O* OO ** O * O OO OO* O * O ** * O* O O * O O O * * * * *O * * O ** * * * * * O O* * O ** O OO OO O** * OO** O O O* * * * * OO * O* * O O*O *O O O * OO O O ** O * **O O* * O* * * O O* **O O * * * O O * * O * O* O * O O * * O O O * * O * O *O O * * O O * * O * *O **O O OOO *OO O* O* * * O* *O* O O*O* * * * O *O *O O * * O* O * * * O OO * * *O O OO * * O* OO ** **O O * *O O * * O * ** O OO* O * * OO O* O O*O *O * **O *O * OO O O O O * ** O* O O * O* ** * O O * * O O OO O * O O O O ** O** O O * *O* * O* * *O* * O O O * O *O * * O *OOO O * O O O O * O *O * O O O O * * * * * * O * * *O O O * O* * OO O**O *O* O **O * * O O * O*OO O O* * * O * O O * O **OO* **OOO O* O* O* O* OO * O* O O OO*O* OO * O * * * * ** O O O * * * * O O * O O * * *O* O O O O * * ** ** *O * O O OO O O * O * * O *O** O * * O OO * O *O* * * * O * * * * O O * O *O O * O * * * * O * * O * ** O O*O O * * OO O * O* * O * O O O * O O * *O * O * * O O O *O O * * O O *O O * O * * * O * * O O *O * O O ** * * *O *OO * O* ** O *** ** * O * O **O * OOO O O* O * O O O* O O * O* *O O O OOO * *O * * O** * *O* *OOO O O O O OO * OO OO* * ** * * OO * O * O* * *O * OO O O * *** OO * * * O * *O * * O O * * OOO** * * * * *OO *O * *OO** O O*** O * OO** ** * O *O * O O O O * O * * ** * O* O O * O* O * * * O * OO *O O * * O O ** * O O O *O* OO * * O * O ** O * * O * O * * O * O O * *O** O * * O * O** O* * O OO *O **O****** O* * * O * O * O O * * O * O* O * * O O O * * O O O * O OO * OO O O O * * ** * O O * O O O * * * O * * * O O O *O O O OO* O * O O * * * O OO * * OO * O ** O* * OO * *O * * * O * OO OO O OO O * O * O O O O * * Из общего количества звёзд, равного 1821 кратных звёзд получилось 502. Это составляет 27.6%.