Исходники и листинги ::: Pascal ::: Перевод неправильной раскладки
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
  const
       SIZE=100;
  var
     a:array[1..SIZE] of char;
     c:array[1..SIZE] of string;
     b:array[1..SIZE] of integer;
     en,ru:string;
     i,n,q:integer;
  begin
     en:='~!@#$%^&*()_+QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM?`1234567890-=qwertyuiop[]asdfghjkl;''zxcvbnm,./ ';
     ru:='Ё!"№;%:?*()_+ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,ё1234567890-=йцукенгшщзхъфывапролджэячсмитьбю. ';
     writeln('Программа перевода "ckjdj" в "слово", надеюсь, вы меня поняли:)');
     repeat
           writeln('Выберите опцию:');
           writeln('[1]:EN->RU');
           writeln('[2]:RU->EN');
           readln(q);
     until (q=1) or (q=2);
     writeln;
     case q of
     1:begin
            write('Введите слово на "ломанном" английском:  ');
            n:=0;
            repeat
                  if NOT EOLN then
                         begin
                              n:=n+1;
                              read(a[n]);
                         end;
            until EOLN or (n=SIZE);
            readln;
 
            for i:=1 to n do
            b[i]:=pos(a[i],en);
 
            for i:=1 to n do
            c[i]:=copy(ru,b[i],1);
            writeln;;
            write('Перевод: ');
            for i:=1 to n do
            write(c[i]);
            writeln;
            writeln;
            writeln;
            write('Нажмите  для выхода из программы');
            readln;
            end;
     2:begin
            writeln('Введите слово на "ломанном" русском: ');
            n:=0;
            repeat
                  if NOT EOLN then
                         begin
                              n:=n+1;
                              read(a[n]);
                         end;
            until EOLN or (n=SIZE);
            readln;
 
            for i:=1 to n do
            b[i]:=pos(a[i],ru);
 
            for i:=1 to n do
            c[i]:=copy(en,b[i],1);
            writeln;
            write('Перевод: ');
            for i:=1 to n do
            write(c[i]);
            writeln;
            write('Нажмите  для выхода из программы');
            readln;
            end;
            end;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Перевод неправильной раскладки
Автор: slepotryas*
Город: Улан-Удэ
 Дата: 24.09.2008  06:50
Комментариев: 10
Просмотров: 166
Оценка: 11 (2|3|3|2|1) [4]
Вернуться на главную
Авторский комментарий к работе: Если вам прислали сообщение(допустим по ICQ), при вводе которого отправитель не переключил раскладку клавиатуры на нужную, а переводить "кракозябры" вручную -лень, этот алгоритм поможет вам осуществить этот перевод.
Работа опубликована администратором Mir
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Kane* ::: комментарий от 13.11.2008 | 08:54
Kane Неофит (ур.7)
Очки: 1199
Город: Якутск
Тв. работ: 7
Рег: 09.10.2008 (8737)
Ответ для HawK210294 01.11.2008 | 17:19:

Надо просто знать какой Borland Turbo Pascal использовать. Некоторые процессоры могут не поддерживать русскую раскладку. Например в некоторых моделях C++(Dev-C++) чтобы корректно кириллицу вывести нужно через редактор edit прописывать прогу и запускать на компиляторе. Вобщем дело тонкое.


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
HawK210294* ::: комментарий от 01.11.2008 | 17:19
HawK210294 Ученик (ур.11)
Очки: 5845
Город: Новокузнецк
Тв. работ: 11
Рег: 13.03.2008 (7297)
Ответ для Kane 31.10.2008 | 13:01:



Ну мне кажется, что Turbo Pascal по-русски не печатает, а вот Free Pascal нормально работает, но он мне почему-то не очень нравиться


--------------------
Не говори, что знаешь, а знай, что говоришь
Kane* ::: комментарий от 31.10.2008 | 13:01
Kane Неофит (ур.7)
Очки: 1199
Город: Якутск
Тв. работ: 7
Рег: 09.10.2008 (8737)
Ответ для HawK210294 27.10.2008 | 11:57:

Если хочешь могу проконсультировать по этому делу. Дай знать если что через сообщение.



--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
HawK210294* ::: комментарий от 27.10.2008 | 11:57
HawK210294 Ученик (ур.11)
Очки: 5845
Город: Новокузнецк
Тв. работ: 11
Рег: 13.03.2008 (7297)
Пожалуйста, помогите!



Как перевести текст с английского на русский, ну чтобы по русски печатал? Какими клавишами?



PS: У нас училка тупая сама не знает, говорит поищу где-нибудь, а сам понять не могу и найти тоже...


--------------------
Не говори, что знаешь, а знай, что говоришь
Администратор 1-го ранга (Координатор) Sauron ::: комментарий от 20.10.2008 | 12:40
Sauron Вождь (ур.18)
Очки: 38691
Город: Томск
Тв. работ: 160
Рег: 27.04.2006 (15)
юзайте слепой набор и будет вам щастье


--------------------
Твое здоровье, черный пластелин.
Белая Волка ::: комментарий от 30.09.2008 | 18:46
Белая Волка Подмастерье (ур.12)
Очки: 7926
Город: Омск
Тв. работ: 31
Рег: 27.09.2008 (8524)
Lf) Это у; точно полезная прога. Есть у меня такая привычка - написать кусок текста и только потом понять, что раскладка то не та)


--------------------
Женщиной не рождаются, ею становятся
Sicrav* ::: комментарий от 30.09.2008 | 18:44
Sicrav Сведущий (ур.9)
Очки: 2368
Город: Омск
Тв. работ: 17
Рег: 27.09.2008 (8521)
полезная прога.


--------------------
Наш девиз 4 слова:Тонешь сам - топи другого!
Dr Dreg* ::: комментарий от 25.09.2008 | 19:20
Dr Dreg Ученик (ур.11)
Очки: 4382
Город: Самара
Тв. работ: 18
Рег: 04.09.2008 (8175)
Ответ для slepotryas 25.09.2008 | 11:37:

Оставь лучше исходник, а по твоей проблеме ничего сказать не могу - обратись к админам, они уж точно помогут!


--------------------
От знаний еще никто не умирал, но рисковать не стоит!
slepotryas* ::: комментарий от 25.09.2008 | 11:37
slepotryas Перспективный (ур.8)
Очки: 1371
Город: Улан-Удэ
Тв. работ: 5
Рег: 18.09.2008 (8403)
Dr Dreg, эт моя первая ст0ящая программа была Хотел прогой так и выложить, просто не смог закачать(почему-то мне писало, что "неверный формат файла", хотя положил в Zip-папку EXE-шник, незнаю, в чем проблема, может подскажешь, так, на будущее?), ну а потом подумал, что полезнее для всех будет исходник


--------------------
There is an alternative always! Just dicover it for yourself!
Dr Dreg* ::: комментарий от 24.09.2008 | 20:05
Dr Dreg Ученик (ур.11)
Очки: 4382
Город: Самара
Тв. работ: 18
Рег: 04.09.2008 (8175)
Вещь нужная, можно сказать кослородосодержащая!



Дано мучаюсь с этой проблемой, спасибо за исходник!


--------------------
От знаний еще никто не умирал, но рисковать не стоит!