Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
звёздное небо и подсчёт кратных звёзд
var star, star_prev, count, total_stars, density, value, // плотность и объём вселенной i, j : integer; begin total_stars := 0; count := 0; readln (density); readln (value); randomize; for i := 1 to value do begin star_prev := 0; for j := 1 to value 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
Menukar nilai2
Squarepants
Hello World
Quadratic equation
lecturas
the longest sub-array
solar_system_5
Kupovina Auta
Урок 8 задача 6 символьный тип данных
calcular_sumatoria_N