| Программирование на Qbasic |
| IwanS | Дата: 10:47 08.07.2008 | Сообщение # 1 |
Администратор
Сообщений: 1849
Статус: не в сети
| Всем привет! Продолжаем добрую традицию помогать всем посетителям в программировании на QBasic. Напоминаю, что у нас есть самоучитель по qbasic (1 часть и 2 часть). Ждем ваших задач и наших решений!
Для большей наглядности вы можете прикрепить картинку с формулой из задачи. Для этого напечатайте формулу в Microsoft Word и нажмите кнопку PrtScr SysRq. После этого запускаем mspaint и нажимаем Правка -> Вставить. Выделяем область с формулой и нажимаем Копировать в файл. Теперь нажимаем Файл -> Открыть и пересохраняем нашу картинку в формате JPEG. Разрешено прикреплять картинки только в форматах JPEG или GIF!
Техзадание - точное и четкое определение задачи, стоящей перед программистом. В техзадании должно содержаться достаточно сведений, чтобы человек мог написать адекватную запросу программу. При этом нужно уметь не просто перепечатать задание преподавателя, а понимать его смысл и быть готовым ответить на вопросы по заданию. Без нормального техзадания лично я помогать с программированием не буду! Строгому наказанию подлежит несоблюдение правил орфографии и пунктуации. Пишите грамотно, правильно расставляйте запятые. Иначе в коде мы тоже будем косячить так, что фиг разберешь, что там вообще написано!
Изменил IwanS - Четверг, 12.02.2009, 17:21
|
|
| |
| | |
| Kamilla | Дата: 20:46 14.10.2008 | Сообщение # 2 |
Новичок
Сообщений: 2
Статус: не в сети
| Мне надо написать в QBasic программу на сложение двух матриц. Тема - Разработка и отладка сложной циклической программы. Если у вас получится, помогите, плиз! 
|
| |
| | |
| IwanS | Дата: 12:23 15.10.2008 | Сообщение # 3 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Ну хотя бы так: Code CLS
INPUT "Введите размерность матрицы по горизонтали, по вертикали: ", i, j
DIM a(i, j)
DIM b(i, j)
DIM c(i, j)
FOR ct = 1 TO i
FOR cn = 1 TO j
PRINT "Введите элемент ", ct, "столбца ", cn, "строки"
INPUT a(ct, cn)
NEXT cn
NEXT ct
PRINT "Заполняем вторую матрицу"
FOR ct = 1 TO i
FOR cn = 1 TO j
PRINT "Введите элемент ", ct, "столбца ", cn, "строки"
INPUT b(ct, cn)
NEXT cn
NEXT ct
PRINT "Матрицы заполнены, выводим результат"
FOR ct = 1 TO i
FOR cn = 1 TO j
c(ct, cn) = a(ct, cn) + b(ct, cn)
PRINT c(ct, cn)
NEXT cn
NEXT ct |
|
| |
| | |
| Pavel | Дата: 10:40 26.10.2008 | Сообщение # 4 |
Новичок
Сообщений: 2
Статус: не в сети
| Помогите пожалуйста решить задачу.
В матрице 4х4 найти минимальный элемент четвёртого столбца и сумму элементов по главной диагонали.
Завтра cдавать это. Пожалуйста помогите.
Изменил Pavel - Воскресенье, 26.10.2008, 10:43
|
| |
| | |
| IwanS | Дата: 11:36 28.10.2008 | Сообщение # 5 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (Pavel) В матрице 4х4 найти минимальный элемент четвёртого столбца и сумму элементов по главной диагонали. Code CLS
DIM a(4, 4)
FOR i = 1 TO 4
FOR j = 1 TO 4
PRINT "Введите элемент", i, "строки", j, "столбца"
INPUT a(i, j)
NEXT j
NEXT i
q = a(1, 4)
FOR i = 2 TO 4
IF q > a(i, 4) THEN q = a(i, 4)
NEXT i
PRINT "Минимальный элемент 4 столбца равен ", q
q = a(1, 1) + a(2, 2) + a(3, 3) + a(4, 4)
PRINT "Сумма диагоналей по диагонали", q
END
|
|
| |
| | |
| IwanS | Дата: 12:02 28.10.2008 | Сообщение # 6 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (Rengo) Найти НОДдвух чисел
Code CLS
INPUT "Введите первое число ", a
INPUT "Введите второе число ", b
FOR cnt = a TO 2 STEP -1
IF (a MOD cnt = 0) AND (b MOD cnt = 0) THEN PRINT "Наибольший общий делитель равен ", cnt: END
NEXT cnt
END |
|
| |
| | |
| IwanS | Дата: 17:02 28.10.2008 | Сообщение # 7 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (Rengo) 2- найти НОК двух чисел
Далеко не факт, что это правильно, оно нестабильно, но оно работает: Code CLS
INPUT "Введите первое число ", a
INPUT "Введите второе число ", b
FOR cnt = a TO 2 STEP -1
IF (a MOD cnt = 0) AND (b MOD cnt = 0) THEN END
NEXT cnt
q = a * b / cnt
PRINT "Наименьшее общее кратное ", q
END |
|
| |
| | |
| KOPCAP | Дата: 22:15 01.11.2008 | Сообщение # 8 |
Новичок
Сообщений: 16
Статус: не в сети
| ПОЖАЛУЙСТА ПОМОГИ
В театре N рядов по М мест в каждом. даны две матрицы - в первой записаны стоимости билетов.
Вторая сообщает, какие билеты проданы, а какие — нет (1 - соответствующий билет продан, 0 - не
продан). Определите общую выручку от спектакля.
Вводится сначала число N затем число М. Затем задана матрица стоимостей билетов (N строк по М
чисел, каждое из чисел от О до 10000). далее задана матрица проданных билетов (опять же N строк по
М чисел). N и М не превышают 100
Выведите общую выручку от продажи билетов Пример ввода
34
1100 100 1
1551
2232 1011
0110
0010
Пример вывода~ 115
|
| |
| | |
| IwanS | Дата: 23:46 01.11.2008 | Сообщение # 9 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (KOPCAP) ПОЖАЛУЙСТА ПОМОГИ
Code CLS
INPUT "Введите n, m ", n, m
DIM a(n, m)
DIM b(n, m)
FOR cnt1 = 1 TO n
FOR cnt2 = 1 TO m
PRINT "Введите стоимость билета в ", cnt1, "ряду ", cnt2, "места"
INPUT a(cnt1, cnt2)
NEXT cnt2
NEXT cnt1
FOR cnt1 = 1 TO n
FOR cnt2 = 1 TO m
PRINT "Место в", cnt1, "ряду номер", cnt2, "занято?"
INPUT b(cnt1, cnt2)
NEXT cnt2
NEXT cnt1
summ = 0
FOR cnt1 = 1 TO n
FOR cnt2 = 1 TO m
IF b(cnt1, cnt2) = 1 THEN summ = a(cnt1, cnt2) + summ
NEXT cnt2
NEXT cnt1
PRINT "Выручка равна ", summ
END |
|
| |
| | |
| IwanS | Дата: 17:06 02.11.2008 | Сообщение # 10 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (KOPCAP) Плиз помоги ещё с одной задачей
Code CLS
INPUT "Введите N", n
s = 1
FOR cnt = 1 TO n
s = s * cnt
NEXT cnt
PRINT "Сумма - ", s
END Quote (KOPCAP) я чёто условия не понял и пример
  
Так, комрады, чувствую, скоро меня будут просить написать прогу сложения двух заранее известных чисел. Читайте самоучитель и учитесь! Как другие форумчане - не знаю, а вот лично я больше не буду помогать по задачам третьего класса. Отныне будем обсуждать только средние и сложные задачи. Читаем самоучитель и радуемся.
|
|
| |
| | |
| exe | Дата: 14:25 04.11.2008 | Сообщение # 11 |
Новичок
Сообщений: 2
Статус: не в сети
| всем привет.ребят, нуждаюсь в вашей помощи. всё на Qbasic #1
Считая известными тарифа на кв. м, пользование лифтом, отопление, газ и воду, разработать алгоритм и программу расчета ежемесячной квартплаты с учетом площади квартиры, этажа и числа жильцов.
Организовать двойной цикл (внешний по месяцам и внутренний по числу квартир), где в теле цикла обеспечить и ввод данных, и расчет, и вывод на печчать результатов. Условие включения оплаты за использование лифта задать самостоятельно. #2
Разработать алгоритм и составить машинную программу вычисления (до определнного значения) суммы на счете вкладчика сбербанка при условии ежемесячного начисления процентов от вклада и помесячной капитализации дохода. #3
По заданному объему ссуды и ежеквартальным платежам разработать алгоритм и составить машинную программу расчета срока ее погашения при различных (задаваемых в режими диалога условиях кредитования. какую-нибудь из этих.
огромная благодарность, за помощь другим. вы молодцы.
Изменил exe - Вторник, 04.11.2008, 14:34
|
| |
| | |
| IwanS | Дата: 16:47 04.11.2008 | Сообщение # 12 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (FORM479) ДАВАЙ Я ТЕБЕ ЛУЧШЕ ПО АСИ ПЕРЕДАМ ПРОГУ!
Передавай. Можно ещё на мыло (iwan@наш_сайт). Quote (exe) #1 Считая известными тарифа на кв. м, пользование лифтом, отопление, газ и воду, разработать алгоритм и программу расчета ежемесячной квартплаты с учетом площади квартиры, этажа и числа жильцов. Организовать двойной цикл (внешний по месяцам и внутренний по числу квартир), где в теле цикла обеспечить и ввод данных, и расчет, и вывод на печчать результатов. Условие включения оплаты за использование лифта задать самостоятельно. #2 Разработать алгоритм и составить машинную программу вычисления (до определнного значения) суммы на счете вкладчика сбербанка при условии ежемесячного начисления процентов от вклада и помесячной капитализации дохода. #3 По заданному объему ссуды и ежеквартальным платежам разработать алгоритм и составить машинную программу расчета срока ее погашения при различных (задаваемых в режими диалога условиях кредитования.
Ну впринципе выполнима любая из трех задач. Но условия нужно конкретизировать. В первой задаче не понятно, почему кв. м. лифта стоит денег О_о, во второй не понятно, какой ежемесячный процент и что такое "капитализация дохода". Третью надо переформулировать. См. пример ТЗ (технического задания) предыдущих авторов.
|
|
| |
| | |
| exe | Дата: 17:15 04.11.2008 | Сообщение # 13 |
|
Новичок
Сообщений: 2
Статус: не в сети
| видимо,капитализация - это получение дохода не только на основной капитал, но и на процент.
а, процент задается произвольно. плата за лифт не за кв.м, а за его пользование, я так понимаю.
Quote cls
print "Вычисление комунального платежа за месяц..."
input "Введите через запятую: тариф на свет, показания счетчика в прошлом месяце, показания в текущем ", svettarif, lastsvet, cntsvet
input "Введите через запятую: тариф на газ, показания счетчика в прошлом месяце, показания в текущем ", gaztarif, lastgaz, cntgaz
input "Введите через запятую: тариф на виду, показания счетчика в прошлом месяце, показания в текущем ", vodatarif, lastvoda, cntvoda
input "Введите ежемесячную плату за мусор", musorpay
svetpay = svettarif * (cntsvet - lastsvet)
gazpay = gaztarif * (cntgaz - lastgaz)
vodapay = vodatarif * (cntvoda - lastvoda)
allitem = svetpay + gazpay + vodapay + musorpay
print "Вы должны заплатить за все: ", allitem
end
я нашла этот алгоритм, еще на старом форуме http://www.sysadmin.3dn.ru/forum/10-53-1
но,здесь всё усложняют циклы((. а, третья, вообщем-то как и предыдущие две перепечатаны из методички. я, начала читать пособие по бейсику, но времени нет, что бы достаточно углублинно изучить и усвоить это.
а, задания надо здвавать на днях.
|
| |
| | |
| russian_neo | Дата: 15:36 05.11.2008 | Сообщение # 14 |
|
Новичок
Сообщений: 2
Статус: не в сети
| Здорова!
Смотрю, тут народ юзрит на бэйсике. А вот я только начал. Думал, а нафиг все эти игры да и начну учиться програмировать. Может подскажешь, где можно скачать хорошие учебники, или сам чему-нибудь научишь.
|
| |
| | |
| REsearch | Дата: 16:09 05.11.2008 | Сообщение # 15 |
Сисадмин
Сообщений: 968
Награды: 11
Статус: не в сети
| russian_neo,
Quote Смотрю, тут народ юзрит на бэйсике. А вот я только начал. Думал, а нафиг все эти игры да и начну учиться програмировать. Может подскажешь, где можно скачать хорошие учебники, или сам чему-нибудь научишь.
Слушай, а чем тебе неподходит часть1 и часть2 ?
Смотрю здорово учеба идет 
|
|
| |
| |
|
