19.03.2013, 22:24 | #1 (permalink) |
Member
Регистрация: 19.03.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -131
|
Определить количество положительных элементов матрицы
|
19.03.2013, 22:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Чтобы не заходить в тупик вы можете пролистать аналогичные темы Количество компонент матрицы совпадающих по абсолютному значению с максимумом Дан массив A(n,m). Найти количество элементов в каждой строке, меньшего диагонального Определить минимальное количество первых символов слов Из положительных элементов исходного массива сформировать новый массив Сумма положительных элементов Найти номера последних положительных элементов каждой строки |
20.03.2013, 00:20 | #2 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
11 б)
Поскольку язык неуказан то в общем виде Может быть так Алгоритм. 1.1 объявляете двухмерный массив, любого типа. 1,2 объявляете счетчики циклов 2 шт, целого типа 1,3 переменная сумматор, целого типа 1,4 объявляете переменные хранящие количества строк и количества столбцов в массиве, целого типа. 2,1 Вводите значение переменной количество строк. 2,2 Вводите значение переменной количество столбцов. 3,1. организуете вложенный цикл типа для заполнения массива for счетчик приравниваете к 1 или 0 в зависимости от начала массива , указываете до какого значения будет меняться счетчик (зависит от размера матрицы количество строк рекомендуется), ( если язык С/С++ или си ориентированный то дополнительно нужно указать приращение счетчика обычно это 1) for то же только второй пункт будет количество столбцов. 3,2 В теле (тело цикла может обозначаться как {}, begin end; и т.д в зависимости от языка ) вложенного цикла Задаете значение каждому элементу путем либо ввода с клавиатуры, либо путем вызова функции генерирующей псевдослучайное значение (random() в некоторых языках). 4. переменной сумматору присваиваете значение 0 5,1 еще раз организуете вложенный цикл 5,2 В теле второго цикла устраиваете проверку значения элемента массива на принадлежность к положительным числам. Для этого можно использовать if (условие отбора (текущий элемент массива >0)) в случае возврата значения истина 5,3 увеличиваем значение переменной сумматор на 1. Это можно сделать конструкцией вида сумматор знак присваивания сумматор + 1. Альтернативный способ использование операторов инкремента (++, inc() ). После выхода из циклов остается вывести значение сумматора может в файл или на монитор на ваше усмотрение. |
20.03.2013, 15:02 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да, beda с Вами... Удивительно, до чего наши люди упорны, целеустремленны и настойчивы в стремлении бездельничать! Ведь за то время, пока Вы по форумам шаритесь, десять раз можно было разобраться с азами прграммирования и написать листинги этих дебильно-ясельных задачек для умственно-отсталых. Но нет - делайте за меня, и всё тут!
Ладно, вот Вам задачки на сумму и произведение "в одном флаконе". Код:
Var x,S,P:real; N,i:Word; Begin Write('x= '); Readln(x); Write('N= '); Readln(N); S:=0; P:=1; For i:=1 to N do begin S:=S+Sqr(x-1.0*i); P:=P*(x+1.0*i)/i/i; end; Writeln('S= ',S:0:3,' P= ',P:0:18); Readln End. Код:
Const M=16; N=18; Var A:Array[1..M,1..N] of Integer; i,j:Byte; Npos:Word; Begin Npos:=0; Randomize; For i:=1 to M do begin For j:=1 to N do begin A[i,j]:=60-Random(100); write(A[i,j]:4); if A[i,j]>0 then Inc(Npos); end; Writeln; end; Writeln; Writeln('Number of positive elements is ',Npos); Readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.03.2013, 15:26 | #6 (permalink) |
Member
Регистрация: 19.03.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -131
|
спасибо Владимир
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|