Паскаль (I семестр) / K02-172 / 09 / wordz_tr

{$M 64000,0,600000}
program wordz2;
uses dos;
(*
(c) 2005 Dima Zolotukhin aka 'Zlogic' <zlogic@gmail.com>
Redistributable under GNU GPL license
*)
const
MAX_LENGTH = 10;
type
str_filename = string[79];
str_message = string[70];
str_word = string[MAX_LENGTH];
str1 = string[1];
pword = ^tword;
tword = record
data:str_word;
count:integer;
pleft,pright:pword;
end;
type_time = record
h,m,s,s100:real;
end;

function get_string(m:str_message):str_filename;
var
temp_str:str_filename;
begin
write(m,'> ');
readln(temp_str);
get_string:=temp_str;
end;
function open_files(file_in_name,file_out_name:str_filename;var file_in,file_out:text):boolean;
begin
assign(file_in,file_in_name);
assign(file_out,file_out_name);
{$I-}
rewrite(file_out);
reset(file_in);
{$I+}
open_files:=ioresult=0;
end;

procedure add_element(var root:pword;data_to_add:str_word);
begin
if(root=NIL)then{Ґб«Ё ­®¤  Їгбв п}
begin
new(root);{¤®Ў ў«пҐ¬ н«Ґ¬Ґ­в}
root^.pleft:=NIL;
root^.pright:=NIL;
root^.count:=1;
root^.data:=data_to_add;
end
else{Ё­ зҐ}
begin
if(data_to_add<root^.data)then{Ґб«Ё зЁб«® < ­®¤л}
add_element(root^.pleft,data_to_add);{¤®Ў ў«пҐ¬ ­ «Ґў®}
if(data_to_add>root^.data)then{Ґб«Ё зЁб«® > ­®¤л}
add_element(root^.pright,data_to_add);{¤® ў«пҐ¬ ­ Їа ў®}
if(data_to_add=root^.data)then{Ґб«Ё 㦥 Ґбвм}
root^.count:=root^.count+1;{бзЁв Ґ¬}
end;
end;

procedure read_line(var file_in:text;var wordz:pword);
var
current_symbol:str1;
current_word:str_word;
new_pword:pword;
begin
current_word:='';
while not eoln(file_in)do{¤® Є®­ж  бва®ЄЁ}
begin
read(file_in,current_symbol);{зЁв Ґ¬ бЁ¬ў®«}
if(current_symbol<>' ')then{Ґб«Ё нв® ЎгЄў }
current_word:=current_word+current_symbol;{¤®Ў ў«пҐ¬ Є ⥪г饩 бва®ЄҐ}
if(current_symbol=' ')or eoln(file_in) or(length(current_word)=MAX_LENGTH)then{Ё­ зҐ}
begin
if length(current_word)<>0 then{Ґб«Ё бва®Є  ­Ґ Їгбв п}
begin
add_element(wordz,current_word);{¤®Ў ў«пҐ¬ н«Ґ¬Ґ­в}
current_word:='';{®Ў­г«пҐ¬ б«®ў®}
end;
end;
end;
end;

procedure read_wordz(var file_in:text;var wordz:pword);
begin
while not eof(file_in)do{¤® Є®­ж  д ©« }
begin
read_line(file_in,wordz);{зЁв Ґ¬ бва®Єг}
readln(file_in);{ЇҐаҐе®¤Ё¬ ­  б«Ґ¤гойго бва®Єг}
end;
end;

procedure write_wordz(var file_out:text;wordz:pword);
begin
if(wordz<>NIL)then{Ґб«Ё ­®¤  бгйбвўгҐв}
begin
write_wordz(file_out,wordz^.pleft);{ўлў®¤Ё¬ ४габЁў­® «Ґўго ўҐвЄг}
writeln(file_out,wordz^.data,'-',wordz^.count);{ўлў®¤Ё¬ ҐҐ §­ зҐ­ЁҐ}
write_wordz(file_out,wordz^.pright);{ўлў®¤Ё¬ ४габЁў­® Їа ўго ўҐвЄг}
end;
end;

procedure get_time(var clock:type_time);
var
t_h,t_m,t_s,t_s100:word;
begin
gettime(t_h,t_m,t_s,t_s100);
with clock do
begin
h:=t_h;
m:=t_m;
s:=t_s;
s100:=t_s100;
end;
end;

function timespan(start_time:type_time):real;
var
current_time:type_time;
begin
get_time(current_time);
timespan:=0.01*(current_time.s100-start_time.s100)+(current_time.h-start_time.h)*3600+(current_time.m-start_time.m)*60+
(current_time.s-start_time.s);

end;

var
file_in_name,file_out_name:str_filename;
file_in,file_out:text;
wordz:pword;
start_time:type_time;
begin
wordz:=NIL;
file_in_name:=get_string('‚ўҐ¤ЁвҐ Ё¬п ўе®¤­®Ј® д ©« ');{Ї®«гз Ґ¬ Ё¬Ґ­  д ©«®ў}
file_out_name:=get_string('‚ўҐ¤ЁвҐ Ё¬п д ©«  ¤«п ўлў®¤ ');
get_time(start_time);
if(open_files(file_in_name,file_out_name,file_in,file_out))then{®вЄалў Ґ¬ д ©«л}
begin{Ґб«Ё ®вЄал«Ёбм}
read_wordz(file_in,wordz);{зЁв Ґ¬ б«®ў  Ё§ д ©«  ў ¬ ббЁў}
write_wordz(file_out,wordz);{ўлў®¤Ё¬ ®вб®авЁа®ў ­­л© ¬ ббЁў ў д ©«}
close(file_in);{§ Єалў Ґ¬ д ©«л}
close(file_out);
writeln('ЋЎа Ў®вЄ  ўҐ« бм ',timespan(start_time):0:2,' ᥪ㭤');
end
else{Ё­ зҐ}
writeln('ЌҐў®§¬®¦­® ®вЄалвм д ©«л!');{ўлў®¤Ё¬ б®®ЎйҐ­ЁҐ}
writeln('Ќ ¦¬ЁвҐ RETURN ¤«п ўл室 .');
readln;
end.