Zebraa Не оптимально, не интересно, не соответствует условию задачи и с функцией copy ламерской) Плюсик за структурность только, и то - лишние пробелы))
Если уж искушать студентов, то искушать правильно
Miker:Zebraa Не оптимально не интересно,
и с функцией copy ламерской)
Плюсик за структурность только, и то - лишние пробелы))
procedure TForm1.Button1Click(Sender: TObject);
var text,a:string;
i:integer;
f:textfile;
begin
assignfile(f,'1.txt');
reset(f);{open file}
read(f,text);{read file dim.txt}
closefile(f);{close file};
edit1.Text:=text;
a:='';
for i:=0 to length(text)-1 do
begin
a:=a+copy(text,length(text)-i,1);
end;
panel1.Caption:=a;
end;
program Project1;
uses
SysUtils;
var f1,f2,f3: textfile;
f1name,f2name,f3name: string;
s: string;
function revstr(var a: string): string;
var b,c,d: string;
begin
b:=a;
d:=copy(b,2,length(b)-1);
if length(b)=1 then c:=b else c:=revstr(d)+b[1];
revstr:=c;
end;
begin
f1name:='input.txt';
f2name:='output.txt';
f3name:='temp.txt';
assignfile(f1,f1name);
assignfile(f2,f2name);
assignfile(f3,f3name);
if fileexists(f1name) then begin
rewrite(f2);
reset(f1);
rewrite(f3);
while not eof(f1) do begin
while not eof(f1) do begin
readln(f1,s);
if not eof(f1) then writeln(f3,s);
end;
writeln(f2,revstr(s));
closefile(f1);
closefile(f3);
deletefile(f1name);
rename(f3,f1name);
f3name:='temp.txt';
assignfile(f3,f3name);
reset(f1);
rewrite(f3);
end;
closefile(f2);
end
else begin
writeln('Error! ',f1name,' no exists!');
end;
readln;
end.
Miker:Если уж извращаться над недостудентами, то хотя-бы вот так:
- Код: Выделить всё
program Project1;
uses
SysUtils;
var f1,f2,f3: textfile;
f1name,f2name,f3name: string;
s: string;
function revstr(var a: string): string;
var b,c,d: string;
begin
b:=a;
d:=copy(b,2,length(b)-1);
if length(b)=1 then c:=b else c:=revstr(d)+b[1];
revstr:=c;
end;
begin
f1name:='input.txt';
f2name:='output.txt';
f3name:='temp.txt';
assignfile(f1,f1name);
assignfile(f2,f2name);
assignfile(f3,f3name);
if fileexists(f1name) then begin
rewrite(f2);
reset(f1);
rewrite(f3);
while not eof(f1) do begin
while not eof(f1) do begin
readln(f1,s);
if not eof(f1) then writeln(f3,s);
end;
writeln(f2,revstr(s));
closefile(f1);
closefile(f3);
deletefile(f1name);
rename(f3,f1name);
f3name:='temp.txt';
assignfile(f3,f3name);
reset(f1);
rewrite(f3);
end;
closefile(f2);
end
else begin
writeln('Error! ',f1name,' no exists!');
end;
readln;
end.
А с copy я, пожалуй, погорячилсо)) Но и её можно вынести, заменив на полтора пальца собственного кода)
Miker:*помнится, кто-то и в экселе журнал школьный лабал, потому что это проще, наверное?*
Miker:(см. твоё резкое сваливание из этой темы в прошлый раз).
Miker:Ты просто не любишь программирование, Зебраа)
Это всё равно что не любить секас, и прикрывать свою ущербность матюками и "огромными профессиональными планами").. Сразу видно
asm
Zebraa:я почти год не открывала делфи))