Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 29.05.2012
Сообщений: 3
1

Вычислить количество положительных, отрицательных и нулевых элементов матрицы

31.05.2012, 19:39. Показов 1008. Ответов 5
Метки нет (Все метки)

Обработать матрицу, элементами которой являются случайные значение функции f(x)=x;
x∈[-100;100]. Вывести на печать исходную матрицу и полученные результаты.
Дана целочисленная матрица D(11;11). Вычислить количество положительных, отрицательных и нулевых элементов.

Добавлено через 8 минут
помогите побыстрей
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2012, 19:39
Ответы с готовыми решениями:

Определить количество положительных, отрицательных и нулевых элементов матрицы
Составить программу, определяющую количество положительных, отрицательных и нулевых элементов...

Вычислить количество отрицательных, нулевых и положительных элементов массива
Помогите пожалуйста решить задачу ! Дан одномерный массив чисел. Вычислить количество...

Посчитать количество отрицательных, положительных и нулевых элементов для любой, выбранной вами матрицы
Посчитать количество отрицательных, положительных и нулевых элементов для любой, выбранной вами...

Подсчитать количество положительных, отрицательных и нулевых элементов
В массиве данных с1, …,с20 определить сумму квадратов отрицательных элементов и сумму...

5
0 / 0 / 0
Регистрация: 29.05.2012
Сообщений: 3
31.05.2012, 19:54  [ТС] 2
Pascal
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
uses crt;
const n=11;
const maxValue=100;
var
x:array[1..n,1..n] of integer;
pos,neg,zero:integer;
i,j:integer;
Begin
clrscr;
pos:=0;
zero:=0;
neg:=0;
Randomize;
writeln('Matrix:');
For i:=1 to n do begin
For j:=1 to n do begin
x[i,j]:=Random (2*maxValue+1)-maxValue;
if(x[i,j]>=0) then
if(x[i,j]=0) then
zero:=zero+1
else
pos:=pos+1;
else
neg:=neg+1;
Write(x[i,j],' ');
end;
writeln;
end;
writeln;
writeln('positive= ',pos);
writeln('zero= ',zero);
writeln('negative= ',neg);
readln;
end.
Обработать матрицу, элементами которой являются случайные значение функции f(x)=x;
x∈[-100;100]. Вывести на печать исходную матрицу и полученные результаты.
Дана целочисленная матрица D(11;11). Вычислить количество положительных, отрицательных и нулевых элементов.
0
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 30
31.05.2012, 22:32 3
koketk, а ошибка какая?
0
0 / 0 / 0
Регистрация: 29.05.2012
Сообщений: 3
31.05.2012, 22:45  [ТС] 4
identifier expected

Добавлено через 1 минуту
может если условие дам попонятней будет

Обработать матрицу, элементами которой являются случайные значение функции f(x)=x;
x∈[-100;100]. Вывести на печать исходную матрицу и полученные результаты.
Дана целочисленная матрица D(11;11). Вычислить количество положительных, отрицательных и нулевых элементов.
0
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 30
31.05.2012, 22:59 5
если ошибка та что вы написали, то это всего лишь не объявлена какая то из переменных...

Добавлено через 2 минуты
и меня смущает константа const maxValue=100. вы же ее для заполнения массива используете, а ведь рандом и так можно сделать без всяких констант.

Добавлено через 58 секунд
попробуйте убрать константу const maxValue=100 и рандом сделать без нее
0
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
01.06.2012, 09:16 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

koketk, я не знаю вашего задания, поэтому действую наугад =)
если вы используете несколько вложенных операторов условия, программа не может разобраться, где заканчивается одно и начинается другое... поэтому дополнительыне операторные скобки помогут выйти из сложившейся сиутации
Pascal
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
uses crt;
const n=11;
const maxValue=100;
var
x:array[1..n,1..n] of integer;
pos,neg,zero:integer;
i,j:integer;
Begin
clrscr;
pos:=0;
zero:=0;
neg:=0;
Randomize;
writeln('Matrix:');
For i:=1 to n do
    begin
    For j:=1 to n do
        begin
        x[i,j]:=Random (2*maxValue+1)-maxValue;
        if(x[i,j]>=0) then
           begin
           if (x[i,j]=0) then zero:=zero+1
           else pos:=pos+1;
           end else neg:=neg+1;
        write(x[i,j]:4);
        end;
    writeln;
    end;
writeln;
writeln('positive= ',pos);
writeln('zero= ',zero);
writeln('negative= ',neg);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2012, 09:16

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Подсчитать количество отрицательных, положительных и нулевых элементов массива
Препод задал задачу на завтра очень важно помогите решить! дан массив чисел , подсчитать...

Подсчитать количество отрицательных, положительных и нулевых элементов массива
Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нём отрицательных,...

В данном массиве определить количество положительных, отрицательных и нулевых элементов
Помогите пожалуйста! Составить программу решения задачи. Дан массив А(30) в данном массиве...

В целочисленном векторе определить количество положительных, отрицательных и нулевых элементов
В целочисленном векторе vectorn определить количество положительных, отрицательных и нулевых...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.