Значит изначально условие задачи , которую я делал пол - года назад заключалось в следующем:
В переменную типа String заносился текст , нужно было вывести символы встречающиеся только один раз и исходный текст....
program lab5
uses crt, printer
var
s: string;
tx: string;
i: integer;
txt: string;
k: boolean;
begin
clrscr;
writeln;
repeat
writeln;
readln(s);
if length(s)=0 then
begin
writeln('’ҐЄбв Ґ ўўҐ¤Ґ, Ї®ўв®аЁвҐ ўў®¤');continue;
end
else
tx:='';
txt:='';
for i:=1 to length(s) do
begin
if pos(s[i], txt)=0 then
begin
tx:=tx+s[i];
txt:=txt+s[i];
end
else if pos(s[i], tx)>0 then begin
delete(tx, pos(s[i], tx), 1);
end;
end;
writeln('?бе®¤л© вҐЄбв:');
writeln(s);
writeln;
if length(tx)=0 then
writeln('ЌҐв бЁ¬ў®«®ў, ўбваҐз ойЁебп ®¤Ё а §')
else
begin
writeln('‘Ё¬ў®«л, ўбваҐз ойЁҐбп ®¤Ё а §:');
for i:=1 to length(tx) do
write(tx[i],' ');
end;
writeln('¤«п ўл室 Ё§ жЁЄ« ¦¬ЁвҐ ESC, ¤«п Їа®¤®«¦ҐЁп - «оЎго Є« ўЁиг.');
until readkey=#27;
end.
Сейчас нужно переделать программу.... условие то же ....
но текст находится в типизированном файле.....
Незнаю что делать....
program lab5;
uses crt;
var
s: file of string;
tx: string;
i: integer;
txt: string;
k: boolean;
begin
assign(s,'z:\13.txt');
reset(s);
clrscr;
writeln('‡¤а ўбвўг©вҐ! ќв® Їа®Ја ¬¬ , ўлў®¤ бЁ¬ў®«®ў, ўбваҐз ойЁебп ў ⥪б⥠®¤®Єа в®.');
repeat
tx:='';
txt:='';
while not eof(s) do
begin
if pos(s,txt)=0 then
begin
tx:=tx+s;
txt:=txt+s;
end
else if pos(s,tx)>0 then begin
delete(tx, pos(s, tx), 1);
end;
end;
writeln('?бе®¤л© вҐЄбв:');
writeln(s);
writeln;
if length(tx)=0 then
writeln
else
begin
writeln('‘Ё¬ў®«л, ўбваҐз ойЁҐбп ®¤Ё а §:');
for i:=1 to length(tx) do
write(tx[i],' ');
end;
writeln;
writeln('¤«п ўл室 Ё§ жЁЄ« ¦¬ЁвҐ ESC, ¤«п Їа®¤®«¦ҐЁп - «оЎго Є« ўЁиг.');
until readkey=#27;
end.
