Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Achtung! Перевод из паскаля в бейсик уже 3 часа сижу https://www.cyberforum.ru/ qbasic/ thread1890927.html
Люди добрые, помогите перевести сие творение ку бейсик. const n=5; var a,b:arrayof integer; c:arrayof integer; d:integer; begin
Массив. Дано натуральное число n, массив A[n] QBasic
Дано натуральное число n, массив A.Вычислить: |a1|,|a1+a2|,|a1+...+an|; Помогите пожалуйста
QBasic Массив: определить число элементов, имеющих четные порядковые номера и являющихся нечетными числами Даны натуральные числа n, a(1)...a(n). Определить количество членов a(k) последовательность a(1)...a: Имеющих четные порядковые номера и являющихся нечетными числами Помогите,пожалуйста! https://www.cyberforum.ru/ qbasic/ thread1890752.html QBasic Алгоритм и программа вычисления значений функции на произвольном отрезке с произвольным шагом Составьте алгоритм и программу вычисления значений функции на произвольном отрезке с произвольным шагом: y = √x - при -3 < x <= 3; y = 1 / x2 - в остальных случаях. Ребят не силен в этом языке ,знаю задание простое на паскале бы написал,а тут этот язык,заранее всем спасибо.. DECLARE FUNCTION f1! (x!) DECLARE FUNCTION f2! (x!) CLS INPUT " = "; a https://www.cyberforum.ru/ qbasic/ thread1890690.html
QBasic окажите содействие с решением пожалуйста,очень надо сдать!)
окажите содействие с решением пожалуйста,очень надо!)
QBasic Матрица Прошу помощи с задачей на Turbo Basic Дана матрица, содержащая как положительные, так и отрицательные элементы. Удалить все ее столбцы, содержащие только положительные элементы. https://www.cyberforum.ru/ qbasic/ thread1890460.html
QBasic В матрице удалить столбы с максимальным и минимальным элементами матрицы https://www.cyberforum.ru/ qbasic/ thread1890229.html
В матрице удалить столбы с максимальным и минимальным элементами матрицы, а затем на место первого добавить столбец из произведений элементов соответствующих строк.
Построить параметрически заданный график QBasic
Построить график y = .06 * SIN(.5 * x) * COS(5 * x) z = COS(x) при икс лежащем на интервале REM REM y = .06 * SIN(.5 * x) * COS(5 * x) REM z = COS(x) REM
QBasic Разработка программы Разработать программу для задания: найти сумму положительных элементов квадратной матрицы (10*10). Подскажите, что-то никак не выходит. https://www.cyberforum.ru/ qbasic/ thread1890090.html QBasic Вычислить выражение 3 Обозначение LOG(b) = \log_a b Вычислить выражение LOG(ln(ln(..... 3000000))) Количество логарифмов определяется условием: "Пока под логарифмом число больше 1" REM https://www.cyberforum.ru/ qbasic/ thread1890040.html
Вычислить выражение 2 QBasic
Вычислить: L3]4]5 , где обозначение \log_a (b) = L(b) REM REM z = 1.460543 REM
QBasic Вычислить выражение Вычислить ln(1+ln1) + ln(2+ln2)+...+ln(N+lnN) при N = 400 и отбросить дробную часть. REM REM ln(1+ln1) + ln(2+ln2)+...+ln(N+lnN) REM REM SUMMA = 2017 REM https://www.cyberforum.ru/ qbasic/ thread1889994.html
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
29.12.2016, 10:56 0

Определить в каждой строке матрицы минимальные и максимальные элементы, после чего поменять их местами - QBasic - Ответ 9955195

29.12.2016, 10:56. Показов 1011. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено sugoi как решение

Решение

примечание
если в строке матрицы окажется два и более
минимумов (максимумов), то программа выберет
первый их них

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
CLS
RANDOMIZE TIMER
CONST n = 8
 
DIM D(1 TO n, 1 TO n)
DIM B(1 TO n, 1 TO n)
DIM M(1 TO n, 1 TO 2)  ' jmax, jmin
DIM MM(1 TO n, 1 TO 2) '  max, min
 
FOR i = 1 TO n
FOR j = 1 TO n
   D(i, j) = INT(40 * RND) - 20
   B(i, j) = D(i, j)
   PRINT USING "####"; D(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO n
   MM(i, 1) = D(i, 1)
   MM(i, 2) = D(i, 1)
   M(i, 1) = 1
   M(i, 2) = 1
NEXT
 
FOR i = 1 TO n
FOR j = 1 TO n
   IF MM(i, 1) < B(i, j) THEN
      MM(i, 1) = B(i, j)
      M(i, 1) = j
   END IF
   IF MM(i, 2) > B(i, j) THEN
      MM(i, 2) = B(i, j)
      M(i, 2) = j
   END IF
NEXT j, i
 
FOR i = 1 TO n
   SWAP B(i, M(i, 1)), B(i, M(i, 2))
NEXT i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "####"; B(i, j);
NEXT: PRINT
NEXT
END


Вернуться к обсуждению:
Определить в каждой строке матрицы минимальные и максимальные элементы, после чего поменять их местами QBasic
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.12.2016, 10:56
Готовые ответы и решения:

Найти в каждой строке матрицы максимальные и минимальные элементы и поменять их местами
Дано матрица. Найти каждый строке матрицы максимальные и минимальные элементы и поменят его местами

Определить в каждой строке матрицы max и min элементы, после чего поменять их местами
Дана матрица D(8x8), элементами которой являются целые числа. определить в каждой строке max и min...

Поменять местами строки, содержащие минимальные и максимальные элементы матрицы
Дана матрица размером М х N. Поменять местами строки, содержащие минимальные и максимальные...

Поменять местами максимальные элементы 1 и 3 столбцов и минимальные элементы 2 и 4 строки матрицы
Поменять местами максимальные элементы первого и третьего столбцов и минимальные элементы второй и...

1
29.12.2016, 10:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.12.2016, 10:56
Помогаю со студенческими работами здесь

Найти в каждой строке матрицы минимальные и максимальные элементы
...помогите пожалуйста составить две програмки,ничего не получается у меня:sorry: 1)Дана матрица...

Поменять местами столбцы матрицы, содержащие минимальные и максимальные элементы матрицы
Помогите, пожалуйста, решить задачу на двумерные массивы.. Дана матрица размера M на N. Поменять...

Поменять местами минимальные и максимальные элементы матрицы “а” на соответствующие матрицы ”b”
Двумерные массивы. Поменять местами минимальные и максимальные элементы матрицы “а” на...

В каждой строке прямоугольной матрицы обменять максимальные и минимальные элементы
В каждой строке прямоугольной матрицы обменять максимальный и минимальный элементы строки....

Поменять местами минимальные и максимальные элементы матрицы A на соответствующие элементы матрицы B
Поменять местами минимальные и максимальные элементы матрицы &quot;а&quot; на соответствующие матрицы &quot;б&quot;....

Найти наибольший элемент в каждой строке матрицы, после чего поменять его местами с диагональным
Во входном файле in.txt задана квадратная матрица из целых чисел, например: 1 7 4 3 6 3 2 0 ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru