Tantos Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vasya113, так что тебе надо сделать? Табулировать (т.е. вывести значения) на отрезке [0;2п] с шагом п/6? Или просто подсчитать значение выражения при x=п/6? Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 04:29 14-01-2008

Yevgeniy Database Master Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vasya113 Цитата: e Имеется в виду математическая константа? Цитата: x[0;2п]  ;   x=п/6 Переменная "п" задаётся?   Добавлено: Цитата: найти значение выражения Синус... Цитата: y=sin x+2-e-x ...всего выражения или же только значения x? ---------- Omnia Mea Mecum Porto Сервера раскрытия информации Ru-Board BitTorrent Tracker Всего записей: 4850 | Зарегистр. 15-07-2003 | Отправлено: 00:58 15-01-2008

Tantos Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   x = 3.14 / 6 print sin(x) +2-exp(-x)   Вроде так. Давно это было... Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 04:46 15-01-2008

Yevgeniy Database Master Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vasya113 Цитата: найти значение выражения Готово: Код: CLS LET e = 2.718281828459045# LET n = 3.1415926# FOR x = 0 TO (2 * n) STEP (n / 6) LET y = SIN(x) + 2 - e ^ (-x) PRINT "x ="; x, "y ="; y NEXT x END Подходит? ---------- Omnia Mea Mecum Porto Сервера раскрытия информации Ru-Board BitTorrent Tracker Всего записей: 4850 | Зарегистр. 15-07-2003 | Отправлено: 14:23 15-01-2008

Yevgeniy Database Master Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Sumlerinka Цитата: ребята помогите...нужно написать программу в кубасике...суть такова...нужно,что б на экране появились три рыда кругоа причем каждый последующий меньшк предыдущего......помогите... Код: SCREEN 12 LET x = 0 LET y = 125 LET r1 = 55 LET c = 1 10 LET x = x + 150 IF x > 450 THEN y = y + 125 IF x > 450 THEN x = 150 LET r2 = r2 + 5 LET r3 = r1 - r2 LET c = c + 1 CIRCLE (x, y), r3, c REM PRINT "x ="; x, "y ="; y, "r ="; r3, "c ="; c IF c < 10 THEN GOTO 10: IF c > 10 THEN END ---------- Omnia Mea Mecum Porto Сервера раскрытия информации Ru-Board BitTorrent Tracker Всего записей: 4850 | Зарегистр. 15-07-2003 | Отправлено: 14:39 17-01-2008

Tantos Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору OSA1 Где-то так: Код:   iPosSt = iPosNd = 1 FOR i = 1 TO n   if a(i) > 0 then iPosNd = iPosSt : iPosSt = i NEXT i PRINT iPosNd   Доработка на твоей совести, ибо в последний раз я баловался QBasic'ом лет девять назад... Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 04:32 28-04-2008

RIO87 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет всем. Проверьте пожалуйста правельность блок-схем и кодов следующий задач:   1) Условие: S =Сумма(n=1 до 40) (n+2)nx^n Y=x(3-x)/(1-x)3 при 0.6<=x<=3.6 с шагом 0.6   Решение: Блок-схема -       КОД: color 1,15 cls k=0 for  x=0.6 to 3.6 step 0.6 for n=1 to 40 s=s+(n+2)*n*x^n next n locate 6+k, 30 print "S="; S Y=x*(3-x)/(1-x)^3 Print "Y="; Y k=k+1 next x END   2)Условие:  Y=         П(k=1 до 10) x^2/(k+1), если х<2               0, если  х=2               П(к=1 до 10) x/k , если х>2   Х- произвольное   Решение: Блок-схема -       КОД: color 1,15 cls input "Введите x"; x if x<2 then for k=1 to 10 Y=Y+x^2/(k+1) next k Print "Y="; Y IF x=2 then print "Y=0" ELSE for k=1 to 10 Y=Y*x/k next k Print "Y="; Y END     Заранее благодарен. Всего записей: 1 | Зарегистр. 23-11-2008 | Отправлено: 23:22 23-11-2008 | Исправлено: RIO87, 01:44 24-11-2008

Tantos Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Сразу по первой блок-схеме - где сравнение x с 3.6? И почему так криво нарисованы сами блок-схемы? В Paint'e, что-ли, рисовал? По второй: 1. "Ввод х" - лишнее. Достаточно просто "х" (без кавычек, естественно). 2. Блок "конец" желательно располагать не сбоку, а под блоком "Начало"   В код не всматривался, неужели сложно прогнать на интерпретаторе/компиляторе? Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 05:34 24-11-2008

Elashka55 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Здравствуйте!   Помогите, пожалуйста!!! Срочно нужно.     Задание. Разработать программу для контроля количества знаков после запятой в вводимом с клавиатуры числе. Вводится количество знаков после запятой, затем вещественное число. Программа должна при вводе большего числа знаков после запятой, вывести об этом сообщение и округлить до нужной точности. Указание: не использовать строковый тип данных и строковые функции. Всего записей: 2 | Зарегистр. 25-11-2008 | Отправлено: 22:28 25-11-2008

FOBOS1992 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору У меня целая куча вопросов, буду очень благодарен, если кто-нибудь ответит:  1. Где взять установочный файл (или образы дискет, или вообще всеравно что   лишь бы были все файлы оригинальные ,типа, mouse.com, learn.com ...) QuickBASIC 4.5   2. Поставил висту а Бейсик в ней не переходит в полноэкранный режим и, естественно, не активируются графические режимы. Как это исправить  3. На XP я ставил ассоциацию фалов *,bas с программой использую параметр командной строки QuickBASICа /h через"Мой компьютер - Вид - Свойства папки - Типы файлов", а есть ли аналогия на Vistа или только через реестр?   Добавлено: чуть не забыл  4.Установил драйвер Keyrus.com, на XP работал нормально, а на Vista поле нажатия любой клавиши Бейсик "зависает" Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 00:36 03-12-2008

sharlatanat Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Kolesov QuickBASIC TOOLS v.3.11. ---------- © Всего записей: 1291 | Зарегистр. 24-02-2006 | Отправлено: 18:35 08-03-2009

SystemBLOCK Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет всем. Ищу книги по кубасику. Если у кого есть киньте на мыло gve1981@gmail.com пжлста!   Добавлено: Привет всем! Если у кого есть книги по КУБАСИКУ скиньте на мыло gve1981СОБАКАgmail.com пжлста! Всего записей: 58 | Зарегистр. 06-08-2008 | Отправлено: 23:12 11-03-2009

Страницы: 1 2 3 4 5 6 7 8

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » qbasic

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование