Автор: elvis 5.05.2004 0:35
Нужно решить вот такую задачку, мож есть у кого исходник
Пеpеписать текстовый файл f в g, утpоив все стpоки, начинающиеся
символом "!"
если есть свободное время шлите мне на мыло---> ultra_elvis@mail.ru
заранее спасибо!
Автор: Catty 5.05.2004 2:14
Код
uses Crt;
const n='!';
var i,j:byte; words:array[1..100] of string;
c:char; v:string;
f:file of string; g:text;
Begin
ClrScr;
i:=1;
while c<>'.' do
begin
read(c);
if c=' 'then inc(i) else
words[i]:=words[i]+c;
end;
assign(f,'C:\file7');
rewrite(f);
for j:=1 to i do
write(f,words[j]);
close(f);
assign(f,'C:\file7');
reset(f);
for j:=1 to i do
read(f,words[j]);
for j:=1 to i do begin
v:=copy(words[j],1,1);
if v=n then words[j]:='';
end;
close(f);
assign(g,' ',C:\file8');
rewrite(g);
begin
for j:=1 to i do
write(g,words[j]);
end;
close(g);
end.
вот что-то вроде! :p2:
Автор: BlackShadow 5.05.2004 17:13
Вроде так:
Код
Var
f,g:Text;
s:String;
i:Integer;
Begin
Assign(f,'f.Txt');
Reset(f);
Assign(g,'g.Txt');
ReWrite(g);
While Not Eof(f) Do
Begin
ReadLn(f,s);
WriteLn(g,s);
If (s[0] > #0) And (s[1] = '!') Then
For i:=1 To 2 Do
WriteLn(g,s)
End;
Close(g);
Close(f)
End.
Должно быть так...
Или я неправильно понял условия.
Автор: elvis 5.05.2004 23:20
Catty спасибо!!!
BlackShadow огромное спасибо все работает (в чем не было сомнений), все решено красиво и рационально!!!