Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Определить количество положительных элементов матрицы (http://www.tehnari.ru/f41/t86570/)

beda 19.03.2013 22:24

Определить количество положительных элементов матрицы
 
Вложений: 1
11.а) Вычислить Вложение 127447
б) Определить количество положительных элементов матрицы.

interacia 20.03.2013 00:20

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() ).
После выхода из циклов остается вывести значение сумматора может в файл или на монитор на ваше усмотрение.

beda 20.03.2013 07:03

это Паскаль, interacia помоги на паскале написать

beda 20.03.2013 14:41

Помогите пожалуста сделать в паскале
 
Вложений: 1
а) Вычислить Вложение 127456
б) Определить количество положительных элементов матрицы.

Vladimir_S 20.03.2013 15:02

Цитата:

Сообщение от beda (Сообщение 883742)
Помогите пожалуста сделать в паскале

Да, 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.


beda 20.03.2013 15:26

спасибо Владимир


Часовой пояс GMT +4, время: 09:29.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.