Заполнение матрицы с файла

@fer123 · Регистрация: 21.02.2012

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

Задача такова: есть файл с этими числами:

12 34 05 88 73
52 41 78 40 99
32 95 23 05 47
69 20 02 49 39

и у нас есть пустая матрица 4*5
Надо заполнить ее с этого файла.

Добавлено через 59 минут
ребят, скорее

@mss · 05.12.2012, 21:11

Сообщение от fer123

ребят, скорее

Понос что ли ?
До очка не успеешь добежать не "заполнив матрицу" ?)

05.12.2012, 22:57

Как вариант, за один раз считывается вся строка с числами. Ну и далее в цикле.

Delphi

var
  buf : array[0..4][0..4] of Integer;
...
  ReadLn(f, buf[0, 0], buf[0, 1], buf[0, 2], buf[0, 3], buf[0, 4]);

@mss · 05.12.2012, 23:22

Код

sl1.LoadFromFile(..);
for i := 0 to sl1.Count - 1 do begin
  sl2.DelimitedText := sl1[i];
  for j := 0 to sl2.Count - 1 do
    Matrix[i,j] := StrToInt(sl2[j]);
end;

@fer123 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 18
		1
	Заполнение матрицы с файла 05.12.2012, 20:58. Показов 1261. Ответов 3 Метки заполнение, матрицы, файла (Все метки) Задача такова: есть файл с этими числами: 12 34 05 88 73 52 41 78 40 99 32 95 23 05 47 69 20 02 49 39 и у нас есть пустая матрица 45 Надо заполнить ее с этого файла. Добавлено через 59 минут* ребят, скорее 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.12.2012, 21:11	2
	Сообщение от fer123 ребят, скорее Понос что ли ? До очка не успеешь добежать не "заполнив матрицу" ?) 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.12.2012, 23:22	4
	Код sl1.LoadFromFile(..); for i := 0 to sl1.Count - 1 do begin sl2.DelimitedText := sl1[i]; for j := 0 to sl2.Count - 1 do Matrix[i,j] := StrToInt(sl2[j]); end; 1