Занятие 2. Цикл с предусловием в графике.

Задача. Построить множество концентрических окружностей (с общим центром), удовлетворяющих следующим условиям:

а) радиус следующей окружности на m меньше предыдущей;

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

Итак, для решения задачи в программе мы должны запросить у пользователя значения переменных m и а, затем инициализировать графический режим и в цикле выполнять построение окружностей, меняя при этом радиус. Для наиболее красочного построения окружностей применим процедуру установки текущего цвета с применением случайных чисел.

Program Krugi;

Uses

Crt, Graph;

Var

i,

m,

R,

a,

DV,

DM : integer;

Begin

ClrScr;

Randomize;

write (‘Введите шаг изменения радиуса окружностей ‘);

readln (m);

write (‘Введите радиус большей окружности ‘);

readln (R);

write (‘Введите радиус меньшей окружности ‘);

readln (а);

write (‘Введите координаты центра ‘);

readln (X, Y);

DV:=detect;

InitGraph (DV, DM, ‘..\BGI’);

SetBkColor (7);

while R>=a do

begin

SetColor (Random(15));

Circle (X, Y, R);

R:=R-m;

end;

readln;

CloseGraph;

End.

Примечание. Здесь применена процедура Randomise, которая инициализирует генератор случайных чисел. Значения же случайных чисел можно получить с помощью функции Random (Х), где Х - параметр, указывающий диапазон значений случайного числа. Оно изменяется в пределах [0,Х[. Результат в этом случае будет типа Word. Если параметр Х не задан, то результат буде типа real в пределах [0.0,1.0[.








Дата добавления: 2015-05-16; просмотров: 596;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.01 сек.