Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2015, 21:50   #1
Slava118king
Новичок
Джуниор
 
Регистрация: 09.04.2015
Сообщений: 1
По умолчанию как нужно изменить координаты что бы получить такой рисунок

uses
GraphABC;
var
x0,y0,x,y,r: integer;
begin
r:=60;
y0:=0;
y0:=0;
x:=230; y:=230;
line (x0,y0+500,x0+500,y0+300);
line (x0+220,y0,x0+220,y0+700);
circle (x,y,r);
rectangle (x0+300,y0+300,x0+500,y0+300)
end.
Slava118king вне форума Ответить с цитированием
Старый 10.04.2015, 12:26   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

у меня нет паскаля под рукой, проверить не могу!
а так не устроит?

Код:
uses
GraphABC;
var
  x,y,r: integer;
begin 
  r:=60;
  x:=230; y:=230;
  line (x-200,y,x+200,y);
  line (x,y-200,x,y+200);
  circle (x,y,r);
  rectangle (x-r,y-r,x+r,y+r);
end.

Последний раз редактировалось Serge_Bliznykov; 10.04.2015 в 12:28.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что нужно изменить? LuZer_86 Паскаль, Turbo Pascal, PascalABC.NET 4 12.04.2011 21:19
как получить координаты курсора Juffin Общие вопросы Delphi 2 12.05.2010 20:05
как нужно изменить код, что бы отображение картинок было корректным? Garret13 Помощь студентам 0 10.05.2010 19:05
что тут нужно изменить? asd48 Общие вопросы C/C++ 2 08.04.2009 21:47
Как мне в ListBox Добавить/Изменить рисунок (иконку)? Рустам Компоненты Delphi 12 10.06.2008 18:54