Найти наибольшие элементы и их индексы массивов A(K) и B(L)

@WhiteNight · Регистрация: 25.12.2016

Студворк — интернет-сервис помощи студентам

2.Найти наибольшие элементы и их индексы массивов A(K) и B(L).K<=25;L<=35

echs · 20.02.2017, 09:35

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
DECLARE SUB ABC (A() AS INTEGER, k!)
DECLARE SUB MAX (A() AS INTEGER, k!, M!, Mi!)
 
CLS
RANDOMIZE TIMER
k = 1 + INT(25 * RND)
l = 1 + INT(35 * RND)
DIM A(k) AS INTEGER
DIM B(l) AS INTEGER
 
CALL ABC(A(), k)
CALL ABC(B(), l)
 
CALL MAX(A(), k, M, Mi)
PRINT "maxA ="; M; "Index ="; Mi
PRINT
 
CALL MAX(B(), l, M, Mi)
PRINT "maxB ="; M; "Index ="; Mi
END
 
SUB ABC (A() AS INTEGER, k)
   FOR i = 1 TO k
      A(i) = 40 * RND
      PRINT A(i);
   NEXT
   PRINT : PRINT
END SUB
 
SUB MAX (A() AS INTEGER, k, M, Mi)
   M = A(1)
   Mi = 1
 
   FOR i = 1 TO k
      IF M < A(i) THEN
         M = A(i)
         Mi = i
      END IF
   NEXT
END SUB

@WhiteNight · 10.03.2017, 17:17 **[ТС]**

А вы уверены что ваша программа работает?

echs · 10.03.2017, 18:01

WhiteNight
Я снял копию программы с форума и проверил ещё раз.
Она работает. Впрочем я в этом не сомневался.
...
В чем проблема? Программа выдает ошибки? Что-то не так?
У вас точно QBasic? А какая кодировка файла, в котором
находится программа? Ведь это DOS - программа.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@WhiteNight 2 / 2 / 1 Регистрация: 25.12.2016 Сообщений: 23

	Найти наибольшие элементы и их индексы массивов A(K) и B(L) 19.02.2017, 22:12. Показов 825. Ответов 3 Метки нет (Все метки) 2.Найти наибольшие элементы и их индексы массивов A(K) и B(L).K<=25;L<=35 0

@WhiteNight 2 / 2 / 1 Регистрация: 25.12.2016 Сообщений: 23
	10.03.2017, 17:17 [ТС]
	А вы уверены что ваша программа работает? 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	10.03.2017, 18:01
	WhiteNight Я снял копию программы с форума и проверил ещё раз. Она работает. Впрочем я в этом не сомневался. ... В чем проблема? Программа выдает ошибки? Что-то не так? У вас точно QBasic? А какая кодировка файла, в котором находится программа? Ведь это DOS - программа. 0