Строки (лекция 15)

1.

Лекция 15

2.

Имеется текстовый файл. Переписать в другой файл все его
строки с заменой в них символа 0 на символ 1 и наоборот.
Var x:integer;
f, g:text;
s, t:string;
begin
assign(f,'D:/input.txt');
reset(f);
assign(g,'D:/output.txt');
rewrite(g); t:='';
while not eof(f) do
Begin
readln(f,s);
for x:=1 to length(s) do
if s[x]='0' then t:=t+'1' else if s[x]='1' then t:=t+'0' else t:=t+s[x];
end;
write(g, t);
close(f); close(g);
end.

3.

Имеется текстовый файл. Переписать в другой файл те его строки, в
которых имеется более 30-ти символов
Var
f, g:text;
St:string;
begin
assign(f,'D:/input1.txt');
reset(f);
assign(g,'D:/output2.txt');
rewrite(g);
While not EOF(f) do
Begin
Readln(f,St);
If Length(St)>30 then
Writeln(g,St);
End;
close(f); close(g);
end.
.