Как числа, которые после 1-ой строки в текстовом документе, записать в массив "a"? - Pascal ABC
Формулировка задачи:
Как числа, которые после 1-ой строки в текстовом документе, записать в массив "a"?
input.txt:
3 3 3 1.0
1 2 3.0
2 3 3.0
3 1 6.0
Мой код:
Листинг программы
- var f:text; N,M,L:integer; T:real; a:array[0..29,0..3] of integer;
- i,j:integer; //j:real;
- begin
- assign(f,'input.txt'); reset(f);
- read(f,N,M,L,T); write(N,' ',M,' ',L,' ',T);
- for i:= 0 to 29 do begin
- read(f,a[i,j]); //здесь выдаёт ошибку "входная строка имела неверный формат", пытался менять форматы, уже не варит.
- end;
- writeln; write(a);
- close(f);
- end.
Решение задачи: «Как числа, которые после 1-ой строки в текстовом документе, записать в массив "a"?»
textual
Листинг программы
- for i:=1 to n do
- for j:=1 to m do
- read(,a[i,j[);
Объяснение кода листинга программы
В данном коде происходит чтение данных из текстового документа.
- Переменная
n
представляет собой количество строк в тексте. - Переменная
m
представляет собой количество столбцов в тексте. - В цикле
for i:=1 to n do
происходит чтение каждой строки из файла и запись её в массивa
. - В цикле
for j:=1 to m do
происходит чтение каждого столбца из строки и запись его в соответствующий элемент массиваa
. - Чтение данных происходит с помощью функции
read()
, которая считывает данные из файла и записывает их в переменнуюa[i,j]
. - Код не использует вложенные списки.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д