Контрольная работа: Алгоритмические языки: обработка массивов
i,n,m:integer; - вспомогательные переменные
BEGIN
clrscr;
assign(f,'D:\FF\F1.txt '); - открытие файла F1.txt из D:\FF\F1.txt
reset(f);
assign(g,'D:\FF\F2.txt'); - открытие файла F2.txt из D:\FF\F2.txt
rewrite(g);
writeln('Kopirovat stroki'); - запрос на копирование строк
write(' s:');
readln(n);
write('po:');
readln(m);
i:=1;
while not EOF(f) do begin - цикл в котором происходит копирование
с позиции n до позиции m
readln(f,s);
if (i>=n)and(i<=m) then
begin
writeln(g,s);
end;
inc(i);
end;
writeln('Gotovo!'); - результаты выполнения программы в файле F2.txt
close(g);
close(f);
readln;
end.
Блок-схема алгоритма программы.
 | ||
 | ||
|
