VPF::[Pascal] Определить сумму элементов

nitrak

Дата 25.12.2006, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.12.2006

Репутация: нет
Всего: нет

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

comtat

Дата 30.12.2006, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71

Держи

Присоединённый файл ( Кол-во скачиваний: 8 )

fingrad.zip 8,05 Kb

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

PrinceMike

Дата 30.12.2006, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1

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

--------------------

PrinceMike

Дата 30.12.2006, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1

Код


const m=6; n=7;
var a:array[1..m,1..n] of real;
nstr,i,j,k:integer;s:real;f:text;
z,q:array[1..n] of real;
begin
assign(f,'otv.pas');rewrite(f);
Randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random*random(100)-2;
write(f,'Ќ®ў п Њ ваЁж  A: ');
writeln(f);
for i:=1 to m do
begin
for j:=1 to n do
 write(f,a[i,j]:6:2,' ');
 writeln(f);
 end;
For i:=1 to m do
for j:=1 to n do
begin
if a[i,j]<0 then
z[i]:=a[i,j];
end;
writeln(f);
for i:=1 to m do writeln(f,z[i]:3:2,'  ');writeln(f);
for i:=1 to m do
begin
if z[i]<0 then
q[i]:=i;
end;
for k:=1 to m do write(f,q[k]:0:0,'  ');
writeln(f);

close(f);
end.

вот что пока получилось... я сам учусь) а тут для практики сижу)
кароче я что-то не соображу как из последнего массива выдрать номера строк с отрицательными элементами.. вот нужно вырвать, а потом посчитать...
попробуй засунуть мой код в раздел "паскаль" и спроси как доделать.. там ZERO обязательно поможет ;)

Это сообщение отредактировал(а) PrinceMike - 30.12.2006, 23:29

--------------------

achepkunov

Дата 31.12.2006, 01:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.12.2006

Репутация: нет
Всего: 1

Цитата(PrinceMike @ 30.12.2006, 23:28

)

кароче я что-то не соображу как из последнего массива выдрать номера строк с отрицательными элементами.. вот нужно вырвать, а потом посчитать...

Код


if z[i]<0 then    
q[i]:=i;

Вот здесь ведь ты их и вырываешь. А теперь вместо q[i]:=i; сразу начинай складывать. Молодец.

Можно еще мильнее упростить: сразу после цикла 20-24 строчек если z[i] меньше нуля тут же пишем цикл по сложению. Тогда можно z сделать скалярной переменной (простой переменной, не массивом). Можно пойти еще дальше: прямо в этом цикле складывать, а после цикла если z меньше нуля - печатать сумму, если нет - зря складывали, но так-как сложение операция дешевая, отсутствие второго цикла эти затраты компенсирует.

Вообще надо стараться делать все в один проход, чтобы не плодить лишние массивы с промежуточными результатами и лишние циклы.

Ну и "на кислое" - ты z[i] не обнуляешь перед использованием, полагаясь на то, что там будут нули. Это сильно частный случай - для глобальных переменных екоторых компиляторов, и полагаться на это - формировать у себя плохую привчку. И еще если уж массив z - для строк, то и обявлять его надо array[1..m], а не [1..n]. Дело не в том, что лишнее место выделяется, и даже не в том, что матрицы бывают узкими, а не только широкими, а в том, что так понятнее когда читаешь.

Успехов, так держать!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »