Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
звёздное небо и подсчёт кратных звёзд + массив
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
jose messias de oliveira 600623130
binary_search-бинарный_поиск
[DE/GER] Vigenere Chiffre (Verschlüsselung)
Naloga 12: 3.9.2003
Prosti brojevi praktikum nizovi
eje8
Подсчёт количества единичных битов в десятичном числе от 0 до 15
проверка числа на отсутствие возрастающих и убывающих четвёрок
Бассейн-5
Вычисление cos(x) с помошью ряда Тейлора