Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
звёздное небо и подсчёт кратных звёзд
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
факторизация 2019
zadacha9
Fibonacijev niz
Vector Addition
Tinh tong
Calculatrice 1.0
Задача 6.14 из учебника Грицановой (квартира)
Bilangan fibonacci ke-1 sampai ke-n
x=2;n=3
yghgh