Написать программу на языке Паскаль которая вызывает из модуля подпрограмму, которая печатает содержимое непустого текстового файла по рядкам, вставляя в начало рядка слово "рядок" и номер этого рядка(4 позиции).
More Questions From This User See All
Answers & Comments
===== PascalABC.NET =====
unit Nekrasov; // поместить в одноименный файл !!!
interface
procedure PrintText(fn: string);
implementation
procedure PrintText(fn: string);
begin
var i := 1;
foreach var s in ReadLines(fn) do
begin
Writeln(i:4, ' ', s);
i += 1
end;
end;
end.
=========================
uses nekrasov; // вызывающая программа (другой файл)
begin
var fn := ReadlnString('Укажи имя файла:');
if FileExists(fn) then
PrintText(fn)
else
Println('Файл не найден')
end.