Argentum94
1

Определить максимальный и минимальный элемент двух заданных матриц

19.03.2013, 22:26. Показов 1610. Ответов 1
Метки нет (Все метки)

Определить максимальный и минимальный элемент двух заданных матриц X (N, M) и Y (N, M).

В результатах жуткая фигня получается:
xmax=-1E10
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
CLS
INPUT n, m
DIM x(1 TO n, 1 TO m)
DIM y(1 TO n, 1 TO m)
FOR i = 1 TO n
    FOR j = 1 TO m
        x(i, j) = INT(RND(i) * 100 - 50)
        x(i, j) = INT(RND(j) * 100 - 50)
    NEXT j
NEXT i
FOR i = 1 TO n
    FOR j = 1 TO m
        y(i, j) = INT(RND(i) * 100 - 50)
        y(i, j) = INT(RND(j) * 100 - 50)
    NEXT j
NEXT i
FOR i = 1 TO n
    FOR j = 1 TO m
        xmax = -10 ^ -10
        xmin = 10 ^ 10
        IF x(i, j) > xmax THEN xmax = x(i, j): ixmax = i: jxmax = j
        IF x(i, j) < xmin THEN xmin = x(i, j): ixmin = i: jxmin = j
    NEXT j
NEXT i
FOR i = 1 TO n
    FOR j = 1 TO m
        ymax = -10 ^ -10
        ymin = 10 ^ 10
        IF y(i, j) > ymax THEN ymax = y(i, j): iymax = i: jymax = j
        IF y(i, j) < ymin THEN ymin = y(i, j): iymin = i: jymin = j
    NEXT j
NEXT i
PRINT "Matix X:"
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT USING "###"; x(i, j);
    NEXT j
    PRINT
NEXT i
PRINT "Matrix Y:"
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT USING "###"; y(i, j);
    NEXT j
    PRINT
NEXT i
PRINT
PRINT "Maximal elements:"
PRINT "xmax=", xmax
PRINT "ymax=", ymax
PRINT "Minimal elements:"
PRINT "xmin=", xmin
PRINT "ymin=", ymin
PRINT
PRINT "imaxy=", iymax
PRINT "jmaxy=", jymax
PRINT "imaxx=", ixmax
PRINT "jmaxx=", jxmax
PRINT "iminx=", ixmin
PRINT "jminx=", jxmin
PRINT "iminy=", iymin
PRINT "jminy=", jymin
END
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2013, 22:26
Ответы с готовыми решениями:

Определить максимальный и минимальный элемент 2-ух заданных матриц
Определить максимальный и минимальный элемент 2-ух заданных матриц X(N,M) и Y(N,M).

Найти максимальный элемент двух заданных матриц
Ввести два двумерных массива из 8 вещественных чисел. Найти максимальный эл и напечатать его номер....

Найти минимальный элемент в массиве. Напечатать элементы заданных матриц в обратном порядке
Два двумерных массива, содержащие соответственно 4х5 и 3х8 вещественных элементов. Ввести и...

Минимальный и максимальный элемент двух массивов
Здравствуйте. Помогите, пожалуйста, исправить программу. Я не могу понять, где ошибка. Задача:...

1
135 / 62 / 24
Регистрация: 08.11.2012
Сообщений: 250
26.03.2013, 10:01 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
26
27
28
CLS
INPUT n, m
DIM x(n, m), y(n, m)
RANDOMIZE TIMER
PRINT "X(n,m)"
FOR i = 1 TO n
    FOR j = 1 TO m
        x(i, j) = INT(RND(i) * 100 - 50)
        y(i, j) = INT(RND(i) * 100 - 50)
        PRINT USING "####";x(i, j);
   NEXT j
PRINT
NEXT i
PRINT "Y(n,m)"
minx = x(1, 1):miny = y(1, 1)
FOR i = 1 TO n
FOR j = 1 TO m
IF x(i, j) > maxx THEN maxx = x(i, j)
IF x(i, j) < minx THEN minx = x(i, j)
IF y(i, j) > maxy THEN maxy = y(i, j)
IF y(i, j) < miny THEN miny = y(i, j)
PRINT USING "####";y(i, j);
NEXT j
PRINT
NEXT i
PRINT
PRINT "maxX="; maxx, "minX="; minx
PRINT "maxY="; maxy, "minY="; miny
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2013, 10:01
Помогаю со студенческими работами здесь

Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы
Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы....

Определить максимальный и минимальный элемент
Составить программу в турбо PASCAL. Ввести размерность матрицы и значения ее элементов. ...

Определить максимальный и минимальный элемент
Дан двухмерный массив. Определить максимальный и минимальный элемент. Организовать вывод координат...

Определить минимальный из наибольших элементов двух квадратных целочисленных матриц
помогите с задание Определить минимальный из наибольших элементов двух квадратных целочисленных...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru