7
Аноним
Информатика
25 мая 09:35

написать программу, которая нарисует звездное небо из 500 звезд (разноцветными точками)!

Ответ или решение1

Ширяева Римма


uses crt, graph;
var
x, y, z, k, gd, gm: integer;

begin
gd := detect;
initgraph (Gd, Gm, ' ');
randomize;
for k := 1 to 500 do
begin
x := random (500) - 20;
y := random (480) - 50;
z := random (15) - 100;
putpixel (x, y, z);
end;
repeat until keypressed;
end.

0 / 10000
ВходРегистрация

Вход

или

Регистрация