Напишите программу, которая позволила бы, не перенабирая текста, перевести его на русский язык

Категория: Delphi/Pascal
2012-01-29 21:45:44

Невнимательная секретарша. Набирая текст слепым методом, машинистка, не отрываясь, смотрела в документ и поэтому не заметила, что работает, не включив русский шрифт. В результате русскоязычный документ оказался набранным символами латинского шрифта. Напишите программу, которая позволила бы, не перенабирая текста, перевести его на русский язык.

code: #pascal
program PascalGuru;
 
var i,p:integer;
    s,en,ru:string;
 
begin
write('Vvedite stroky (angl. bukvami): ');
readln(s);
{----------------}
en:='`qwertyuiop[]asdfghjkl;''\zxcvbnm,./~QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?';
{ru:='с©жгЄҐ­Јий§екдлў Їа®«¤¦н\пзб¬ЁвмЎо.р‰–“Љ…Ќѓ˜™‡•љ”›‚ЂЏђЋ‹„†ќ/џ—‘Њ€’њЃћ,'; } {для FreePascal}
ru:='ёйцукенгшщзхъфывапролджэ\ячсмитьбю.ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,';
 
writeln;
writeln(s);
 
for i:=1 to length(s) do
   if pos(s[i],en)<>0 then
   begin
   p:=pos(s[i],en);
   s[i]:=ru[p];
   end;
 
writeln;
writeln('RU: ',s);
 
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, работа со строками, строка