Консультации Портала - Консультация #110329

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 110329

20.11.2007, 22:09

0.00 руб.

0 1 1

Компьютеры Программирование

Здравствуйте!

Тут на днях знакомая слезно озадачила просьбой о помощи по информатике, а я Паскаль практически не изучал, но в ситуацию вник и попытался ей помочь, но ... где мои 17 лет... Вы ведь эксперты и если не трудно накидать ответ по 2 вопросам, то помогите накидать програмку:

1. Дана матрица - Имя (С) NN

Нужно вычислить сумму и число положительных элементов, находящихся над главной диагональю, где Ci > 0 , N < 12

2. Дана матрица 10 Х 10. Найти для каждой строки число элементов кратных пяти и наибольший из полученых результатов.

Мужики! Я уверен, что у кого-то на это уйдет меньше времени, чем он все это наберет в ответе!

Заранее спасибо!

Приложение:
Ci - это вроде цикл...

Обсуждение

Неизвестный

20.11.2007, 23:51

общий

это ответ

Здравствуйте, Sergey V. Gornostaev!

Задача 1.
<code>const n=5;
var c:array [1..n,1..n] of integer;
 sum,kol,i,j:integer;
begin
 randomize;
 for i:=1 to n do {заполняем матрицу произвольными данными}
 begin
 for j:=1 to n do
 begin
 c[i,j]:=random(15)-4; write(c[i,j]:3); {выводим матрицу на экран}
 end;
 writeln;
 end;
 writeln;
 sum:=0; kol:=0;
 for i:=1 to n-1 do {поиск элементов соответствующих условию}
 for j:=i+1 to n do
 if c[i,j] > 0 then
 begin sum:=sum+c[i,j];inc(kol); end; {находим сумму и количество}
 writeln(‘sum=‘,sum); {выводим результаты на экран}
 writeln(‘kol=‘,kol);
end.</code>

Задача 2.
<code>const n=10;
var c:array [1..n,1..n] of integer;
 mx,kol,i,j:integer;
begin
 randomize;
 for i:=1 to n do {заполняем матрицу произвольными данными}
 begin
 for j:=1 to n do
 begin
 c[i,j]:=random(26); write(c[i,j]:3); {выводим матрицу на экран}
 end;
 writeln;
 end;
 writeln;
 mx:=0;
 for i:=1 to n do {организовуем поиск в цикле}
 begin
 kol:=0;
 for j:=1 to n do
 if c[i,j] mod 5=0 then inc(kol); {если число кратно 5, то "загибаем пальцы"}
 if mx < kol then mx:=kol;
 writeln(‘row‘,i,‘=‘,kol); {выводим кoличество "отборных" элементов в текущей строке}
end;
 writeln(‘max=‘,mx); {выводим максимальный}
end.</code>

Замечание: в первой задаче, если решать в лоб, то конечно можно вместо
<code> for i:=1 to n-1 do {поиск элементов соответствующих условию}
for j:=i+1 to n do
if c[i,j] > 0 then</code>

написать
<code> for i:=1 to n do {поиск элементов соответствующих условию}
for j:=1 to n do
if (c[i,j] > 0) and (i < j) then
</code>

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

Good Luck!!!

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.