Здравствуйте! Не могли бы вы мне помочь решить одну простейшую задачку. Она тоже про матрицы. В текстовом файле есть квадратная матрица произвольного размера (массивами и строками пользоваться нельзя). Нужно найти сумму элементов на главн диоганали.
Проблема состоит в том, как можно считать числа с каждой строки: 1 число с первой, второе число со второй и тд.
Полная версия: Матрица из файла
Матрица заполнена вещественными числами!
setare
Размерность матрицы известна?
Размерность матрицы известна?
Она квадратичная!
Размерность неизвестна! Она произвольная. В строке может быть млн. чисел, может быть меньше. Поэтому ни массивами ни строками пользоваться нельзя.
setare
Вот работающий код (проверен на матрице размера 3Х3)
var
f: text;
a, sum: real;
i, j: integer;
begin
assign(f, 'data.txt');
reset(f);
i := 1; sum := 0;
while not eof(f) do
begin
for j := 1 to pred(i) do
read(f, a);
read(f, a);
sum := sum + a;
while not seekeoln(f) do
begin
read(f, a);
end;
inc(i);
end;
writeln('s = ', sum:10:6);
close(f);
end.
Пример входного файла:
Вот работающий код (проверен на матрице размера 3Х3)
Код
var
f: text;
a, sum: real;
i, j: integer;
begin
assign(f, 'data.txt');
reset(f);
i := 1; sum := 0;
while not eof(f) do
begin
for j := 1 to pred(i) do
read(f, a);
read(f, a);
sum := sum + a;
while not seekeoln(f) do
begin
read(f, a);
end;
inc(i);
end;
writeln('s = ', sum:10:6);
close(f);
end.
Пример входного файла:
Цитата
0.002 0.003 0.004
0.005 0.006 0.007
0.001 0.006 0.004
0.005 0.006 0.007
0.001 0.006 0.004
Спасибо вам большое!
Мой преподаватель, к сожалению, не говорил нам функцию pred(i), хотя я сама уже поняла что это такое. Не могли бы вы сказать на что ее можно заменить? Можно записать так: for i:=1 to k do
for j:=1 to k do
Просто когда я заменяю pred(i) на Max(i), то компилятор мне говорит, что надо поставить до скобок do. А это не правильно. Что делать?
for j:=1 to k do
Просто когда я заменяю pred(i) на Max(i), то компилятор мне говорит, что надо поставить до скобок do. А это не правильно. Что делать?
setare
Pred(i) - это предыдущее значение для i
можно заменить на (i - 1)
Pred(i) - это предыдущее значение для i
можно заменить на (i - 1)
Спасибо!!!!!!!!! Вы мне очень очень помогли!!!!!!!!! :flowers: :flowers: :rose:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.