(Код паскаль)Дан текстовый файл. Латинские буквы из него поместить в текущем каталоге в файл file.lat, русские – в file.rus, все остальные символы – в file.oth.
program Lyonyshna; const Rus = ['А'..'Я', 'а'..'я']; Lat = ['A',..'Z', 'a'..'z']; Var f,frus,flat,foth:text; i: integer; st,strus,stlat,stoth: string; begin Assign(f, 'file1.txt'); Rewrite(f); write('Введите исходную строку: '); readln(st); writeln(f,st); close(f); strus:=''; stlat:=''; stoth:=''; Reset(f); Assign(frus, 'russian.txt'); Rewrite(frus); Assign(flat, 'latin.txt'); Rewrite(flat); Assign(foth, 'other.txt'); Rewrite(foth); Readln(f,st); for i:=1 to length(st) do if st[i] in rus then strus:=strus+st[i] else if st[i] in lat then stlat:=stlat+st[i] else stoth:=stoth+st[i]; Writeln(frus,strus); Writeln(flat,stlat); Writeln(foth,stoth); Writeln('Русские символы: ',strus); Writeln('Латинские символы: ',stlat); Writeln('Другие символы: ',stoth); Close(f); Close(frus); Close(flat); Close(foth); end.
Answers & Comments
Verified answer
program Lyonyshna;
const
Rus = ['А'..'Я', 'а'..'я'];
Lat = ['A',..'Z', 'a'..'z'];
Var f,frus,flat,foth:text;
i: integer;
st,strus,stlat,stoth: string;
begin
Assign(f, 'file1.txt');
Rewrite(f);
write('Введите исходную строку: '); readln(st);
writeln(f,st);
close(f);
strus:='';
stlat:='';
stoth:='';
Reset(f);
Assign(frus, 'russian.txt');
Rewrite(frus);
Assign(flat, 'latin.txt');
Rewrite(flat);
Assign(foth, 'other.txt');
Rewrite(foth);
Readln(f,st);
for i:=1 to length(st) do
if st[i] in rus then strus:=strus+st[i]
else
if st[i] in lat then stlat:=stlat+st[i]
else
stoth:=stoth+st[i];
Writeln(frus,strus);
Writeln(flat,stlat);
Writeln(foth,stoth);
Writeln('Русские символы: ',strus);
Writeln('Латинские символы: ',stlat);
Writeln('Другие символы: ',stoth);
Close(f); Close(frus); Close(flat); Close(foth);
end.