Работа с матрицами. Массивы.

[Xeon332]

Во- первых всем здравствуйте!! С Новым годом!
Ребята, помогите пожалуста... Не могу написать прогу вобще, да даж не одну...
Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи. В программе должны быть предусмотрены процедуры ввода-вывода элементов массива А и его обработки. Найти характеристику каждой ее строки (сумму положительных четных элементов в каждой строке).

Умоляю))) ели будет тож в инфе помощь - тож постараюсь помочь! спс.

[Карась]

что имеется в виду под фразой "...реализовать его обработку...." ?

АДД: И уже наверное классический вопрос "На чём писать надо?"....

[Карась]

команды:

zap - заполнить матрицу. Предложат ввести размерность (1..50).

sum - Найти характеристику каждой ее строки (сумму положительных четных элементов в каждой строке).

print - ввывод матрицы

exit - выход из программы.

[Xeon332]

Пишу в TurboPascal 7.0. не получается и всё...

[Карась]

Что не получается? Впринципе я всё сделал кроме "...реализовать его обработку, как указано в варианте."

[Xeon332]

Да вот что-то не работает. Ошибки исправляю - всё равно.... а реализовать обработку эт значит в каждой строке ссумировать положительные чётные элементы.... спс за труд.

[Карась]

Нужные процедуры:

//-----------Ïðîöåäóðà çàïîëíåíèÿ ìàòðèöû---------
Procedure Zap(n : byte);
VAR x, y: byte;
BEGIN
 Writeln;
 FOR x := 1 To n Do
  BEGIN
   Writeln ('  ',x,' stroka');
     For y := 1 To n Do
      BEGIN Write(y,' stolbec = ');
        Readln (mas[x,y]);
      END; Writeln;
  END;
END;

//-----------Ïðîöåäóðà ââûîäà ìàòðèöû íà ýêðàí---------
Procedure Print;
VAR x, y: byte;
BEGIN
 Writeln;
  FOR x := 1 To n Do
   BEGIN
    FOR y := 1 To n Do Write (mas[x,y]:3:3,' '); Writeln;
   END;Writeln;
END;

//---Ïðîöåäóðà ââûîäà ñóìì ñòðîê íà ýêðàí íà ýêðàí---------
Procedure Summa;
VAR x, y: byte; Rez : real;
BEGIN
rez := 0;
  FOR x := 1 To n Do
   BEGIN
     FOR y := 1 To n Do
       IF mas[x,y * 2] > 0 Then
        BEGIN
         rez := rez + mas[x,y * 2];
        END;
       Writeln (rez:3:3); rez := 0;
   END; Writeln;
END;

[Xeon332]

Спасибо большое! Упустил один цикл полностью, из-за этого и не работало...
Кстати, вот в задаче: "Дана строка S. Преобразовать строку, заменив в ней каждое многоточие одной точкой." Как думаете, может просто ввести строку, к примеру S:='...' и потом вывести её третий элемент?
writeln(S[3]). Будет ли в таком случае программа работать ПРАВИЛЬНО И ПО УСЛОВИЮ?

[puporev]

Очень оригинальное решение, к сожалению оно будет работать только для строки, состоящей из трех точек. Кстати можно вывести и первый или второй элемент, результат будет тот же. В практике такие строки большая редкость. Нужно посерьезней отнестись к решению задачи.
Алгоритм ее решения может быть таким:
1.Просматриваем строку с конца до начала (for i:=length(a)downto 1 do begin).
2.Пока позиция первого вхождения подстроки из двух точек в строке а>0, удаляем из строки такие подстроки (while pos('..',a)>0 do delete(a,pos('..',a),1);
end.
Выводим преобразованную строку на экран и любуемся проделанной работой.

[Zenit10]

Здраствуйте все. У меня очень похожая задача с Xeon 332 по матрице только мне нужно найти минимальное из чисел, встречающееся в данной матрице более одного раза. И я никак не могу догнать что мне поменять в предложенном коде для правильной работы программы.
Если не ошибаюсь то надо Procedure Summa заменитьна другую процедуру но я незнаю какую помогите кто может, заранее благодарю.