Вопрос № 85110: Задан текстовый файл заданный из 4 строк переписать его в строки другого файла в перевернутом виде
var
f,f2:text;
n,i:integer;
s:string;
begin
assign(f,'d:/ccc.txt');
rewrite(f);
for i:=1 to 3 do begin
readln(...
Вопрос № 85.110
Задан текстовый файл заданный из 4 строк переписать его в строки другого файла в перевернутом виде
var
f,f2:text;
n,i:integer;
s:string;
begin
assign(f,'d:/ccc.txt');
rewrite(f);
for i:=1 to 3 do begin
readln(s);
write(f,s);
end;
reset(f);
assign(f2,'d:/cccc.txt');
rewrite(f2);
for i:=1 to 3 do
begin
read(f,s);
n:=length(s);
for i:=1 to n do begin
s[i]:=s[n-i+1];
write(f2,s[i]);
end;
end;
close(f);
close(f2);
end.
если я ввёл
wer
wer
wer
wer
то у меня получается
rew rew wer wer
Вот видоизмененный код, в нем я выделил измененные строки: var
f,f2:text;
n,i:integer;
s,sn:string;
begin
assign(f,'d:/ccc.txt');
rewrite(f);
for i:=1 to 3 do begin
readln(s); writeln(f,s);
end;
reset(f);
assign(f2,'d:/cccc.txt');
rewrite(f2);
while not eof(f) do
begin
readln(f,s);
n:=length(s); sn:='';
for i:=1 to n do sn:=s[i]+sn;
writeln(f2,sn);
end;
close(f);
close(f2);
end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 02.05.2007, 17:37
Отвечает: sir henry
Здравствуйте, Денмухаметов Ильгиз Ильдарович!
Примерно тоже самое, только с применением функций: Program vorwärts_zurück; Uses Crt;
Var
f1, f2: Text;
Procedure Vorwärts;
Var
s: string; Begin
Rewrite(f1);
WriteLn('Bitte, setzen Sie vier willkürliche Wörter ein.');
WriteLn('Nach jedem tasten Sie die Taste ENTER:');
For i:=0 To 3 Do
Begin
ReadLn(s);
WriteLn(f1, s);
End;
Close(f1); End;
Function Zurück_Zeile(s: string): string;
Var
i: integer; Begin
Zurück_Zeile:='';
For i:=Length(s) Downto 1 Do
Zurück_Zeile:=Zurück_Zeile+s[i]; End;
Procedure Zurück;
Var
s: string; Begin
Reset(f1);
Rewrite(f2);
While not Eof(f1) do
Begin
ReadLn(f1, s);
WriteLn(f2, Zurück_Zeile(s));
End;
Close(f1);
Close(f2); End;
Var
s1, s2: string; Begin
Assign(f1, 'vorwärts.txt');
Assign(f2. 'Zurück.txt');
Vorwärts;
Zurück;
Reset(f1);
Reset(f2);
While not Eof(f1) do
Begin
ReadLn(f1, s1);
readLn(f2, s2);
WriteLn(s1, ' -> ', s2);
End; End.
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 02.05.2007, 18:13
