26.05.2011, 10:47 | #1 (permalink) |
Новичок
Регистрация: 26.05.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы. Нужна помощь в доработке программы.
1. первый шаг я попробовала написать, но почему-то вектор формируется из максимального эл-та только первого столбца. где ошибка? PROGRAM MATRICA; USES WINCRT; VAR A:ARRAY [1..5,1..6] OF INTEGER; B:ARRAY[1..6] OF INTEGER; MAX,MIN,I,J,K:INTEGER; BEGIN RANDOMIZE; FOR I:=1 TO 5 DO FOR J:=1 TO 6 DO A[I,J]:=RANDOM(100)-30; WRITELN('ЗАДАН МАССИВ А'); FOR I:=1 TO 5 DO BEGIN WRITELN; FOR J:=1 TO 6 DO WRITE(A[I,J]:4); END; WRITELN; FOR J:=1 TO 6 DO BEGIN K:=0; MAX:=A[1,J]; FOR I:=1 TO 5 DO BEGIN IF A[I,J]>MAX THEN MAX:=A[I,J]; K:=K+1; B[K]:=MAX; END; WRITELN('ВЕКТОР В,СФОРМИРОВАННЫЙ ИЗ МАКС. ЭЛ-ОВ СТОЛБЦОВ:'); FOR J:=1 TO 6 DO WRITE(B[K]:4); END; END. |
26.05.2011, 10:47 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот аналогичное вашей теме Нужна помощь в написании программы C++ Нужна помощь написании программы-календаря |
26.05.2011, 11:32 | #3 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Внутри внешнего цикла for со счетчиком j у вас опять заведен цикл с этим же самым счетчиком.
__________________
Убить всех человеков! |
26.05.2011, 15:10 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
То есть с учетом обоих замечаний, программа должна выглядеть так:
Код:
PROGRAM MATRICA; USES WINCRT; VAR A:ARRAY [1..5,1..6] OF INTEGER; B:ARRAY[1..6] OF INTEGER; MAX,MIN,I,J:INTEGER; BEGIN RANDOMIZE; FOR I:=1 TO 5 DO FOR J:=1 TO 6 DO A[I,J]:=RANDOM(100)-30; WRITELN('ЗАДАН МАССИВ А'); FOR I:=1 TO 5 DO BEGIN WRITELN; FOR J:=1 TO 6 DO WRITE(A[I,J]:4); END; WRITELN; FOR J:=1 TO 6 DO BEGIN B[J]:=A[1,J]; FOR I:=2 TO 5 DO BEGIN IF A[I,J]>B[J] THEN B[J]:=A[I,J]; END; END; WRITELN('ВЕКТОР В,СФОРМИРОВАННЫЙ ИЗ МАКС. ЭЛ-ОВ СТОЛБЦОВ:'); FOR J:=1 TO 6 DO WRITE(B[J]:4); END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
15.06.2011, 23:53 | #7 (permalink) |
Новичок
Регистрация: 15.06.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
задать программу нахождения количество участков на которых элементы массива монотонно
помогите пожалуйста
1. Создавайте новую тему, а не отписывайтесь в чужих. 2. Если честно, из вашего задания мало что понял, более подробно и полно задание напишите. Ваш модератор. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|