Text19. Дан текстовый файл. Заменить в нем все прописные русские буквы на строчные, а все строчные — на прописные.
Решение:
Коды русских буквы в паскале — меняются в зависимости от кодировки которую использует компилятор. Если вывод происходит в кодировке windows 1251, то это выглядит так:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
program Text19; var F_in,F_out: Text; Name,line: string; i:integer; begin Write('File name: '); Readln(Name); Assign(F_in,Name); Assign(F_out,'~'+Name); Reset(F_in); Rewrite(F_out); While not eof(F_in) do begin Readln(F_in,line); for i:=1 to Length(line) do begin if (ord(line[i]) in [192..223]) then line[i]:=chr(ord(line[i])+32) else if (ord(line[i]) in [224..255]) then line[i]:=chr(ord(line[i])-32); end; Writeln(F_out,line); end; Close(F_in); Close(F_out); Erase(F_in); Rename(F_out,Name); end. |
OEM 866:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
program Text19; var F_in,F_out: Text; Name,line: string; i:integer; begin Write('File name: '); Readln(Name); Assign(F_in,Name); Assign(F_out,'~'+Name); Reset(F_in); Rewrite(F_out); While not eof(F_in) do begin Readln(F_in,line); for i:=1 to Length(line) do if (ord(line[i]) in [160..175]) then line[i]:=chr(ord(line[i])-32) else if (ord(line[i]) in [224..239]) then line[i]:=chr(ord(line[i])-80) else if (ord(line[i]) in [128..143]) then line[i]:=chr(ord(line[i])+32) else if (ord(line[i]) in [144..159]) then line[i]:=chr(ord(line[i])+80); Writeln(F_out,line); end; Close(F_in); Close(F_out); Erase(F_in); Rename(F_out,Name); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: