С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Вениамин Шепард
24 / 10 / 5
Регистрация: 11.01.2014
Сообщений: 85
1

Написание процедуры

25.01.2014, 14:36. Просмотров 498. Ответов 2
Метки нет (Все метки)

Немного нестандартная задачка:
В программе мы будем использовать
Pascal
1
GraphABC
, и нам нужно нарисовать круг, но процедура
Pascal
1
circle
не работает.
Нужно создать процедуру, которая будет рисовать круг с помощью команд
Pascal
1
SetPixel;
То есть, создаём процедуру
Pascal
1
2
3
4
5
6
7
8
9
procedure DrawCircle(x,y,r:integer;cl:Color); //X и Y - координаты круга, R - Радиус, cl - цвет
begin
    //тут пишем команды, который будт рисовать круг только с использование SetPixel; или PutPixel;
    //Писать команду circle(x,y,r); нельзя
end;
 
Begin
    Drawcircle(10,50,5,clRed); // И тут рисуется круг
End.
P.S. Спрашивать меня, зачем мне это надо бесполезно
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2014, 14:36
Ответы с готовыми решениями:

Написание программы через процедуры и функции
Написал такие программы, но требуют, что бы они были прописаны через процедуры...

Нужно изменить написание программы через процедуры и функции
uses crt; const n=5;m=6; var a:array of integer; b:array of integer; var...

Написание процедуры в Паскале
Здравствуйте! Подскажите, пожалуйста, как можно записать выражение из...

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и...

2
ВАСИЛЕВС
557 / 480 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
25.01.2014, 14:59 2
Нашел вот такой код
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure Circle(xc, yc,r:Integer; Color:Byte);
var y,x,d:Integer;
begin
x:=0;
y:=r;
d:=3-2*r;
while x <= y do
 begin
   SetPixel(xc+x, yc+y, Color);
   SetPixel(xc+y, yc+x, Color);
   SetPixel(xc+y, yc-x, Color);
   SetPixel(xc+x, yc-y, Color);
   SetPixel(xc-x, yc-y, Color);
   SetPixel(xc-y, yc-x, Color);
   SetPixel(xc-y, yc+x, Color);
   SetPixel(xc-x, yc+y, Color);
 if (d < 0) then
  begin
  d:= d + 4*x + 6
  end
  else begin
       d:= d + 4*(x-y) + 10;
       dec(y);
       end;
 inc(x);
 end;
end;
1
Вениамин Шепард
24 / 10 / 5
Регистрация: 11.01.2014
Сообщений: 85
25.01.2014, 15:08  [ТС] 3
Спасибо огромное!! Код запутанный, но всё же это великолепно!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2014, 15:08

Ошибочное написание
Дано ошибочно написанное слово &quot;роцессорп&quot;. Путем перемещения его букв получить...

Написание игры.
Здраствуйте! Нужна помощь в написании игры на ТурбоПаскале. В игруху нужно...

Написание программы!
Помогите пожалуйста написать в Паскале вот такую задачку! Заранее спасибо!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru