Advertisement
Guest User

Untitled

a guest
Aug 20th, 2017
105
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.12 KB | None | 0 0
  1. procedure kane(var stud:fititis);
  2. var i:integer;
  3. begin
  4.     i:=1;
  5.     while (i <= 12) do
  6.     begin
  7.         case stud.onoma[i] of
  8.         chr(225) : stud.latin[i]:='a';
  9.         chr(226) : stud.latin[i]:='b';
  10.         chr(227) : stud.latin[i]:='g';
  11.         chr(228) : stud.latin[i]:='d';
  12.         chr(229) : stud.latin[i]:='e';
  13.         chr(230) : stud.latin[i]:='z';
  14.         chr(231) : stud.latin[i]:='h';
  15.         chr(232) : begin stud.latin[i]:='t';stud.latin[i+1]:='h';i:=i+1;end;
  16.         chr(233) : stud.latin[i]:='i';
  17.         chr(234) : stud.latin[i]:='k';
  18.         chr(235) : stud.latin[i]:='l';
  19.         chr(236) : stud.latin[i]:='m';
  20.         chr(237) : stud.latin[i]:='n';
  21.         chr(238) : begin stud.latin[i]:='k';stud.latin[i+1]:='s';i:=i+1;end;
  22.         chr(239) : stud.latin[i]:='o';
  23.         chr(240) : stud.latin[i]:='p';
  24.         chr(241) : stud.latin[i]:='r';
  25.         chr(242) : stud.latin[i]:='s';
  26.         chr(243) : stud.latin[i]:='s';
  27.         chr(244) : stud.latin[i]:='t';
  28.         chr(245) : stud.latin[i]:='u';
  29.         chr(246) : stud.latin[i]:='f';
  30.         chr(247) : stud.latin[i]:='x';
  31.         chr(248) : begin stud.latin[i]:='p';stud.latin[i+1]:='s';i:=i+1;end;
  32.         chr(249) : stud.latin[i]:='w';
  33.         else
  34.             stud.latin[i]:=stud.onoma[i];
  35.         end;
  36.     end;
  37. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement