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

@NabTAnya · Регистрация: 20.10.2010

Author24 — интернет-сервис помощи студентам

1.Найти суммы четных положительных элементов каждого столбца мат-
рицы, результат записать в одномерный массив.
2.В каждом из массивов А, В и С найти максимальный по модулю эле-
мент и вычесть его из каждого элемента соответствующего массива
3.Подсчитать, сколько раз встречаются символы «+» и «-»
Помогите, пожалуйста....

@wer666 · 20.10.2010, 20:13

1

Pascal

k:=1;
for j:=1 to n do
 begin
 sum:=0;
 for i:=1 to n do
  if (a[i,j] mod 2=0) AND (a[i,j]>0) then 
   sum:=sum+a[i,j];
 b[k]:=sum;
 k:=k+1;
 end;

Добавлено через 5 минут
Во 2й задаче массивы одномерные?
А в 3й что?

@NabTAnya · 20.10.2010, 20:13 **[ТС]**

в 6 строке пишет, что нужно поставить круглые скобочки(пишет всегда, я уже 300 раз все меняла) и что, неверное преобразование типа. В чем ошибка я не пойму.
да, во 2 - одномерные с использование подпрограмм, 3 - обработка строчных и символьных данных.

@wer666 · 20.10.2010, 20:16

покажи свой код

Добавлено через 15 секунд
полностью

@NabTAnya · 20.10.2010, 20:27 **[ТС]**

program lab5;
uses tpcrt;
const n=3;
m=3;
type matr = array [1..n,1..m] of integer;
b = array [1..n] of integer;
var a:matr;
i,j,S,k:integer;
begin
clrscr;
writeln('vvedite matricy:');
for i:=1 to n do for j:=1 to m do read(a[i,j]);
writeln('ishodnaja matrica:');
k:=1;
for j:=1 to m do begin
S:=0;
for i:=1 to n do if(a[i,j]>0) and (a[i,j] mod 2<>0) then
S:=S+a[i,j];
b[k]:=S;
k:=k+1
end;
writeln ('vivodim masiv b=');
readkey;
End.

@wer666 · 20.10.2010, 20:31

b = array [1..n] of integer; нужно написать под Var

@NabTAnya · 20.10.2010, 20:37 **[ТС]**

программа не выводит исходную матрицу и не выводит конечный массив. может ещё где ошибки?

@wer666 · 20.10.2010, 20:40

а не было задания вывести

@NabTAnya · 20.10.2010, 21:08 **[ТС]**

а writeln? или я что-то не правильно понимаю? тогда как сделать чтобы выводило??))))

Добавлено через 19 минут
исходную матрицу разобралась как вывести, а вот массив не хочет

@wer666 · 20.10.2010, 21:15

Pascal

1	for i:=1 to k-1 do Write(b[i],' ');

@NabTAnya · 21.10.2010, 15:11 **[ТС]**

большое спасибо))) разобралась полностью)) поняла ошибки) все работает)

Добавлено через 17 часов 16 минут
написала программу к 3 задаче, программа запускается, но не считает "к". в чем ошибка?

Pascal

program labr7;
uses tpcrt;
var st:string;
     i,k:integer;
     c:char;
begin
    writeln('vvedite stroky simvolov:');
    readln(st);
    k:=0;
    for i:=1 to length(st)-1 do
    if(copy(st,i,1)='+') and  (copy(st,i,1)='-') then k:=k+1;
         writeln('+',k,'raz.');
         writeln('-',k,'raz.');
c:=readkey
End.

@Puporev · 21.10.2010, 15:32

Если нужно по отдельности, то так.

Pascal

kp:=0;km:=0;
for i:=1 to length(st) do
if st[i]='+' then kp:=kp+1
else if st[i]='-' then km:=km+1;
writeln('+',k,'raz.');
writeln('-',k,'raz.');
readkey
end.

Добавлено через 1 минуту
Если всего(мне кажется это в условии), то так

Pascal

k:=0;
for i:=1 to length(st) do
if st[i] in ['+','-'] then k:=k+1;
writeln('+ -',k,'raz.');
readkey
end.

@NabTAnya · 21.10.2010, 15:41 **[ТС]**

спасибо))))

@NabTAnya 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 14
		1
	Найти суммы четных положительных элементов каждого столбца матрицы, результат записать в одномерный массив. 20.10.2010, 19:59. Показов 2313. Ответов 12 Метки нет (Все метки) 1.Найти суммы четных положительных элементов каждого столбца мат- рицы, результат записать в одномерный массив. 2.В каждом из массивов А, В и С найти максимальный по модулю эле- мент и вычесть его из каждого элемента соответствующего массива 3.Подсчитать, сколько раз встречаются символы «+» и «-» Помогите, пожалуйста.... 0

@NabTAnya 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 14
	20.10.2010, 20:13 [ТС]	3
	в 6 строке пишет, что нужно поставить круглые скобочки(пишет всегда, я уже 300 раз все меняла) и что, неверное преобразование типа. В чем ошибка я не пойму. да, во 2 - одномерные с использование подпрограмм, 3 - обработка строчных и символьных данных. 0

@wer666 13 / 13 / 4 Регистрация: 15.04.2010 Сообщений: 46
	20.10.2010, 20:16	4
	покажи свой код Добавлено через 15 секунд полностью 0

@NabTAnya 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 14
	20.10.2010, 20:27 [ТС]	5
	program lab5; uses tpcrt; const n=3; m=3; type matr = array [1..n,1..m] of integer; b = array [1..n] of integer; var a:matr; i,j,S,k:integer; begin clrscr; writeln('vvedite matricy:'); for i:=1 to n do for j:=1 to m do read(a[i,j]); writeln('ishodnaja matrica:'); k:=1; for j:=1 to m do begin S:=0; for i:=1 to n do if(a[i,j]>0) and (a[i,j] mod 2<>0) then S:=S+a[i,j]; b[k]:=S; k:=k+1 end; writeln ('vivodim masiv b='); readkey; End. 0

@wer666 13 / 13 / 4 Регистрация: 15.04.2010 Сообщений: 46
	20.10.2010, 20:31	6
	b = array [1..n] of integer; нужно написать под Var 0

@NabTAnya 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 14
	20.10.2010, 20:37 [ТС]	7
	программа не выводит исходную матрицу и не выводит конечный массив. может ещё где ошибки? 0

@wer666 13 / 13 / 4 Регистрация: 15.04.2010 Сообщений: 46
	20.10.2010, 20:40	8
	а не было задания вывести 0

@NabTAnya 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 14
	20.10.2010, 21:08 [ТС]	9
	а writeln? или я что-то не правильно понимаю? тогда как сделать чтобы выводило??)))) Добавлено через 19 минут исходную матрицу разобралась как вывести, а вот массив не хочет 0

@NabTAnya 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 14
	21.10.2010, 15:41 [ТС]	13
	спасибо)))) 0

Опции темы