QBasic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
QBasic Спутник земли Сделать модель взлёта спутника с поверхности земли и дальнейшее его движение по окружности. Режим screen12. https://www.cyberforum.ru/ qbasic/ thread266986.html	Выяснить сумму элементов массива, у которых порядковый номер совпадает со значениями QBasic Задана последовательность целых чисел. Выяснить сумму элементов массива ,у которых порядковый номер совпадает со значениями.
QBasic Найти сумму элементов побочной диагонали матрицы Помогите пожалуйста! Дана квадратная матрица. Найти сумму элементов побочной диагонали в Qbasic. Заранее спасибо https://www.cyberforum.ru/ qbasic/ thread266618.html	QBasic Найти размеры всех прямоугольников, площадь которых равна натуральному числу S Найти размеры всех прямоугольников площадь которых равна натуральному числу S, стороны которых выражены натуральными числами. Помогите составить программу, пожалуйста! https://www.cyberforum.ru/ qbasic/ thread266514.html
Поставить условие, что вводимое число пользователем должно быть только целым QBasic Подскажите кто может как в Qbasic поставить условие что вводимое число пользователем должно быть только целым т.е 1;2;3;4;5 и т.д а не 12.5 к примеру и когда вводишь с дробной частью что выводило ошибку и обратно возвращало типа cls p1: Input "Введите целое число" ; a If a... then print "число не целое" : GOTO p1 end if вот что поставить в условии после а...?	QBasic Движущаяся окружность https://www.cyberforum.ru/ qbasic/ thread266163.html Сделать окружность радиусом 5 пикселей, движущуюся слева направо по экрану. Режим screen12.
QBasic Заштриховать квадрат Заштриховать квадрат, расположенный в центре экрана, размером 200х200, по вертикали, по горизонтали и по диагонали, с помощью циклов, между штрихами 2 пикселя. Режим screen12. https://www.cyberforum.ru/ qbasic/ thread266162.html	Составить алгоритм и программу определения ближайшей к началу координат точки QBasic Пожалуйста помогите с программой. Составить алгоритм и программу определения ближайшей к началу координат точки плоскости из трех заданных, где ХА=2, YA=1; ХВ=2, YB=2; ХС=-1, YC=3, в среде программирования QBasik
QBasic Даны три числа. Сумма каких двух чисел из них положительна. https://www.cyberforum.ru/ qbasic/ thread265841.html Есть задача и она решена правильна, но есть небольшая загогулина. Сама задача: Даны три числа. Сумма каких двух чисел из них положительна. CLS PRINT PRINT "Nachojdenie dvych chisel iz trech,cumma kotorych polojitelna" PRINT "Vvedite tri chisla" INPUT "Pervoe...", a INPUT "Vtoroe...", b INPUT "Tret'e...", c	QBasic Найти элементы массива менее среднего арифметического https://www.cyberforum.ru/ qbasic/ thread265731.html ПОМОГИТЕ, ПОЖАЛУЙСТА!Задан массив. Создать два массива в одном из которых находятся элементы менее среднего арифметического элементов исходного массива а в другом более среднего Среднее значение я считаю, а дальше не знаю как cls print "Введите кол-во элементов в массиве" input"",x dim a(x),b(t) print"Введите элементы массива" for i=1 to x input"",a(i) next i
Программа не запускается на других ПК QBasic Норад помогите начинающему программисту запустить программу%-) Вообщем взял свою работу из школы домой, чтобы доделать. Но она не хочет запускаться. При запуске она мне выдает ошибку. Помогите.	QBasic Рисунки Помогите выполнить задание. Я прикрепил файл с ним. https://www.cyberforum.ru/ qbasic/ thread265156.html

кот Бегемот

Платежеспособный зверь

8956 / 4382 / 1649

Регистрация: 28.10.2009

Сообщений: 11,624

30.03.2011, 21:19

Массивы и матрицы - QBasic - Ответ 1504317

30.03.2011, 21:19. Показов 603. Ответов 4

Метки (Все метки)

Ответ

Сообщение от kala4

2.Найти в каждой строке матрицы C(n, m) минимальный элемент и по-
менять его местами с последним элементом строки.

PureBasic

 INPUT "vvedite kolichestvo strok N ", n
INPUT "vvedite kolichestvo stolbcov M ", m
DIM c(n, m)
FOR i = 1 TO n
FOR j = 1 TO m
INPUT "vvedite element ", c(i, j)
NEXT
NEXT
PRINT "matrica "
FOR i = 1 TO n
FOR j = 1 TO m
PRINT c(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
nmin = 1
FOR j = 1 TO m
IF c(i, j) < c(i, nmin) THEN nmin = j
NEXT
SWAP c(i, nmin), c(i, m)
NEXT
PRINT "novaya matrica "
FOR i = 1 TO n
FOR j = 1 TO m
PRINT c(i, j);
NEXT
PRINT
NEXT

Вернуться к обсуждению:
Массивы и матрицы QBasic

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.03.2011, 21:19

Готовые ответы и решения:

массивы,поиск, матрицы.
Помогите решить эти задачи,написать к ним текста программ.Срочно надо!Мне сказали,что они не ...

матрицы, массивы, сессия))
собсно, сессия)) помогите кто может буду очень благодарен.... №1 выполнение месячного плана по...

Двумерные массивы (матрицы)
помогите пожалуйста решить задачу. Заданы двумерный массив 5×5 и число K. Разделить элементы...

Заготовки для FAQ (массивы, матрицы)
Взято отсюда https://www.cyberforum.ru/pascal/thread133142.html и переписано (MS DOS Qbasic ver....

	30.03.2011, 21:19

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.03.2011, 21:19

Помогаю со студенческими работами здесь

Ошибка при вводе разного кол-ва строк и столбцов в матрицы. Динамич. матрицы/массивы
Дана матрица, размерность вводит пользователь, данные тоже. Осуществить сортировку вставками,...

массивы и матрицы
1)Дано вещественное число R и массив размера n. Найти два элемента массива, сумма которых наименее...

Массивы, матрицы
дана матрица. получить X1Xn+X2Xn-1+...+XnXi, где Xk - наибольшее значение элементов k-го столбца...

Массивы и матрицы
Добрый день,уважаемые программисты! Направьте на путь истинный! Перемножить матрицу Аij i=n, j=k...

Наверх