Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
Надя9797
0 / 0 / 0
Регистрация: 05.01.2017
Сообщений: 2
#1

Найти минимальный элемент массива и его порядковый номер - QBasic

05.01.2017, 16:38. Просмотров 224. Ответов 1
Метки нет (Все метки)

Добрый день! Очень прошу помочь.
1) Дан массив А(6). Найти минимальный элемент массива и его порядковый номер.
2) Составьте алгоритм и программу вычисления значений функции на произвольном отрезке с произвольным шагом:
y =  x - при -3 < x <= 3;
y = 1 / x2 - в остальных случаях.

Заранее благодарю за ответ!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2017, 16:38     Найти минимальный элемент массива и его порядковый номер
Посмотрите здесь:
QBasic Найти минимальный элемент массива и его порядковый номер
Oпределить минимальный элемент массива и его порядковый номер, найденный минимальный элемент поменять местами с последним элементом массива. QBasic
QBasic Найти элемент последовательности(его порядковый номер и значение,ближайшее к n).
Определить минимальный элемент массива, его номер строки и столбца QBasic
В двумерном найти минимальный элемент и указать его номер. QBasic
Найти минимальное число и его порядковый номер в последовательности QBasic
QBasic Найти минимальный элемент матрицы и вывести его и его координаты
QBasic Найти порядковый номер того числа вещественного массива, которое наиболее близко к целому числу
QBasic Найти в матрице минимальный элемент и определить его местоположение
QBasic Найти минимальный элемент матрицы и указать его координаты
В матрице найти минимальный элемент и поставить его на главную диагональ QBasic
QBasic Найти сумму элементов массива, максимальный и минимальный элемент массива

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
05.01.2017, 17:11     Найти минимальный элемент массива и его порядковый номер #2
1.
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
CLS
RANDOMIZE TIMER
CONST n = 6
DIM A(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 40 * RND - 20
   PRINT A(i);
NEXT
PRINT : PRINT
 
max = A(1)
ind = 1
 
FOR i = 1 TO n
   IF max < A(i) THEN
   max = A(i)
   ind = i
   END IF
NEXT
PRINT "MAX ="; max
PRINT "IMAX ="; ind
END
2.
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
DECLARE FUNCTION f! (x!)
 
CLS
INPUT "[A; B] = "; A, B
INPUT "SHAG H = "; h
 
FOR x = A TO B STEP h
   n = n + 1
   IF n MOD 20 = 0 THEN
      PRINT "PRESS ENTER"
      DO: LOOP UNTIL INKEY$ <> ""
      CLS
   ELSE
      PRINT USING "X = ###.###   Y = ###.###"; x; f(x)
   END IF
NEXT
END
 
FUNCTION f (x)
   IF -3 < x AND x <= 3 THEN
      f = x
   ELSE
      f = 1 / x ^ 2
   END IF
END FUNCTION
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru