30 апреля 2010 года в30.04.2010 12:06 5 0 10 1

program space;

uses crt, graph;

var x, y, a, gd, gm:integer;

begin randomize;

gd:=detect;

initgraph(gd, gm, '');

for a:=1 to 300

do begin putpixel(x, y, 15);

x:=1+random(639-1+1); y:=1+random(479-1+1);

end;

readkey;

end.

Комментарии

Зарегистрируйтесь или войдите, чтобы добавить комментарий

Новые заметки пользователя

GO-EAST — Это просто Вьюи блог

18

В.Долина

Вот настроенье нулевое, Тоска и смута вновь и вновь. А вот - раненье пулевое, Его ещё зовут любовь. Мне жребий выпал бесталанный, ...

18

How will I ever get out of this labyrinth?

"Ты особеннее всех, кто меня будоражил" Какой в этом смысл? Быть особенной. Чувствую себя прокаженной. И всех, главное, тянет-тянет к те...

17

Как тебе тело, во век в земле тлеть, А как мне душе на небо лететь, там ответ держать. Как тебе тело спокойно лежать, А как мне ду...

19

По ту сторону пубертата

Когда лучшая подруга - мама, когда знаешь, как почистить чайник от накипи и как списать счетчики, когда больше не ждешь, что напишут, поз...

19

попытка номер 5

потрачено

18

пора прощаться