| Программирование на 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
|
|
| |
| | |
| Silver_wings | Дата: 17:14 26.12.2009 | Сообщение # 226 |
Новичок
Сообщений: 1
Статус: не в сети
| Люди добрые помогите с задачками, потому что программирование не моё эт точно.
1) Найти сумму ряда с заданной точностью, точность равна 0.01 и определить по n-ному члену.
Ряд: 1+1/3+1/5+1/7+...+1/(2n-1)+...
2) Дана действительная квадратная матрица порядка n, заменить нулями все её элементы расположенные на главной диагонали.
Помогите кому не трудно...
|
| |
| | |
| IwanS | Дата: 08:47 27.12.2009 | Сообщение # 227 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (Silver_wings) Люди добрые помогите с задачками, потому что программирование не моё эт точно. 1) Найти сумму ряда с заданной точностью, точность равна 0.01 и определить по n-ному члену. Ряд: 1+1/3+1/5+1/7+...+1/(2n-1)+...
Наверное, вот так: Code CLS
INPUT "Vvedite N element posledovatelnosti: ", n
PRINT "1";
sum = 1
FOR cnt = 2 TO n
PRINT " + 1 \"; 2 * cnt - 1;
sum = sum + 1 / (2 * cnt - 1)
NEXT cnt
PRINT
PRINT "SUM = "; sum Quote (Silver_wings) 2) Дана действительная квадратная матрица порядка n, заменить нулями все её элементы расположенные на главной диагонали.
Совсем легко: Code CLS
INPUT "Vvedite poryadok matrici: ", n
DIM a(n, n)
FOR cnt = 1 TO n
FOR cnt2 = 1 TO n
PRINT "Vvedite element "; cnt; " str "; cnt2; " stolbca:";
INPUT " ", a(cnt, cnt2)
NEXT cnt2
NEXT cnt
FOR cnt = 1 TO n
a(cnt, cnt) = 0
NEXT cnt
FOR cnt = 1 TO n
FOR cnt2 = 1 TO n
PRINT a(cnt, cnt2);
NEXT cnt2
PRINT " "
NEXT cnt |
|
| |
| | |
| Motormen29 | Дата: 21:39 27.12.2009 | Сообщение # 228 |
Новичок
Сообщений: 2
Статус: не в сети
| Парни помогите пажалуйста написать программу,у меня остался последний зачет по информатике а у меня такой трабл!
"Ежемесячный расход топлива каждым из 4 судов пароходства за 5 месяцев навигации представлен в виде матрицы (4х5).Среднемесячная норма расхода для судов данного типа также задается.Определить для каждого месяца навигации номера судов,допустивших перерасход."В принципе задачу я решил но не до конца,у меня распечатываеться номера судов только за один месяц а надо сделать за каждый месяц!Заранее спасибо
|
| |
| | |
| Histel | Дата: 12:38 29.12.2009 | Сообщение # 229 |
|
Новичок
Сообщений: 3
Статус: не в сети
| помогите плиз написать програму у двумерном масиве у QBasic дано 3 стовпца и 3 строки найти количество положительных и отрыцательных
елементов,обчислить суму всех столбцов инайтис них найменшую
|
| |
| | |
| IwanS | Дата: 16:02 29.12.2009 | Сообщение # 230 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (Motormen29) Парни помогите пажалуйста написать программу,у меня остался последний зачет по информатике а у меня такой трабл! "Ежемесячный расход топлива каждым из 4 судов пароходства за 5 месяцев навигации представлен в виде матрицы (4х5).Среднемесячная норма расхода для судов данного типа также задается.Определить для каждого месяца навигации номера судов,допустивших перерасход."В принципе задачу я решил но не до конца,у меня распечатываеться номера судов только за один месяц а надо сделать за каждый месяц!Заранее спасибо
Можно попробовать такую реализацию: Code DIM a(4, 6)
FOR cnt = 1 TO 4
PRINT "Input avg cost for "; cnt; " ship: ";
INPUT ":", a(cnt, 6)
FOR cnt2 = 1 TO 5
PRINT "Input cost for "; cnt; " ship in "; cnt2; " month";
INPUT ":", a(cnt, cnt2)
NEXT cnt2
NEXT cnt
PRINT
FOR cnt = 1 TO 5
FOR cnt2 = 1 TO 4
IF a(cnt2, cnt) > a(cnt2, 6) THEN PRINT "Overloading for "; cnt; " ship in "; cnt2; " month!"
NEXT cnt2
NEXT cnt Quote (Histel) помогите плиз написать програму у двумерном масиве у QBasic дано 3 стовпца и 3 строки найти количество положительных и отрыцательных елементов,обчислить суму всех столбцов инайтис них найменшую
А это наверное вот так: Code CLS
DIM a(3, 3)
pol = 0
otr = 0
DIM b(3)
FOR cnt = 1 TO 3
FOR cnt2 = 1 TO 3
PRINT "Imput element of "; cnt; " row "; cnt2; " line";
INPUT ": ", a(cnt, cnt2)
IF a(cnt, cnt2) > 0 THEN pol = pol + 1
IF a(cnt, cnt2) < 0 THEN otr = otr + 1
b(cnt2) = b(cnt2) + a(cnt, cnt2)
NEXT cnt2
NEXT cnt
PRINT
PRINT "Kol-vo elems who > 0 - "; pol
PRINT "Kol-vo elems who < 0 - "; otr
FOR cnt = 1 TO 3
PRINT "Sum for "; cnt; " row = "; b(cnt)
NEXT cnt
IF b(1) < b(2) AND b(1) < b(3) THEN PRINT "Minimum = 1"
IF b(2) < b(1) AND b(2) < b(3) THEN PRINT "Minimum = 2"
IF b(3) < b(2) AND b(3) < b(1) THEN PRINT "Minimum = 3"
Изменил IwanS - Вторник, 29.12.2009, 19:09
|
|
| |
| | |
| Histel | Дата: 18:57 29.12.2009 | Сообщение # 231 |
|
Новичок
Сообщений: 3
Статус: не в сети
| -11.2 13.7 -7.2
16.1 -13.4 11.1
2.6 18.2 7.1 помогите плиз ИЩЕ РАЗ С ЭТИМИ ЧИСЛАМИ написать програму у двумерном масиве у QBasic дано 3 стовпца и 3 строки найти количество положительных и отрыцательных елементов,обчислить суму всех столбцов инайтис них найменшую
Изменил Histel - Вторник, 29.12.2009, 18:58
|
| |
| | |
| IwanS | Дата: 19:10 29.12.2009 | Сообщение # 232 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Quote (Histel) -11.2 13.7 -7.2 16.1 -13.4 11.1 2.6 18.2 7.1
Немного поправил код к Вашему вопросу, я там двойку в строке "b(cnt) = b(cnt) + a(cnt, cnt2)" сначала не дописал. Вы предлагаете, чтобы цифры были забиты в самой программе? Уточните задание.
|
|
| |
| | |
| Histel | Дата: 20:54 29.12.2009 | Сообщение # 233 |
|
Новичок
Сообщений: 3
Статус: не в сети
| ну да я хочу что написал програму в условие были даны эти числа
-11.2 13.7 -7.2
16.1 -13.4 11.1
2.6 18.2 7.1
а потом было написано :у двумерном масиве у QBasic дано 3 стовпца и 3 строки найти количество положительных и отрыцательных елементов,обчислить суму всех столбцов инайтис них найменшую .
Изменил Histel - Вторник, 29.12.2009, 22:05
|
| |
| | |
| IwanS | Дата: 08:57 30.12.2009 | Сообщение # 234 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Histel, тогда предлагаю такой вариант: Code CLS
DIM a(3, 3)
pol = 0
otr = 0
DIM b(3)
a(1, 1) = -11.2: a(1, 2) = 13.7: a(1, 3) = -7.2
a(2, 1) = 16.1: a(2, 2) = -13.4: a(2, 3) = 11.1
a(3, 1) = 2.6: a(3, 2) = 18.2: a(3, 3) = 7.1
FOR cnt = 1 TO 3
FOR cnt2 = 1 TO 3
IF a(cnt, cnt2) > 0 THEN pol = pol + 1
IF a(cnt, cnt2) < 0 THEN otr = otr + 1
b(cnt2) = b(cnt2) + a(cnt, cnt2)
NEXT cnt2
NEXT cnt
PRINT
PRINT "Kol-vo elems who > 0 - "; pol
PRINT "Kol-vo elems who < 0 - "; otr
FOR cnt = 1 TO 3
PRINT "Sum for "; cnt; " row = "; b(cnt)
NEXT cnt
IF b(1) < b(2) AND b(1) < b(3) THEN PRINT "Minimum in 1 row"
IF b(2) < b(1) AND b(2) < b(3) THEN PRINT "Minimum in 2 row"
IF b(3) < b(2) AND b(3) < b(1) THEN PRINT "Minimum in 3 row" Все делает сама, как Вы и хотели.
|
|
| |
| | |
| Arkasha | Дата: 18:08 09.01.2010 | Сообщение # 235 |
|
Новичок
Сообщений: 1
Статус: не в сети
| Здравствуйте, помогите с задачкой уже просто не могу больше... она не больно сложная но вот не могу темнемение 
Найти наименьший из положительных элементов массива А и определить его индекс
А (-2,8,-0.2,4.5,8,0.07,8,0.2,8,-13,0,21) вот что накидал... но выдает только 0 или последнее число((
заранее благодарю!!
CLS
DATA -2,8,-0.2,4.5,8,0.07,8,0.2,8,-13,0,21
DIM b(12)
FOR i = 1 TO 12
READ b(i)
PRINT b(i)
NEXT i
FOR i = 1 TO 12
IF b(i) > 0 THEN
min = b(i)
k = i
END IF
NEXT i
FOR i = 1 TO 12
IF min > 0 THEN
IF min > b(i) THEN
min = b(i)
k = i
END IF
END IF
NEXT i
PRINT "Ї®«"; min
PRINT "Ё¤ҐЄб"; k
|
| |
| | |
| IwanS | Дата: 09:15 11.01.2010 | Сообщение # 236 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Arkasha, к примеру так Code CLS
DATA -2, 8, -0.2, 4.5, 8, 0.07, 8, 0.2, 8, -13, 0, 21, 65535
DIM a(13)
b = 13
FOR cnt = 1 TO 13
READ a(cnt)
NEXT cnt
FOR cnt = 1 TO 12
PRINT a(cnt); " ";
IF a(cnt) > 0 AND a(cnt) < a(b) THEN b = cnt
NEXT cnt
PRINT
PRINT "Element N"; b; " = "; a(b); " > 0 and min!"
|
|
| |
| | |
| kostik | Дата: 19:26 12.01.2010 | Сообщение # 237 |
|
Новичок
Сообщений: 2
Статус: не в сети
| Можно вопрос как решить двумерный массив А(3,3) - сумма,максимальное и минимальное значение по строкам и по столбцам? Добавлено (12.01.2010, 19:26)
---------------------------------------------
Можно вопрос а как найти мах,min и сумму двумерного массива a(3,3) по строкам и по столбцам?
|
| |
| | |
| Motormen29 | Дата: 19:31 12.01.2010 | Сообщение # 238 |
|
Новичок
Сообщений: 2
Статус: не в сети
| Помогите пожалуйста ещё а то ваша программа не коректно работает  ,вот мой вариант
CLS
DIM A(4,5)
DATA 54,52,60,48,50
DATA 55,48,60,56,58
DATA 49,52,54,62,57
DATA 55,54,56,64,52
MAX =-1E+37
FOR I=1 TO 5
S=0:K=0
FOR J=1 TO 4
READ A(J,I)
PRINT A(J,I)
S=S+A(J,I)
NEXT J
K=S/5
IF S>MAX THEN MAX=S:N=I
NEXT I
PRINT "MAX=";MAX;"N=";N
END
Вот с помощью этого находит только номер одного судна и за один месяц,а нужно за каждый месяц найти норму перерасхода и сравнить с каждым числом в этой матрице только как это сделать я не знаю((
|
| |
| | |
| IwanS | Дата: 20:58 12.01.2010 | Сообщение # 239 |
|
Администратор
Сообщений: 1849
Статус: не в сети
| Motormen29, а что некорректно-то? Неправильно перерасход находит? Или что? Quote (kostik) Можно вопрос как решить двумерный массив А(3,3) - сумма,максимальное и минимальное значение по строкам и по столбцам?
Отдельно ищите максимумы в строках, потом отдельно ищите максимумы в столбцах...
|
|
| |
| | |
| kostik | Дата: 21:52 12.01.2010 | Сообщение # 240 |
|
Новичок
Сообщений: 2
Статус: не в сети
| Нее я и хочу узнать как создать массив по строкам и по столбцам по отдельности,весь интернет облазил не где ненашол(
|
| |
| |
|
