Помогите пожалуйста.Паскаль.Графика. - Форум
Пятница, 09.12.2016, 16:28
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста.Паскаль.Графика.
Помогите пожалуйста.Паскаль.Графика.
Diamond2107Дата: Суббота, 21.03.2009, 19:36 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите пожалуйста доделать задачу. Нужно нарисовать круг и по всему его контуру расположить маленькие окружности. Сделать нужно в любом цикле. Вот четверть сделала, а дальше никак. Запуталась с координатами. Если можно, уделите внимание)))

Добавлено (21.03.2009, 19:36)
---------------------------------------------
Вот то, что я сделала..
uses crt, graph;
var D,M,i,x,y,r,j:integer;
begin
d:=detect;
initgraph (D,M,' ');
x:=320; y:=40; r:=30;
circle (320,240,200);
repeat
circle (x,y,r);
if (x<>520) and (x<500) then
begin
i:=i+10;
x:=x+60-j;
j:=j+7;
y:=y+i;
circle (x,y,r);
end;
until keypressed;
closegraph;
end.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста.Паскаль.Графика.
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016