tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу рисования
Составьте программу рисования 10 концентрических окружностей с центром в точке (300,200) и радиусами 10,20,. (надо использовать while )
murenko20061
1 14.06.2019 20:20
0
Ответы
KaKTyZzZz
12.07.2020 09:20
Uses GraphABC;
var r: integer;
begin
while r < 100 do begin
r := r + 10;
DrawEllipse(300-r,200-r,300+r,200+r);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
максим1715
11.06.2019 20:40
Дан прямоугольник с длиной a и высотой b. написать программу вычисляющую площадь другого прямоугольника,длина которого больше в m раз, а высота в n....
Гогич
11.06.2019 20:40
Надпись на клавише,при нажатии на которую происходит отмена действия или выход из некоторого состояния....
lizabezludnaya
27.05.2020 18:25
Опишите формы использования ИКТ,с которыми вам приходилось иметь дело в школе.Какой эффект от их использования вы можете отметить?Подготовить сообщение....
Елька165
26.05.2020 17:57
Только знатоки информатики Только знатоки информатики...
DogFerty656
08.06.2019 13:30
Как сделать так, чтобы в презентации(powerpoint) нарисованная качеля качалась бесконечно?...
chornaya03
08.06.2019 13:30
Создать веб-сайт с двумя страницами и фоном ярким.плохо с этим...
Пан2007
08.06.2019 13:30
Единственная надежда на ! 3-1 после выполнения фрагмента алгоритма переменная a приняла значение 8. определить минимальное целое n, при котором это возможно. a: =0; i:...
юрий201
08.06.2019 13:30
Фирма-поставщик услуг интернет: 1) дистрибьютор 2) менчендайзер 3) дилер 4) провайдер...
C137
08.06.2019 13:30
1)задан числовой массив из 10 элементов [5; 150]отсортировать массив по убыванию. 2)в комп. вводятся результ.экзаменов для 20 абитуриентов. вывести на экран фамилии и...
likaizmaylova
08.06.2019 13:30
Access на основе таблицы «поставки» сформировать запрос о создании нового поля розничная цена, в котором подсчитывалось бы численное значение из поля цена, увеличенное...
Популярные вопросы
Определите на рисунке клетку и орган...
2
14м 60см*14м 06смсалыстыру...
3
Какова основная мысль текста Завидная доля черёмух... ?...
3
2. Задание Кратко проект А) Определите, есть ли образ предателя в...
2
On, in, at (предлоги времени) Where were you September 22nd? Mike...
3
УМОЛЯЮ ОТМЕЧУ КАК ЛУЧШИЙ И ПОСТАВЛЮ 5 ЗВЁЗД! (ЕСЛИ ПРАВИЛЬНЫЙ) ВСЕ...
3
МНЕ НАДО ПРОСТО СОЧ. БУДУ СИЛЬНО РАД ЕСЛИ...
3
1. Im Stau sieht man oft … (schimpfen) Autofahrer. 2. Ich mag keine...
3
Идея рассказа красное яблоко...
3
Сочинение как можно провести осенние каникулы...
1
var r: integer;
begin
while r < 100 do begin
r := r + 10;
DrawEllipse(300-r,200-r,300+r,200+r);
end;
end.