Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure kane(var stud:fititis);
- var i:integer;
- begin
- i:=1;
- while (i <= 12) do
- begin
- case stud.onoma[i] of
- chr(225) : stud.latin[i]:='a';
- chr(226) : stud.latin[i]:='b';
- chr(227) : stud.latin[i]:='g';
- chr(228) : stud.latin[i]:='d';
- chr(229) : stud.latin[i]:='e';
- chr(230) : stud.latin[i]:='z';
- chr(231) : stud.latin[i]:='h';
- chr(232) : begin stud.latin[i]:='t';stud.latin[i+1]:='h';i:=i+1;end;
- chr(233) : stud.latin[i]:='i';
- chr(234) : stud.latin[i]:='k';
- chr(235) : stud.latin[i]:='l';
- chr(236) : stud.latin[i]:='m';
- chr(237) : stud.latin[i]:='n';
- chr(238) : begin stud.latin[i]:='k';stud.latin[i+1]:='s';i:=i+1;end;
- chr(239) : stud.latin[i]:='o';
- chr(240) : stud.latin[i]:='p';
- chr(241) : stud.latin[i]:='r';
- chr(242) : stud.latin[i]:='s';
- chr(243) : stud.latin[i]:='s';
- chr(244) : stud.latin[i]:='t';
- chr(245) : stud.latin[i]:='u';
- chr(246) : stud.latin[i]:='f';
- chr(247) : stud.latin[i]:='x';
- chr(248) : begin stud.latin[i]:='p';stud.latin[i+1]:='s';i:=i+1;end;
- chr(249) : stud.latin[i]:='w';
- else
- stud.latin[i]:=stud.onoma[i];
- end;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement