|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
13.06.2012, 20:28 | #1 (permalink) |
Member
Регистрация: 13.05.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Двумерный массив
Результаты решения вашей задачи выводите с пояснительными текстами, каждое с новой строки. Если в массиве произошли изменения по заданию, то необходимо еще раз вывести массив на экран. сама задача: Определить количество нечетных по значениям элементов в каждом столбце массива. Код:
{ђ®¬**оЄ 251} program romanuk9_2; uses crt; type Mas = array[1..100,1..100] of integer; var A:mas; b,i,j,c,k:integer; begin clrscr; k:=0; writeln('*введите конечный номер элемента массива(кол-во строк)'); readln(b); writeln('введите конечный номер элемента массива*(кол-во столбцов)'); readln(c); writeln;writeln; randomize; for i:=1 to b do begin for j:=1 to c do begin A[i,j]:=random(200)-100; write(A[i,j]:5); end; writeln; end; for i:=1 to b do begin for j:=1 to c do begin if A[i,j] mod 2 =0 then k:=k else k:=k+1; end; end; writeln;writeln; writeln(k,' -кол-во нечетных чисел'); readln; end. 1)как можно нормально задать размерность массива? 2)как вывести кол-во нечетных чисел в каждом столбце отдельно( я могу либо во всех сразу, либо в одном. А во всех, но по отдельности...увы никак( ) |
13.06.2012, 20:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Нужную информацию так же можно найти всего лишь прочитав аналогичные топики Двумерный массив В Паскале двумерный массив Двумерный массив Фортран, двумерный массив |
13.06.2012, 20:52 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Но прежде - модераторское замечание: давайте уважать Правила форума, в соответствии с которыми наименования тем типа "Помогите!", 'Help!!", "Очень нужна помощь!" и т.п. находятся ПОД ЗАПРЕТОМ. Ну а теперь - программа. Пожалуйста: Код:
uses crt; type Mas = array[1..100,1..100] of integer; var A:mas; b,i,j,c:integer; N_of_Odds:Array[1..100] of Integer; begin clrscr; write('введите кол-во строк '); readln(b); write('введите кол-во столбцов '); readln(c); writeln; writeln; randomize; for i:=1 to b do begin for j:=1 to c do begin A[i,j]:=random(200)-100; write(A[i,j]:5); end; writeln; end; writeln; For j:=1 to c do N_of_Odds[j]:=0; for j:=1 to c do for i:=1 to b do if A[i,j] mod 2 <>0 then Inc(N_of_odds[j]); writeln('кол-во нечетных чисел:'); For j:=1 to c do write(N_of_odds[j]:5); readln; end. |
|
13.06.2012, 21:07 | #3 (permalink) | |
Member
Регистрация: 13.05.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
а по программе только один вопрос: N_of_odds-массив.... а без него никак?и почему вы выбрали столь оригинальное название(ну на второй не обязательно отвечать) |
|
14.06.2012, 09:32 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
В принципе можно, но зачем?
Цитата:
even - четный odd - нечетный N_of_odds - сокращение от "Number of odds" - количество нечетных элементов. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|