Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.12.2012, 17:09   #1
spani
Пользователь
 
Регистрация: 04.12.2012
Сообщений: 11
По умолчанию Подсчитать количество отрицательных элементов каждого столбца таблиц

Помогите пожалуйста написать программу, используя подпрограммы.(Pascal)
Подсчитать количество отрицательных элементов каждого столбца таблиц.
А[1..4, 1..5] B [1..4, 1..5].

Последний раз редактировалось spani; 05.12.2012 в 17:11.
spani вне форума Ответить с цитированием
Старый 05.12.2012, 17:55   #2
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Поможем. Показывайте, что не получается.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 07.12.2012, 17:14   #3
spani
Пользователь
 
Регистрация: 04.12.2012
Сообщений: 11
По умолчанию

Вот сделал для одномерного массива, а как сделать для 2-х двухмерных массивом не знаю((
Код:
program mas;
const n=10;
var  x:array[1..n]of real;
i,otr:integer;
c:integer;
begin
writeln('vvedite elementi');
readln(c);
otr:=0;
for i:=1 to n do begin
 readln(x[i]);
 if x[i]<0 then otr:=otr+1;
end;

writeln('otricat',otr);
readln;
end.

Последний раз редактировалось ACE Valery; 07.12.2012 в 17:28.
spani вне форума Ответить с цитированием
Старый 07.12.2012, 17:48   #4
MihalNik
МегаМодератор
СуперМодератор
 
Регистрация: 27.11.2012
Сообщений: 5,714
По умолчанию

Код:
var  x:array[1..n,1..n]of real;
otr:array[1..n]of Integer;
...
Код:
for i:=1 to n do
  for k:=1 to n do begin
    read(x[i, k]);
    if x[i, k]<0 then otr[k]:=otr[k]+1;
    end;
Благими намерениями устлана дорога на programmersforum.ru
MihalNik вне форума Ответить с цитированием
Старый 07.12.2012, 17:57   #5
BETEP32
Пользователь
 
Регистрация: 28.02.2012
Сообщений: 20
По умолчанию

http://www.programmersforum.ru/showthread.php?t=220724
BETEP32 вне форума Ответить с цитированием
Старый 07.12.2012, 18:08   #6
spani
Пользователь
 
Регистрация: 04.12.2012
Сообщений: 11
По умолчанию

Подскажите что не правильно?
Цитата:
program MAS;
uses crt;
var A: array [1..4, 1..5] of real;
B: array [1..4,1..5] of real;
c,v,i,j:integer;
begin
clrscr;
randomize;
c:=0;
for i:=1 to 4 do
for j:=1 to 5 do
begin
A[i,j]:=random (100);
if A[i,j]<0 then c:=c+1;
end;
writeln (c);
v:=0;
for i:=1 to 4 do
for j:=1 to 5 do
begin
B[i,j]:=random(100);
if B[i,j]<0 then v:=v+1;
end;
writeln (v);
readln;
end.
spani вне форума Ответить с цитированием
Старый 07.12.2012, 18:12   #7
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
B[i,j]:=random(100)-50;
Код:
A[i,j]:=random (100)-50;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 07.12.2012 в 18:24.
Mad_Cat вне форума Ответить с цитированием
Старый 07.12.2012, 18:21   #8
spani
Пользователь
 
Регистрация: 04.12.2012
Сообщений: 11
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
Код:
B[i,j]:=random(100)-50;
Исправил. Не помогло(
spani вне форума Ответить с цитированием
Старый 07.12.2012, 18:29   #9
MihalNik
МегаМодератор
СуперМодератор
 
Регистрация: 27.11.2012
Сообщений: 5,714
По умолчанию

Цитата:
Исправил. Не помогло(
А что не работает?
Рандом дает положительные числа - без смещения в результате программы будет 0
Благими намерениями устлана дорога на programmersforum.ru
MihalNik вне форума Ответить с цитированием
Старый 07.12.2012, 18:36   #10
spani
Пользователь
 
Регистрация: 04.12.2012
Сообщений: 11
По умолчанию

Цитата:
Сообщение от MihalNik Посмотреть сообщение
А что не работает?
Рандом дает положительные числа - без смещения в результате программы будет 0
А как сделать так, что бы я смог ввести свои числа (как положительные, так и отрицательные), а в резульрете мне показало сколько отрицательных элементов в каждой матрице?

Вот есть еще один вариант:
Цитата:
program sfs;
var A: array [1..4, 1..5] of real;
B: array [1..4,1..5] of real;
c,v,i,j:integer;
begin
c:=0;
for i:=1 to 4 do
for j:=1 to 5 do
begin
A[i,j]:=
if A[i,j]<0 then c:=c+1;
end;
writeln (c);
v:=0;
for i:=1 to 4 do
for j:=1 to 5 do
begin
B[i,j]:=
if B[i,j]<0 then v:=v+1;
end;
writeln (v);
end.
Цитата:
A[i,j]:=
Цитата:
B[i,j]:=
Что писать сюда?

Последний раз редактировалось spani; 07.12.2012 в 18:44.
spani вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти и вывести на экран индексы четных элементов каждой строки и нечетных элементов каждого столбца. Richik123 Помощь студентам 0 27.11.2012 16:29
С++ Задача(Определить количество отрицательных элементов, количество элементов в интервале от 1 до 5) grosssmile Помощь студентам 0 29.09.2012 18:25
подсчитать сумму отрицательных элементов(паскаль) ВалерОК Помощь студентам 3 02.02.2012 22:37
Задача от VBA. Одномерные массивы-подсчитать количество положительных и отрицательных чисел ДМИТРИЙ1234 Microsoft Office Excel 12 02.06.2011 23:22
Вычислить и запомнить количество отрицательных элементов каждого столбца для матрицы A(10,10) , B (15,20) bitmania Помощь студентам 3 15.10.2008 01:06