Задача: в выходной файл поместить количество цифр каждого числа из исходного файла.
Работаем мы с текстовыми файлами.
Пример: для 12345 - 5, 846 - 3.
Помогите, плиз
Полная версия: Работа с файлами
Никогда не работал с файлами, и вот не могу решить следущую задачу (понимаю, что она легкая, но все-таки...)
Задача: в выходной файл поместить количество цифр каждого числа из исходного файла.
Работаем мы с текстовыми файлами.
Пример: для 12345 - 5, 846 - 3.
Помогите, плиз
Задача: в выходной файл поместить количество цифр каждого числа из исходного файла.
Работаем мы с текстовыми файлами.
Пример: для 12345 - 5, 846 - 3.
Помогите, плиз
FENIX
Если входной файл содержит ТОЛЬКО числа - то просто читай их как строки...
var
fin, fout: text;
s: string;
begin
assign(fin, 'input.txt');
{$i-}reset(fin);{$i+}
assign(fout, 'output.txt');
{$i-}rewrite(fout);{$i+}
while not seekeof(fin) do
begin
readln(fin, s);
writeln(fout, length(s));
end;
close(fout);
close(fin)
end.
Пример входного файла (Input.txt):
Если входной файл содержит ТОЛЬКО числа - то просто читай их как строки...
Код
var
fin, fout: text;
s: string;
begin
assign(fin, 'input.txt');
{$i-}reset(fin);{$i+}
assign(fout, 'output.txt');
{$i-}rewrite(fout);{$i+}
while not seekeof(fin) do
begin
readln(fin, s);
writeln(fout, length(s));
end;
close(fout);
close(fin)
end.
Пример входного файла (Input.txt):
Цитата
123
1234
12345
123456
123
1234
23
33
3
9
1234
12345
123456
123
1234
23
33
3
9
volvo
Входной файл содержит только числа, но они идут в строку.
Как быть?
Входной файл содержит только числа, но они идут в строку.
Как быть?
FENIX
Тогда так:
var
fin: file of char; fout: text;
ch: char; count: integer;
begin
assign(fin, 'input.txt');
{$i-}reset(fin);{$i+}
assign(fout, 'output.txt');
{$i-}rewrite(fout);{$i+}
count := 0;
while not eof(fin) do
begin
read(fin, ch);
if ch in ['0' .. '9'] then inc(count)
else
if count > 0 then
begin
writeln(fout, count);
{если нужно результаты в строку: write(fout, count, ' ');}
count := 0
end;
end;
close(fout);
close(fin)
end.
Тогда так:
Код
var
fin: file of char; fout: text;
ch: char; count: integer;
begin
assign(fin, 'input.txt');
{$i-}reset(fin);{$i+}
assign(fout, 'output.txt');
{$i-}rewrite(fout);{$i+}
count := 0;
while not eof(fin) do
begin
read(fin, ch);
if ch in ['0' .. '9'] then inc(count)
else
if count > 0 then
begin
writeln(fout, count);
{если нужно результаты в строку: write(fout, count, ' ');}
count := 0
end;
end;
close(fout);
close(fin)
end.
Большое спасибо, все работает
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.