сервис вопросов и ответовСоставить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200, 200) и радиусами 30, 40, 50, 60, 70
5-9 класс|
|
помогите,пожалуйста.
Andrey2000jbftvcd
01 марта 2014 г., 19:51:19 (10 лет назад)
KGY
01 марта 2014 г., 21:25:03 (10 лет назад)
uses
GraphABC;
var
i: word; //Было предпочтительнее использовать byte,
//ведь от 3 до 7 считаем, но тип word старее,
//а к byte могут придраться
begin
SetBrushColor(clBlue); //Проставляем цвет кисти, я не
//нашёл функции рисования круга,
//где можно было бы указать цвет
for i := 3 to 7 do
begin
FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
sleep(500); //Поскольку круги в конечном счёте всё равно
//затираются более большими, будем выводить
//с задержкой
end;
end.
Ответить
Другие вопросы из категории
Написать программу для отыскания
max(min(a,b), min(c,d)), не
используя сложные логические условия и вложенные ветвления. Числа a,b,c,d
- целые. Протестировать программу для следующих исходных данных:
Ученики 7 класса постоянно теряют учебники. Чтобы избавить учеников от этой скверной привычки, добрый учитель пронумеровал потерянные учебники и
соорудил из них пирамиду. Существует бесконечная пирамида книг, подписанных натуральными числамию Книги в ней располагаются по принципу - вначале по одной в ряду, затем по две книги в ряду, затем 4, затем 6 и тд. Числа на книгах идут последовательно от 1 до бесконечности. Требуется по номеру ряда N и положению в ряду К определить номер книги С находящейся там№ Если ученик определил где находится книга
Формат входных данных- Вводится число N, K; N<=20
Формат выходных данных. Требуется выдать число С
Читайте также
составьте программу, которая вставляет слово ОБА после каждого слова, заканчивающегося на гласную.
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
1)Составьте программу,которая заполняет массив e[1..11] случайными целыми числами в диапазоне от -15 до 1 и находит количество элементов кратных 5.
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
1.Составить программу, которая определяет номера позиций символа","
2. Составить программу, которая позволяет заменить все гласные символом "*"
Вы находитесь на странице вопроса "Составить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200, 200) и радиусами 30, 40, 50, 60, 70", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.