Правила форума
Прочтите прежде чем задавать вопрос!
Код
1 1 1
//Первое число показывает, стоит урезать пробелы или нет.
Если надо обрезать пробелы, ставим 1. Если не надо, 0.
Пример:
При сравнении строк "А Б В" и " АБВ" со значением опции 1 в выходной файл будут выведены
строки "АБВ" и "АБВ", со значением опции 0 - " АБВ" и "А Б В" соответственно.
//Второе число показывает, считать большие буквы равные маленьким, или нет.
Если считать большие буквы равные маленьким, ставим 1. Если считать их разными, 0.
Пример:
При сравнении строк "абв" и "АБВ" со значением опции 1 в выходной файл будут выведены "АБВ"
и "АБВ". При значении опции 0 - "АБВ" и "абв" соответственно.
//Третье число показывает, транслитерировать русские названия или нет.
Если надо транслитерировать русские названия, все кириллические символы будут переведены в
символы латиницы. Если нет, то русские символы останутся на месте, а все русские строки
в выходном файле будут расположены после латинских.
Пример:
При сравнении строк "zak" и "абв" при значении опции 1 в выходной файл будут выведены "abv"
и "zak", при значении опции 0 - "zak" и "абв" соответственно.
Результат должен быть выведен в файл output.txt
Моя программа (все текстовые файлы и исходник программы) добавлена в прикрепления.
Вот код основной программы:
program strsort;
var f1,f2,conf:text;
n:integer;
a:array[1..1000] of string;
i,k,e,q:integer;
r:integer;
s,s1,s2,t:string;
opt1,opt2,opt3:integer;
function trlit(a:string):string;
var s:string;
q:string;
t,k:integer;
begin
q:='';
s:='';
k:=1;
t:=length(a);
while k<=t do begin
case a[k] of
... (тут все буквы большого и малого регистра кириллицы и их аналоги в транслите)
else s:=a[k];
end;
if length(s)>=2 then begin t:=t+length(s); k:=k+length(s); end;
q:=q+s;
k:=k+1;
end;
trlit:=q;
end;
function up(s:string):string;
var stmp:string;
z:byte;
c:char;
begin
stmp:='';
for z:=1 to length(s) do
begin
c:=s[z];
case c of
'а'..'п':stmp:=stmp+chr(ord©-32);
'р'..'я':stmp:=stmp+chr(ord©-80);
else stmp:=stmp+upcase©;
end;
end;
up:=stmp;
end;
function sravn(s1,s2:char):integer;
begin
if s1<s2 then sravn:=1;
if s1=s2 then sravn:=0;
if s1>s2 then sravn:=2;
end;
function probel(s:string):string;
var i,l:integer;
begin
l:=length(s);
for k:=1 to l do for i:=1 to l do if s[i]=' ' then begin delete(s,i,1); l:=l-1; end;
probel:=s;
end;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
assign(conf,'config.txt');
reset(conf);
read(conf,opt1,opt2,opt3);
close(conf);
if ((opt1<>0) and (opt1<>1)) or ((opt2<>0) and (opt2<>1)) or ((opt3<>0) and (opt3<>1)) then
begin
writeln('Ошибка при чтении конфигурационных данных.');
writeln('Поломался файл config.txt ');
readln;
halt;
end;
reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
close(f1);
if opt1=1 then for i:=1 to n do a[i]:=probel(a[i]);
if opt2=1 then for i:=1 to n do a[i]:=up(a[i]);
if opt3=1 then for i:=1 to n do a[i]:=trlit(a[i]);
k:=1;
while k<n do begin
for i:=1 to n-1 do begin
r:=0; q:=1;
while r=0 do begin
s1:=a[i];
s2:=a[i+1];
r:=sravn(s1[q],s2[q]);
if (q>length(s1)) or (q>length(s2)) then r:=1;
q:=q+1;
end;
if r=2 then begin s:=a[i]; a[i]:=a[i+1]; a[i+1]:=s; end;
end;
k:=k+1;
end;
rewrite(f2);
for i:=1 to n do writeln(f2,a[i]);
close(f2);
end.
Программа компилируется и абсолютно корректно работает со строками в латинице и кириллице с отключенными опциями 2 (перевод с верхний регистр) и 3 (транслитерация). С включенными опциями 2 и 3 программа с кириллицей работает некорректно. Если я правильно понимаю, скомпиленная ФриПаскалем прога не может корректно работать с виндовскими текстовыми файлами, и поэтому считывает кириллицу некорректно. Подскажите, пожалуйста, что делать, и как научить прогу полностью корректно обращаться с кириллицей.
Спасибо.
Сообщение отредактировано: forscripts -
