p5ql_pro_motherboard
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Извините, что не очень конкретно написал в первый раз. Помогите, пожалуйста с решением. Срочно нужно.
Помогите, пожалуйста, решить задачу на Турбо Паскале:
В матрице определить максимальные элементы в каждой строке и образовать ряд, состоящий из номеров столбцов, в которых они находятся. В этих столбцах каждый элемент удвоить.
Есть пример выполнения, но что-то я запутался... Нужно использовать внешний файл, в примере это dataS.txt
Это образец задания, нужно решить то, что выше... :
Вычислить сумму элементов располож. на одной горизонтали и вертикали с заданными элементом и записать полученное значение вместо элементов матрицы, не участвующих в суммировании.
S=4+5+6+3+9=27
|27 27 3|
a-> |4 5 6|
|27 27 9|
const n=3
var a:array[1..n,1..n] of real;
i,j,l,k:intejer;
S:real;
f:text;
begin
assign (f,'dataS.txt');
reset(f);
writeln ('Исх. матр.')
for i:=7 to n do begin
for j:=1 to n do begin
read (f,a[i,j];
write(a[i,j]:8:2);
end;
writeln;
end;
writeln('Ввести номер строки и номер столбца заданного элемента');
readln(l,k);
S:=0
for i:=1 to n do
for j:=1 to n do
if ((i=l) or (j=k) then S:=S+a[i,j];
writeln(''Результ. Матрица');
if ((i<>l) and (j<>k))
then a[i,j]:=S;write(a[i,j]:8:2;
end;end;end. |
. Для real 16-значное число - последнее, что правильно отображается. Т.е. впритык 
. Переделывать я ничего не собираюсь, естественно. Добавлю, что для здоровых чисел нужно эмулировать сопроцессор {$N+,E+} , с которым знакомы не все школьные преподаватели.