Построить несколько концентрических окружностей

@warzer27 · Регистрация: 15.12.2015

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста сделать задание в QB.
Построить несколько концентрических окружностей. Задать минимальный радиус, шаг его изменения и количество окружностей. Вывести значение минимального, максимального радиусов и количество окружностей

echs · 16.12.2015, 10:55

Программа проверена
Rmin - минимальный радиус окружности
Rmax - максимальный радиус
SHAG - шаг изменения радиусов
N - количество окружностей

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
 
Rmin = 10
SHAG = 10
N = 10
 
SCREEN 11
WINDOW (-200, 150)-(200, -150)
Rmax = N * SHAG
 
FOR R = Rmin TO Rmax STEP SHAG
   CIRCLE (0, 0), R
NEXT R
 
PRINT "Rmin ="; Rmin
PRINT "Rmax ="; Rmax
PRINT "N ="; N
END

Удачи вам!

@warzer27 · 16.12.2015, 18:54 **[ТС]**

Сообщение от geh

WINDOW (-200, 150)-(200, -150)

Спасибо за помощь) и пожалуйста можете объяснить для чего это команда, мне нужно это знать)

echs · 16.12.2015, 19:11

warzer27
WINDOW (-200, 150)-(200, -150)
Это установление логической системы координат.
В данном случае это означает, что левый верхний
угол имеет координаты x=-200 y=150, а правый нижний
угол имеет координаты x=200 y=-150.
Иными словами, я установил начало координат в центр экрана
и ось Y указывает вверх.
Если не ввести этот оператор, то будет установлена система
координат по умолчанию. То есть левый верхний угол будет
иметь координаты x=0 y=0. А правый нижний x=640 y=480
(То есть Y указывает вниз. А это не всегда удобно)
Например будете рисовать график, а он будет "вверх ногами"

@warzer27 · 17.12.2015, 15:31 **[ТС]**

geh
А можете сделать в программе( то есть уже на черном экране) так чтобы вводить любые данные, там в проге вроде надо INPUT вставить только я хз как и куда(

echs · 17.12.2015, 15:52

warzer27
Вы это сами можете легко сделать. Например вам
нужно ввести N, тогда в строке 5, где инициализируется N
надо ввести код, например такой

QBasic/QuickBASIC
1
INPUT "N = "; N

(Точно также можно добавить ввод Rmin и SHAG)
Примечание
Если вы введете большое значение например N, то окружности
"Вылезут с экрана компьютера"

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@warzer27 0 / 0 / 0 Регистрация: 15.12.2015 Сообщений: 6

	Построить несколько концентрических окружностей 15.12.2015, 20:52. Показов 2444. Ответов 5 Метки нет (Все метки) Помогите пожалуйста сделать задание в QB. Построить несколько концентрических окружностей. Задать минимальный радиус, шаг его изменения и количество окружностей. Вывести значение минимального, максимального радиусов и количество окружностей 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	16.12.2015, 19:11
	warzer27 WINDOW (-200, 150)-(200, -150) Это установление логической системы координат. В данном случае это означает, что левый верхний угол имеет координаты x=-200 y=150, а правый нижний угол имеет координаты x=200 y=-150. Иными словами, я установил начало координат в центр экрана и ось Y указывает вверх. Если не ввести этот оператор, то будет установлена система координат по умолчанию. То есть левый верхний угол будет иметь координаты x=0 y=0. А правый нижний x=640 y=480 (То есть Y указывает вниз. А это не всегда удобно) Например будете рисовать график, а он будет "вверх ногами" 1

@warzer27 0 / 0 / 0 Регистрация: 15.12.2015 Сообщений: 6
	17.12.2015, 15:31 [ТС]
	geh А можете сделать в программе( то есть уже на черном экране) так чтобы вводить любые данные, там в проге вроде надо INPUT вставить только я хз как и куда( 0