Нужно сделать чтобы программа выдавала ошибку в транслите с англ. на русский

@raykend · Регистрация: 13.12.2014

Студворк — интернет-сервис помощи студентам

Это программа транслирует только с русского на англ., а нужно сделать чтобы в обратном порядке он отменял программу и выдавал ошибку, т.е. например: "саша вышел погRлять" присутствует англ. буква и чтобы он сразу выдал ошибку не транслируя остальные буквы.

Pascal

const alph :array [1..34,1..2] of string = 
(('а','a'),('б','b'),('в','v'),('г','g'),('д','d'),('е','e'),('ё','e'),('ж','zh'), 
('з','z'),('и','i'),('й','y'),('к','k'),('л','l'),('м','m'),('н','n'),('о','o'),('п','p'), 
('р','r'),('с','s'),('т','t'),('у','u'),('ф','f'),('х','h'),('ц','c'), 
('ч','ch'),('ш','sh'),('щ','sch'),('ь','"'),('ы','y'),('ъ','i'),('э','e'), 
('ю','y'),('я','ya'),(' ',' ')); 
var s,input,T : string; 
i,j : integer; 
begin 
input:=''; 
T:=''; 
writeln('Введите строку');readln(s); 
for i:=1 to length(s) do 
begin 
for j:= 1 to 34 do 
if alph[j,1]=s[ i] then T:=alph[j,2]; 
if T<>'' then input := input+T else input:=input+'?'; 
T:=''; 
end; 
writeln('translit :'); 
writeln(input); 
readln; 
end.

@Cyborg Drone · 11.02.2015, 18:35

Генерируется ошибка, если встречается что угодно, кроме русских маленьких букв и пробела:

Pascal

const alph :array [1..34,1..2] of string =
(('а','a'),('б','b'),('в','v'),('г','g'),('д','d'),('е','e'),('ё','e'),('ж','zh'),
('з','z'),('и','i'),('й','y'),('к','k'),('л','l'),('м','m'),('н','n'),('о','o'),('п','p'),
('р','r'),('с','s'),('т','t'),('у','u'),('ф','f'),('х','h'),('ц','c'),
('ч','ch'),('ш','sh'),('щ','sch'),('ь','"'),('ы','y'),('ъ','i'),('э','e'),
('ю','y'),('я','ya'),(' ',' '));
var s, inp, t: string;
    i, j: integer;
    b: boolean;
begin
  inp := '';
  t := '';
  b := false;
  writeln('Введите строку');readln(s);
  for i:=1 to length(s) do
    begin
      for j:= 1 to 34 do
        if alph[j, 1] = s[i] then t := alph[j, 2];
        if length(t) > 0
          then inp := inp + t
          else
            begin
              inp := inp + '?';
              b := true;
              writeln(' ':i - 1, '^');
              writeln('Ошибка транслитерации!');
              break
            end;
        if b then break;
        T:=''
    end;
  writeln('translit :');
  writeln(inp);
  readln;
end.

Так?

Опции темы