Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2012, 17:17   #1
potemos
Новичок
Джуниор
 
Регистрация: 17.04.2012
Сообщений: 2
По умолчанию Определите сколько слов заданного текста составлено из букв русского алфавита, а сколько из букв латинского алфавита. Слова, в кот

Определите сколько слов заданного текста составлено из букв русского алфавита, а сколько из букв латинского алфавита. Слова, в которых встречаются буквы обоих алфавитов, замените словом "Error"
potemos вне форума Ответить с цитированием
Старый 18.04.2012, 11:20   #2
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Можно как-то так, хотя можно и лучше..
Код:
const
  s: string= 'qwerty аааaaa йцукен, asdf фыва? zxcv nmть';
  lat= ['A'..'Z']+['a'..'z'];
  rus= ['А'..'Я']+['а'..'я'];

var
  i,j,t: integer;
  c: array[1..2] of integer;

begin
  writeln('original text:');
  writeln(s);
  i:= 1;
  t:= 0;
  s:= s+' ';
  while i<=Length(s) do begin
    if s[i] in Lat then
      case t of
        0: begin
          t:= 1;
          j:= i
        end;
        2: t:= 3
      end
    else if s[i] in Rus then
      case t of
        0: begin
          t:= 2;
          j:= i
        end;
        1: t:= 3
      end
    else begin
      case t of
        1,2: inc(c[t]);
        3: begin
          Delete(s,j,i-j);
          Insert('error',s,j)
        end
      end;
      t:= 0
    end;
    inc(i)
  end;
  writeln('lat words: ',c[1]);
  writeln('rus words: ',c[2]);
  writeln('corrected text:');
  writeln(s);
  readln
end.
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 18.04.2012, 13:14   #3
potemos
Новичок
Джуниор
 
Регистрация: 17.04.2012
Сообщений: 2
По умолчанию

спасиб =) надеюсь робит =)
если еще лучше будет кинь плиз
potemos вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
последовательность латинского алфавита (z, yz, xyz и т. д.) X-REY Паскаль, Turbo Pascal, PascalABC.NET 2 01.12.2012 18:39
Сформировать 2 множества,состоящих из заглавных букв латинского алфавита. Определить элементы,принадлежащ Aktor1992 Паскаль, Turbo Pascal, PascalABC.NET 0 12.04.2011 22:13
Как составить слова из букв заданного слова(Паскаль) lirikoff Помощь студентам 1 22.12.2010 10:21
задача со сменой букв русского алфавита koresh3 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 04.01.2010 15:52
процедура, которая выводит все слова, начинающиеся с согласных букв латинского алфавита. sergeyfsd Паскаль, Turbo Pascal, PascalABC.NET 6 21.02.2008 22:29