критерий выбора языка

@martirobbins · Регистрация: 23.01.2013

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

Имеется текстовый файл, определить язык (рус.,англ) файла и выдать на экран результат анализа. Критерий выбора языка: преобладающее количество символов алфавита определяет используемый язык. пример: если символов рус алфавита-1234, а символов англ.-24, то язык файла - русский

Kodzaev · 25.01.2013, 14:10

Pascal

Const
  en=['A'..'Z','a'..'z'];
  ru=['А'..'Я','а'..'я','Ё','ё'];
Var
  f: Text;
  eng,rus: Integer;
  s: String;
  x: Char;
BEGIN
Write('Введите имя файла: ');
Readln(s);
If FileExists(s+'.txt') Then
begin
  Assign(f,s+'.txt');
  Reset(f);
  While not Eof(f) do
  begin
    Read(f,x);
    If x in en Then Inc(eng);
    If x in ru Then Inc(rus);
  end;
  If eng>rus Then Writeln('Язык файла английский');
  If eng<rus Then Writeln('Язык файла русский');
  If eng=rus Then Writeln('Одинаковое кол-во русских и английских букв');
  Close(f);
end
Else Writeln('Файл не найден');
END.

@martirobbins 0 / 0 / 0 Регистрация: 23.01.2013 Сообщений: 33
		1
	критерий выбора языка 25.01.2013, 14:01. Показов 1616. Ответов 1 Метки нет (Все метки) Имеется текстовый файл, определить язык (рус.,англ) файла и выдать на экран результат анализа. Критерий выбора языка: преобладающее количество символов алфавита определяет используемый язык. пример: если символов рус алфавита-1234, а символов англ.-24, то язык файла - русский 0

	25.01.2013, 14:10

критерий выбора языка

Решение