реализовать программу на паскаль abc «звездное небо» и затем гасит его
10-11 класс
|
Красота :з
uses
GraphABC;
var
i: integer;
begin
GraphABC.Brush.Color := Color.DarkBlue;
GraphABC.FillRect(0, 0, WindowWidth, WindowHeight);
for i := 1 to 1000 do
GraphABC.SetPixel(Random(WindowWidth), Random(WindowHeight), clWhite);
end.
А, да, добавьте это перед последней строкой:)
System.Threading.Thread.Sleep(500);
GraphABC.FillRect(0, 0, WindowWidth, WindowHeight);
быстрое мерцание..... напишите интервал между мерцанием каждой звезды 4-5 секунд... спасибо.!
Другие вопросы из категории
сло не участвовавших в голосовании. Выборы в округе считается состоявшимся, если в голосовании приянло участие не менее Р процентов избирателей. Определить, в каких округах был высший процент голосовавших избирателей и номера партий, получивших наибольшее число голосов в округах, где выборы считается состоявшимися. Исходная информация вводится с клавиатуры. (QBasic)
графического исполнителя алгоритм изображения слова НАГАН. Для написания
алгоритма использовать последовательную детализацию. Высота букв - 4
шага, ширина - 2 шага. Расстояние между буквами – 1 шаг. Укажите начальное
направление движения графического исполнителя
Читайте также
графического режима на паскале abc
.
Реализовать программу, которая
периодически выводит на экран «звездное
небо» и затем гасит его.
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.