можете пожайлуста помочь с задачей....я её сделал,но препод не принял..сказал всё переделать...
задача заключается втом, чтобы мы бради тестовой файл,задали сколько символов должно быть в строчках,и всё переписали в новый текстовой файл,с n символов в строчках...и если у нас строчка 10 символов,а мы взяли n=4,то он нам должен выдать две строчки по 4 символа, и одну строчку с 2-мя...
что от меня теперь требуют...чтобы сразу открывали 2 текстовых файла, задали n,и начали по-символьно переносить из одного в другой..когда у нас в новым строчка станет из n символов,то там у нас будет переход на новую строчку...вот как-то так...
если кому интересно,вот что было у меня...
Setlength(result,(y-x+1));
ну попробуй...
в делфи скопируй и проверь...
всё работает...
И что, компилятор Delphi даже не отругался на 1-ю строчку?
uses crt;?
вот это признаю...первоначально делал в паскале абс...потом всё перенёс в делфи...
вот я взял с файла одного строчку одну потом написал сколько должно быть в строчке символов и во второй файл переписал и закрыл два файла. и переносил по символьно. Программа сделана на fpc 1.06+ должна на всех паскалях идти
program delim;
var d,r:text;
s:string;
n,i,j:integer;
begin
assign (d, 'duom.TXT');
assign (r, 'rez.TXT');
reset (d);
rewrite ®;
readln(d,s);
writeln('zadaite skolko dolzno biti simbolov v strocke');
readln(n);
j:=0;
for i:=1 to length(s)do
begin
if j<n then begin write(r,s[i]); inc(j); end
else begin i:=i-1; writeln®; j:=0; end;
end;
close(d);
close®;
end.
for i:=1 to length(s)do
begin
if j<n then begin write(r,s[i]); inc(j); end
else begin i:=i-1; { <--- !!! } writeln( r ); j:=0; end;
end;
program delim;
var d,r:text;
s:string;
n,i,j:integer;
begin
assign (d, 'C:\Users\Maksim\Desktop\jpm\duom.TXT');
assign (r, 'C:\Users\Maksim\Desktop\jpm\rez.TXT');
reset (d);
rewrite (r );
readln(d,s);
writeln('zadaite skolko dolzno biti simbolov v strocke');
readln(n);
j:=0;
for i:=1 to length(s)do
begin
if j<n-1 then begin write(r,s[i]); inc(j); end
else begin write(r,s[i]); writeln(r ); j:=0; end;
end;
close(d);
close®;
end.