VPF::Окружность - Форум программистов

Сый

Дата 8.3.2006, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 131
Регистрация: 23.1.2006

Репутация: 2
Всего: 3

Нужно вывести окружность в знакоместа командной строки, заполняя эти знакоместа символами (например точками). Поделитесь алгоритмом, желательно на Глаголе.

--------------------

Язык программирования, родственный языкам Паскаль и Оберон, использующий русские служебные слова - Глагол: http://glagol.nad.ru

maxim1000

Дата 8.3.2006, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 33
Всего: 110

запускаем Google
набираем "рисование окружности"
первая же ссылка

--------------------

qqq

SoWa

Дата 8.3.2006, 19:05 (ссылка)

(голосов:1)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 6
Всего: 74

Цитата(Сый @ 8.3.2006, 18:29

)

знакоместа

Кто это такие?
Добавлено @ 19:06
А рисовать окружность по синусу.

--------------------

Всем добра smile

NewDima

Дата 9.3.2006, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

Репутация: нет
Всего: 12

Можно достаточно просто, забей какойнить массивчик пробелами сначала, а потом
в цикле от одного до 360(i) (порегулируй) x присваивай cos(i), y - sin(i), причем умножай их на одинаковое число.
получаешь координаты, и тут же в цикле забиваешь в массив свои крестики(точечки) в массив.
Then выводишь массив на экран.
З.Ы. Не забудь перевести радианы в градусы (умножаешь на Пи, делишь на 180). Удачи

--------------------

Начинаем черкать!

Akina

Дата 9.3.2006, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 20
Всего: 454

Цитата(Сый @ 8.3.2006, 19:29

)

Нужно вывести окружность в знакоместа командной строки, заполняя эти знакоместа символами (например точками).

Не забудь дернуть разрешение экрана и учесть 4/3 в плотности пикселов - а то эллипс нарисуешь.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Сый

Дата 9.3.2006, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 131
Регистрация: 23.1.2006

Репутация: 2
Всего: 3

Ну синусами не очень удобно, так что решил использовать уравнение окружности.
Таким образом я вывел половину окружности:
user posted image

Как бы теперь лучше вывести вторую половину?
Добавлено @ 14:15
> учесть 4/3 в плотности пикселов - а то эллипс нарисуешь.
Знакоместо - не есть пиксел. Так что учесть пришлось пропорции знакоместа.

Это сообщение отредактировал(а) Сый - 9.3.2006, 20:17

--------------------

Akina

Дата 9.3.2006, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 20
Всего: 454

Цитата(Сый @ 9.3.2006, 15:11

)

Знакоместо - не есть пиксел

Знакоместо - определенных размеров (в пикселах) прямоугольник.

--------------------

sergejzr

Дата 9.3.2006, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 4
Всего: 360

Вторая половина это теже значения по X и -1*Y по Y

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Сый

Дата 9.3.2006, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 131
Регистрация: 23.1.2006

Репутация: 2
Всего: 3

Всем спасибо. Вот таким образом я вывел эту окружность:

Код


ОТДЕЛ Окружность+;

ИСПОЛЬЗУЕТ    
  Матем ИЗ "...\Отделы\Числа\",    
  Вывод ИЗ "...\Отделы\Обмен\";    

ПОСТ    
  Радиус = 15;    
  Знакоместо = 2/3; (* Отношение ширины знакоместа к его высоте *)    
  ОтступОтСтенки = Радиус;

ПЕР    
  ч: ЦЕЛ;    

ЗАДАЧА Считать(ч: ЦЕЛ): ЦЕЛ;    
УКАЗ    
ВОЗВРАТ УЗК(ВШИРЦЕЛ(Матем.квкор(Матем.кв(Радиус) - Матем.кв(ч))*Знакоместо));    
КОН Считать;    

УКАЗ    
  ОТ ч := -Радиус ДО Радиус ВЫП    
    Вывод.ВПрямоуг(ч+Радиус+ОтступОтСтенки, Радиус - Считать(ч), ч+Радиус+ОтступОтСтенки, Радиус - Считать(ч), ".");    
    Вывод.ВПрямоуг(ч+Радиус+ОтступОтСтенки, Считать(ч) + Радиус, ч+Радиус+ОтступОтСтенки, Считать(ч) + Радиус, ".");    
  КОН;
КОН Окружность.

--------------------

sergejzr

Дата 9.3.2006, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 4
Всего: 360

Это что за язык smile

? (если не секрет)

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

SoWa

Дата 9.3.2006, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 6
Всего: 74

sergej.z, Глагол! Ты не первый кто это спрашивает! smile

--------------------

Всем добра smile

Сый

Дата 9.3.2006, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 131
Регистрация: 23.1.2006

Репутация: 2
Всего: 3

Создавал же два раза тему про Глагол smile

Вот официальный сайт языка: http://glagol.nad.ru

--------------------

quarz

Дата 12.3.2006, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 205
Регистрация: 7.1.2005

Репутация: нет
Всего: 3

кошмар какой)) эта вещь хуже Кумира! )))

maxim1000

Дата 12.3.2006, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 33
Всего: 110

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

--------------------

qqq

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Алгоритмы \| Следующая тема »