Программирование на Qbasic - Программирование - Программное обеспечение

Программирование на Qbasic

IwanS

Дата: 10:47 08.07.2008 | Сообщение # 1

Администратор

Сообщений: 387

Статус: не в сети

Всем привет!

Продолжаем добрую традицию помогать всем посетителям в программировании на QBasic. Напоминаю, что у нас есть самоучитель по qbasic (1 часть и 2 часть).

Ждем ваших задач и наших решений!

Внимание! В этой теме работаем только с Microsoft QBasic!

Техзадание - точное и четкое определение задачи, стоящей перед программистом. В техзадании должно содержаться достаточно сведений, чтобы человек мог написать адекватную запросу программу. При этом нужно уметь не просто перепечатать задание преподавателя, а понимать его смысл и быть готовым ответить на вопросы по заданию. Без нормального техзадания лично я помогать с программированием не буду!

Мы любим отвечать на вопросы - это делает нас умнее! ©

Изменил IwanS - Понедельник, 22.12.2008, 22:15

IwanS

Дата: 10:09 05.01.2009 | Сообщение # 61

Администратор

Сообщений: 387

Статус: не в сети

Quote (Dark)

1.Даны два массива, размером по 15 элементов. Найти среднее арифмитическое для элементов 1-го массива, номера которых больше номера минимального элемента 2-го массива..

Code

CLS
DIM a(15)
DIM b(15)
FOR cnt = 1 TO 15
PRINT "Введите ", cnt, " элемент 1 массива"
INPUT a(cnt)
NEXT cnt
FOR cnt = 1 TO 15
PRINT "Введите ", cnt, " элемент 2 массива"
INPUT a(cnt)
NEXT cnt
min = b(1)
FOR cnt = 2 TO 15
IF min > b(cnt) THEN min = b(cnt)
NEXT cnt
ec = 0
sum = 0
FOR cnt = 1 TO 15
IF a(cnt) > min THEN sum = sum + a(cnt): ec = ec + 1
NEXT cnt
sr = sum / ec
PRINT "Ср. арифметическое: ", sr

Quote (Dark)

2.Дана матрица А(6Х7).Распечатать строку матрицы. в которой находится максимальный элемент. Вычеслить среднее арифметическое элементов 3-го столбца..

Code

CLS
DIM a(6, 7)
FOR i = 1 TO 6
FOR j = 1 TO 7
PRINT "Введите элемент ", i, " строки ", j, " столбца"
INPUT a(i, j)
NEXT j
NEXT i
maxe = a(1, 1)
mi = 1
mj = 1
FOR i = 1 TO 6
FOR j = 1 TO 7
IF a(i, j) > maxe THEN maxe = a(i, j): mi = i: mj = j
NEXT j
NEXT i
FOR j = 1 TO 7
PRINT a(mi, j); ' ';
NEXT j
FOR i = 1 TO 6
max = max + a(i, 3)
NEXT i
sr = max / 6
PRINT "Ср. арифметическое - ", sr

Dark

Дата: 13:13 06.01.2009 | Сообщение # 62

Новичок

Сообщений: 2

Статус: не в сети

Спасибо большое прям выручили=)))

Добавлено (06.01.2009, 13:13)
---------------------------------------------
Ребят сможете еще помоч=))тут еще одна проблема 2 задачи=)я их решаю ну чет прям не получается=))
1.Табулирование функций, нахождение максимума и минимума
Y=x^3+x^(1/2)-3c
начальное х=2
конечное х=3
шаг по х=0.1
2.Табулирование функций двух переменных
Z=b2^(x^2*y)+sqr(b)*cos(2x)
Изменение аргументов первого интервал X пренадлежит [0;п/2] шаг=0.2
второго интервал Y пренадлежит [0;1] шаг=0.25
Исходные данные b=1.2