Нарисовать окружность и отрезки, идущие к ее смещенному центру - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.71/7:

@NUETOTSEREZHA 0 / 0 / 0 Регистрация: 22.11.2013 Сообщений: 9

	Нарисовать окружность и отрезки, идущие к ее смещенному центру 22.11.2013, 13:10. Показов 1529. Ответов 2 Метки нет (Все метки) Помогите нарисовать это в паскале абс. Могу только круг нарисовать,а дальше не могу) 0

Лучшие ответы (1)

Сообщение: #5373093

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

22.11.2013, 13:10

Ответы с готовыми решениями:

Нарисовать фигуру, вписанную в окружность заданного радиуса и имеющую внутреннюю вписанную окружность
Добрый день. Если есть возможность, подскажите пожалуйста код программы в Delphi для того, чтобы нарисовать фигуру , вписанную в...

Нарисовать отрезки один из другого
Подскажите, пожалуйста, как мне нарисовать отрезок в matlabe, если ,например, есть два массива, в одном в строке два числа - начало...

Нарисовать окружность
Нарисовать откружность с заключённой в него трапецией

Puporev

Почетный модератор

64314 / 47610 / 32743

Регистрация: 18.05.2008

Сообщений: 115,168

22.11.2013, 13:27

Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses graphABC;
var xc,yc,x1,y1,r,x,y,i:integer;
    u:real;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=100;
circle(xc,yc,r);
x1:=xc;
y1:=yc-r div 3;
u:=pi/2;
for i:=1 to 16 do
 begin
  x:=xc+round(r*cos(u));
  y:=yc-round(r*sin(u));
  line(x1,y1,x,y);
  u:=u+pi/8
 end;
end.

@NUETOTSEREZHA 0 / 0 / 0 Регистрация: 22.11.2013 Сообщений: 9
	22.11.2013, 13:29 [ТС]
	спасибо! 0

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

22.11.2013, 13:29

Помогаю со студенческими работами здесь

Нарисовать окружность в 3D
Здравствуйте, как нарисовать окружность в пространстве, чтобы она была перпендикулярна экрану? Идей как это реализовывать нет совсем....

Нарисовать окружность в QT
Всем привет. Требуется нарисовать окружность. Вопрос в том с помощью чего можно нарисовать, алгоритм Брезенхейма или кривые Безье(нашол в...

Нарисовать окружность
Пишу на Visual C++ 2012. вот коды: // Win32Project1.cpp: определяет точку входа для приложения. // #include...

Нарисовать окружность
Помогите , нужна программа рисующая окружность , вроде всё просто , ну я не плох в информатике.

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

Наверх