11.01.2010, 19:43
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
С нами:
8634231
Репутация:
24
|
|
Сообщение от >>serhio<<
Помогите реализовать на pascale!!!
Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк исходного файла.
Держи:
Код:
program proga;
var k,i,m:byte; ip,op:TextFile; s:string;
begin
m:=0;
assignfile(ip, 'c:\input.txt');
reset(ip);
assignfile(op, 'c:\output.txt');
rewrite(op);
readln(k);
while not(eof(ip)) do begin
readln(ip,s);
inc(m);
end;
reset(ip);
for i:=1 to m-k do
readln(ip);
for i:=1 to k do begin
readln(ip,s);
writeln(op,s);
end;
closefile(ip);
closefile(op);
writeln('Gotovo!');
readln;
end.
|
|
|