Предмет: Информатика,
автор: Мортис512
Как считать числа из файла в массив,если между числами пробелы?Кол-во строк и символов в каждой строке неизвестно.Программу на PascalABC,пожалуйста.
Ответы
Автор ответа:
1
uses crt;
var f:text;
a:array[1..1000] of integer;
n,i,x:integer;
begin
assign(f,'111.txt');
reset(f);
n:=0;
while not eof(f) do
begin
inc(n);
read(f,a[n]);
end;
close(f);
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
end.
Мортис512:
Спасибо.
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
Во втором вложении файл input.txt
Приложения:
Вы просто написали программу для считывания из файла, а задание другое
Вы уверены? Задание было "Как считать числа из файла в массив,если между числами пробелы?"
От Вашего это решение отличается лишь тем, что оно занимает 4 строки вместо 18 и не использует дурацкий статический массив из фиксированных 1000 элементов, а формирует динамический массив любого необходимого размера.
Да,спасибо,не знал о таком.Буду пользоваться.
Подозреваю, что Вы еще много чего об этой версии языка не знаете )))
Похожие вопросы