Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 10.07.2013
Сообщений: 18

Нарисовать лист клена

31.05.2014, 12:11. Показов 2039. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите нарисовать лист клена
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
31.05.2014, 12:11
Ответы с готовыми решениями:

Нарисовать кленовый лист
1. Используя модификации оператора line, нарисуйте (так, чтобы его было легко передвинуть, задавая начальные координаты рисунка с...

Как нарисовать нотный лист?
Здравствуйте! Осваиваю Qt, установил версию 5.3.2 Есть задание - нарисовать лист бумаги и нотные линейки на нем. В будущем это все...

Используя процедуру Лист нарисовать 10 разноцветных листьев
Задание: Используя процедуру Лист нарисовать 10 разноцветных листьев С предыдущим заданием, где необходимо было нарисовать звезду,...

6
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
 Аватар для magirus
28049 / 15785 / 983
Регистрация: 15.09.2009
Сообщений: 67,752
Записей в блоге: 78
31.05.2014, 12:15
тебе показать как кленовый лист выглядит?
0
0 / 0 / 0
Регистрация: 10.07.2013
Сообщений: 18
31.05.2014, 12:17  [ТС]
не показать, а нарисовать!
разве просьба не ясно написана?
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
 Аватар для magirus
28049 / 15785 / 983
Регистрация: 15.09.2009
Сообщений: 67,752
Записей в блоге: 78
31.05.2014, 12:18
Цитата Сообщение от Rina21 Посмотреть сообщение
а нарисовать!
рисуй.
Цитата Сообщение от Rina21 Посмотреть сообщение
разве не ясно задан вопрос?
нет. помочь и сделать за тебя - две разные вещи.
0
0 / 0 / 0
Регистрация: 10.07.2013
Сообщений: 18
31.05.2014, 12:21  [ТС]
ну если бы я сама могла нарисовать, то не просила бы о помощи. не так ли?
0
159 / 104 / 124
Регистрация: 01.04.2014
Сообщений: 466
Записей в блоге: 7
31.05.2014, 14:17
Вот код, решающий вашу задачу
Чтобы сделать эту задачу, надо сначала создать
графический файл размером 640*480. Таков в данном
случае размер графического экрана Бейсика. Вы рисуете
лист клена или все что хотите. Бейсик умеет хорошо рисовать
прямые линии, но ему нужны координаты концов отрезков.
Их получить очень просто. Я данный файл открыл в виндовском
пайнте (это простейший графический редактор). Наводите
курсор на нужную точку и считываете (записываете) СРАЗУ
ОБЕ координаты x и y ПОДРЯД. Эти координаты переносите
в том порядке в каком рисуете (не отрывая руки от бумаги) в
оператор DATA (их количество не имеет значения)
Если вы хотите нарисовать более сложный (красивый) лист клена, то
вам придётся взять много точек (в интернете подобных рисунков море)
Вот и все.
(программа проверена)
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DEFSNG X-Y
DEFINT I
CLS
DATA 448,17,433,6,366,110,337,67,92,88
DATA 244,140,70,300,250,245,205,450,337,289
DATA 407,455,415,225,550,327,436,124,377,120
 
SCREEN 12
PSET (377, 120)
 
FOR i = 1 TO 15
   READ x, y
   LINE -(x, y), 10
NEXT i
END
Удачи вам!
Миниатюры
Нарисовать лист клена  
1
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
02.06.2014, 00:24
gehh, это конопля какая-то, подрезанная, а не кленовый лист.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
02.06.2014, 00:24
Помогаю со студенческими работами здесь

Нарисовать параметрически заданную поверхность (лист Мебиуса)
x=(5+ucos(v/(2)))cosv, y=(5+ucos(v/(2)))sinv, z=usin(v/(2)), v in .

Листья клена падают с ясени..
http://www.pilot-center.ru/ в ЯКе по тематике "Авиация и космонавтика"... Любопытно, это после включения в каталог контент сменили...

Задача "Два клена"
(Заранее спасибо всем, кто поможет). Задача E. Два клена (100 баллов) И снова Баба-Яга похитила Феденьку и Егорушку. И снова она...

Программа возвращающая лист папок и лист файлов по заданному пути
Сначала объявляем структуру возвращаемую функцией ref struct dirsfiles { array<DirectoryInfo^>^ list_dirs; ...

Libre Calc, выборочное заполнение ячеек в Лист 2 из Лист 1 по команде
Может кто поможет... Есть заранее сформированный список Людей и их данных (Лист 1), необходимо в Листе 2 реализовать автозаполнение ячеек...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
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, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru