VPF::Помогите найти ошибку на qbasic - Форум программистов

Trail

Дата 8.6.2012, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 22.11.2009

Репутация: нет
Всего: нет

Всем привет. Ребят помогите найти ошибку в коде или подскажите как лучше решить.это конечно не visual а qbasic но все же. первый раз в нем программирую друг попросил решить несколько задачек.

Вот задача: Поиск в каждой строке массива максимального и минимального элемента.

Дело в том что при выходе из процедуры в переменных MIN и MAX записывались данные.

Код


DECLARE SUB swp (b() AS INTEGER, n AS INTEGER, i AS INTEGER, min AS INTEGER, max AS INTEGER)
DIM a(1 TO 10, 1 TO 10) AS INTEGER
DIM i AS INTEGER, j AS INTEGER
'vvod matricu
CLS
PRINT "vvedite matricu:"
FOR i = 1 TO 3
FOR j = 1 TO 4
INPUT a(i, j)
NEXT j
NEXT i
CALL swp(a(), 4, 1, 0, 0)
CALL swp(a(), 4, 2, 0, 0)
CALL swp(a(), 4, 3, 0, 0)

CLS
PRINT "matrica posle"
FOR i = 1 TO 3
FOR j = 1 TO 4
PRINT a(i, j);
NEXT j
PRINT
NEXT i
PRINT i;
PRINT min;
PRINT max;
END

SUB swp (b() AS INTEGER, n AS INTEGER, i AS INTEGER, min AS INTEGER, max AS INTEGER)
DIM j AS INTEGER
min = b(1, 1)
max = b(1, 1)
FOR j = 1 TO n
IF b(i, j) > max THEN max = b(i, j)
NEXT j
FOR j = 1 TO n
IF b(i, j) < min THEN min = b(i, j)
NEXT j
END SUB

Trail

Дата 8.6.2012, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 22.11.2009

Репутация: нет
Всего: нет

Решил. Пусть не так хорошо и для олимпиады не прокатит))) Тема закрыта.
Если кому интересно вот код.
Осталась еще одна задачка)

Код


DECLARE SUB swp (b() AS INTEGER, n AS INTEGER, i AS INTEGER, k AS INTEGER, m AS INTEGER)
DIM a(1 TO 10, 1 TO 10) AS INTEGER
DIM i AS INTEGER, j AS INTEGER
'vvod matricu
CLS
PRINT "vvedite matricu:"
FOR i = 1 TO 3
FOR j = 1 TO 4
INPUT a(i, j)
NEXT j
NEXT i
CALL swp(a(), 4, 1, 1, 6)
CALL swp(a(), 4, 2, 2, 6)
CALL swp(a(), 4, 3, 3, 6)
CLS
PRINT "matrica do"
FOR i = 1 TO 3
FOR j = 1 TO 4
PRINT a(i, j);
NEXT j
PRINT
NEXT i

PRINT "MAX MIN"
FOR i = 1 TO 3
FOR j = 6 TO 7
PRINT a(i, j);
NEXT j
PRINT
NEXT i
END

SUB swp (b() AS INTEGER, n AS INTEGER, i AS INTEGER, k AS INTEGER, m AS INTEGER)
DIM j AS INTEGER, k(1 TO 6) AS INTEGER
min = b(1, 1)
max = b(1, 1)
FOR j = 1 TO n
IF b(i, j) > max THEN max = b(i, j)
NEXT j
FOR j = 1 TO n
IF b(i, j) < min THEN min = b(i, j)
NEXT j

b(k, m) = max
m = m + 1
b(k, m) = min

END SUB

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »