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

Найти максимальный элемент массива - QBasic

Восстановить пароль Регистрация
 
Лидия74123
0 / 0 / 0
Регистрация: 04.01.2017
Сообщений: 1
04.01.2017, 23:11     Найти максимальный элемент массива #1
Всем привет прошу помочь!!Буду очень благодарна.

Дан массив А (7). Найти максимальный элемент массива.
Составьте алгоритм и программу вычисления значений функции на произвольном отрезке с произвольным шагом
y=x2+cos(x) - при 0<x<=2
y=4/x - в остальных случаях.

Решить необходимо в Qbasic
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.01.2017, 23:11     Найти максимальный элемент массива
Посмотрите здесь:

Найти Максимальный элемент массива Turbo Pascal
Найти максимальный элемент массива Turbo Pascal
Turbo Pascal Найти максимальный элемент одномерного массива и поменять местами второй элемент с максимальным
Turbo Pascal Найти максимальный элемент массива
Найти максимальный элемент массива Turbo Pascal
Turbo Pascal Найти максимальный элемент массива.
Найти максимальный элемент массива Turbo Pascal
Turbo Pascal Найти максимальный элемент массива среди элементов массива, после первого отрицательного
Turbo Pascal Найти максимальный элемент массива
Turbo Pascal Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива
Turbo Pascal Найти произведение чисел строки двухмерного массива, содержащей максимальный элемент массива

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
702 / 897 / 345
Регистрация: 23.10.2013
Сообщений: 4,105
Записей в блоге: 3
05.01.2017, 10:49     Найти максимальный элемент массива #2
1.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
RANDOMIZE TIMER
CONST n = 7
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)
 
FOR i = 1 TO n
   IF max < A(i) THEN max = A(i)
NEXT
PRINT "MAX ="; max
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 0 < x AND x <= 2 THEN
      f = x ^ 2 + COS(x)
   ELSE
      IF x <> 0 THEN f = 4 / x
   END IF
END FUNCTION
Yandex
Объявления
05.01.2017, 10:49     Найти максимальный элемент массива
Ответ Создать тему
Опции темы

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