IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> ЗАДАЧА ПО QBasic'y, помогите пожалуйста
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


Народ спасайте! Помогите пожалуйста решить задачку простейшую решается будет ли у меня допуск или нет.
Задача:
Обработать на компьютере матрицу R(n,m): найти максимальный и минимальный элементы и поменять их местами. Предусмотреть обработку матрицы размером nxm элементов, где n<=20 и m<=20. Вывести на печать результаты и исходную матрицу в общепринятом виде. Проверить правильность выполнения программы с помощью текстового варианта (n=3 , m=4)


(Элементы матрицы Rзадать самостоятельно; в матрице могут быть как положительные так и отрицательные элементы могут быть и нули; среди элементов матрицы должны быть только один максимальный и один минимальный элемент; матрица должна быть размером не менее 4х6).

Буду очень благодарен кто поможет решить.

Сообщение отредактировано: Spail -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Цитата
Проверить правильность выполнения программы с помощью текстового варианта (n=3 , m=4)
...
(матрица должна быть размером не менее 4х6)

blink.gif
Это у меня от жары мозги плавятся? Какого размера должна быть матрица?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


Цитата(мисс_граффити @ 23.05.2007 16:23) *

blink.gif
Это у меня от жары мозги плавятся? Какого размера должна быть матрица?

ну n<=20 и m<=20 в примере проверить на 3x4
Вот начало задачи и оно правильное мне нужна вторая её часть:

Код
CLS
Input "введите кол-во строк";n
Input "введите количество столбцов";m
Option base 1
Dim R(n,m)
Print "введите элементы матрицы"
For i=1 to n
For j=1 to m
Input R(i,j)
next j
next i
max=R(1,1)
jmax=1
imax=1
min=R(1,1)
imin=1
jmin=1
For i=1 to n
For j=1 to m

М
На будущее: пользуйся тегами для обрамления кода.
мисс_граффити


А дальше у меня возникли затруднения я не знаю что писать

Добавлено через 9 мин.
Конкретного размера в задаче не указано а только ограничений на n и m <=20

Сообщение отредактировано: мисс_граффити -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


как-то так, что ли?
сразу предупреждаю: выводится некрасиво, можешь заморочиться с форматированием.
проверку на величину m и n не добавляла - сам говоришь, первая часть правильная

Код
10 CLS
20 INPUT "введите кол-во строк"; n
30 INPUT "введите количество столбцов"; m
40 OPTION BASE 1
50 DIM R(n, m)
60 PRINT "введите элементы матрицы"
70 FOR i = 1 TO n
80 FOR j = 1 TO m
90 INPUT R(i, j)
100 NEXT j
110 NEXT i
120 max = R(1, 1)
130 jmax = 1
140 imax = 1
150 min = R(1, 1)
160 imin = 1
170 jmin = 1
175 S$ = ""
180 FOR i = 1 TO n
190 FOR j = 1 TO m
191 IF R(i, j) > max THEN max = R(i, j): imax = i: jmax = j
192 IF R(i, j) < min THEN min = R(i, j): imin = i: jmin = j
200 S$ = S$ + STR$(R(i, j)) + " "
210 NEXT j
220 PRINT S$
225 S$ = ""
230 NEXT i
240 PRINT (max)
250 PRINT (min)
260 R(imax, jmax) = min
270 R(imin, jmin) = max
280 FOR i = 1 TO n
290 FOR j = 1 TO m
300 S$ = S$ + STR$(R(i, j)) + " "
310 NEXT j
320 PRINT S$
325 S$ = ""
330 NEXT i


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


О красавица большое тебе спасибо только позволь узнать что такое S$

Добавлено через 2 мин.
Цитата(Spail @ 23.05.2007 17:32) *

О красавица большое тебе спасибо только позволь узнать что такое S$



Добавлено через 2 мин.
Цитата(Spail @ 23.05.2007 17:32) *

О красавица большое тебе спасибо только позволь узнать что такое S$

Добавлено через 2 мин.

И что такое " " и SRT$
А в конце вроде должен быть Prinut Using " ###.##;n;
Print Using "###.####;m
end
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Ну не знаю
S$ - строка

Цитата
А в конце вроде должен быть Prinut Using " ###.##;n;
Print Using "###.####;m
end

ну поставь
я про такое первый раз слышу
сама на qbasic писала в жизни примерно 3 программы, каждая по 50 строк (в смысле, 10 20 30 40 50 smile.gif ), и то 2 года назад.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата
SRT$

str$ - ф-ция, переводящая число в строку
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 21.10.2021 12:52
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name