Нужна помощь в QBASIc - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Все инфопродукты и приватная информация бесплатно
Старый 18.12.2011, 11:25   #1 (permalink)
SOCKS4
 
Регистрация: 08.12.2011
Сообщений: 132
Member ID: 21843
ICQ 3-70-70-3

Репутация: 147
Репутация: 147
Сказал(а) спасибо: 168
Поблагодарили 49 раз(а) в 37 сообщениях
Топикстартер (автор темы) Восклицание Нужна помощь в QBASIc

Нужно Решить Задачку+) Сам в QBASIC никогда даже глазом не заглядывал. Знакомый Попросил сделать нужно щас+)


Задание. Запишите программу под именем PIRAMIDA.BAS. Измените высоту, ширину, цвет ступенек. Составьте пирамиду из закрашенных прямоугольников; из закрашенных прямоугольников с рамкой другого цвета.

Заметим, что использование переменной h для обозначения высоты ступенек позволяет проще изменять высоту ступеньки.
valera14.10 вне форума   Ответить с цитированием
Старый 18.12.2011, 11:49   #2 (permalink)
SOCKS5
 
Регистрация: 19.06.2009
Сообщений: 270
Member ID: 711

Репутация: 629
Репутация: 629
Сказал(а) спасибо: 106
Поблагодарили 261 раз(а) в 165 сообщениях
По умолчанию Re: Нужна помощь в QBASIc

Л®вёј/div>
http://www.helloworld.ru/texts/comp/lang/qbasic/book/Image10.gif

Задача. Нарисовать на экране пирамиду из 10 ступенек-прямоугольников.
Решение. Воспользуемся тем, что пирамида имеет осевую симметрию. Расположим ось пирамиды посредине экрана. Пронумеруем прямоугольники сверху вниз числами от 1 до 10. Очевидно, что значения x1, y1, x2, y2 зависят от номера прямоугольника. В силу симметрии, чтобы получить x1, нужно от 160 вычесть что-то, а чтобы получить x2 - прибавить столько же.
Составим вспомогательную табличку.
Код HTML:
Номер
ступеньки 	x1 	             x2
1 	             160 - 10 	160 + 10
2 	             160 - 20 	160 + 20
3 	             160 - 30 	160 + 30
...   	... 	...
10 	             160 - 100 	160 + 100
Легко заметить, что номер ступеньки-прямоугольника и величина добавки связаны зависимостью

добавка = 10*номер.

Если обозначить через k номер ступеньки, получим формулы для вычисления x1 и x2:

x1 = 160 - 10*k

x2 = 160 + 10*k

Значения y1 и y2 также зависят от номера и высоты ступеньки h, где h - некоторая заранее заданная величина (например, h = 10):

y1 = 40 + h*k

y2 = y1 + h

Теперь можно составить программу.

PHP код:
SCREEN 7
10
FOR 1 TO 10
   x1 
160 10*k
   x2 
160 10*k
   y1 
40 h*k
   y2 
y1 h
   LINE 
(x1y1)-( x2y2), , B
NEXT k 
DRIFT вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 18.12.2011, 13:44   #3 (permalink)
SOCKS4
 
Регистрация: 08.12.2011
Сообщений: 132
Member ID: 21843
ICQ 3-70-70-3

Репутация: 147
Репутация: 147
Сказал(а) спасибо: 168
Поблагодарили 49 раз(а) в 37 сообщениях
Топикстартер (автор темы) По умолчанию Re: Нужна помощь в QBASIc

drift, Я понял что ты умеешь пользоватся Поисковиком, Эту то задачу я и сам находил. Ты дал совершенно другую задачУ!
valera14.10 вне форума   Ответить с цитированием
Старый 18.12.2011, 13:54   #4 (permalink)
SOCKS5
 
Регистрация: 19.06.2009
Сообщений: 270
Member ID: 711

Репутация: 629
Репутация: 629
Сказал(а) спасибо: 106
Поблагодарили 261 раз(а) в 165 сообщениях
По умолчанию Re: Нужна помощь в QBASIc

А что не так? Переменной h задается ширина,
LINE (x1, y1)-(x2, y2), [цвет], B - здесь можно задать цвет линий..
Для закраски ступеней используем оператор:
PAINT (x, y), цвет_закраски, цвет_границы


Если необходимо, чтобы каждая следующая ступень была другой ширины, просто в начало цикла нужно дописать, к примеру
Код:
h = h + 2
Чтобы изменить количество ступеней - меняем соответствующее количество повторений цикла.

Я на QBasic последний раз программировал лет 7-8 назад... И то ещё кое-что помню)
Если твой знакомый хоть раз его запускал, поменять значения в исходном коде не составит труда, задача самая простая из возможных =) - нарисовать прямоугольнички и раскрасить xD

Последний раз редактировалось DRIFT; 18.12.2011 в 14:14.
DRIFT вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 22.01.2012, 23:08   #5 (permalink)
***VIP***
SOCKS5
 
Регистрация: 05.06.2011
Сообщений: 291
Member ID: 15405
ICQ 819465
Skype saimoon3191

Репутация: 402
Репутация: 402
Сказал(а) спасибо: 28
Поблагодарили 134 раз(а) в 68 сообщениях
По умолчанию Re: Нужна помощь в QBASIc

кубейсик такой бред, ща тоже его проходим((( 2й курс и все еще он,вот зачем он нам нужен?сразу бы учили там с+ или вб)
saimon3191 вне форума   Ответить с цитированием
Старый 23.01.2012, 15:33   #6 (permalink)
SOCKS5
 
Регистрация: 19.06.2009
Сообщений: 270
Member ID: 711

Репутация: 629
Репутация: 629
Сказал(а) спасибо: 106
Поблагодарили 261 раз(а) в 165 сообщениях
По умолчанию Re: Нужна помощь в QBASIc

Мы в 6 классе на QBasic писали, смешно так было) Потом паскаль был, в старших - Delphi.
А сейчас у меня вообще нет программирования. Специальность не связана с ним.. =)
DRIFT вне форума   Ответить с цитированием
Старый 23.01.2012, 21:49   #7 (permalink)
***VIP***
SOCKS5
 
Регистрация: 05.06.2011
Сообщений: 291
Member ID: 15405
ICQ 819465
Skype saimoon3191

Репутация: 402
Репутация: 402
Сказал(а) спасибо: 28
Поблагодарили 134 раз(а) в 68 сообщениях
По умолчанию Re: Нужна помощь в QBASIc

Цитата:
Сообщение от drift Посмотреть сообщение
Мы в 6 классе на QBasic писали, смешно так было) Потом паскаль был, в старших - Delphi.
А сейчас у меня вообще нет программирования. Специальность не связана с ним.. =)
нефигасебе )это в обычной школе такое???
saimon3191 вне форума   Ответить с цитированием
Старый 23.01.2012, 22:58   #8 (permalink)
SOCKS4
 
Регистрация: 08.12.2011
Сообщений: 132
Member ID: 21843
ICQ 3-70-70-3

Репутация: 147
Репутация: 147
Сказал(а) спасибо: 168
Поблагодарили 49 раз(а) в 37 сообщениях
Топикстартер (автор темы) По умолчанию Re: Нужна помощь в QBASIc

saimon3191, Тоже щас Будем скоро проходить его, тоже думаю бред=) Лучше бы сразу паскаль!
valera14.10 вне форума   Ответить с цитированием
Старый 23.01.2012, 23:15   #9 (permalink)
HTTP/S
 
Регистрация: 05.01.2010
Сообщений: 98
Member ID: 5498

Репутация: 84
Репутация: 84
Сказал(а) спасибо: 86
Поблагодарили 60 раз(а) в 38 сообщениях
По умолчанию Re: Нужна помощь в QBASIc

Также проходили кубейсик в 6 классе, но дело даже не дошло до массивов.
В 7 классе - ABC Pascal.

Школа с гуманитарным уклоном
Toushiro вне форума   Ответить с цитированием
Ответ

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь kastore Сети LAN, Internet 2 18.02.2011 10:25
Нужна помощь Long Флейм 2 23.01.2011 21:20
Нужна Помощь ;))) didik Флейм 3 12.10.2010 15:52
Нужна помощь ) kekc Флейм 5 02.10.2010 02:33
нужна помощь) 6o6p Флейм 2 30.03.2010 23:43




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.