Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > [Исходники][Delphi][Пример]Нахождение количества русских и латинских букв в строке

Автор: THandle 24.3.2008, 20:18

Задание.

Дана строка. Подсчитать общее количество содержащихся в ней строчных латинский и русских букв.

Решение.

Код


program problem;

{$APPTYPE CONSOLE}

var
  i : integer;
  iLat : integer = 0;
  iRus : integer = 0;
  sBuf : string;

begin
  Write('Vvedite stroku: ');
  Readln(sBuf);
  for i := 1 to length(sBuf) do
  if sBuf[i] in ['a'..'z'] then
    inc(iLat) 
  else
    if ord(sBuf[i])in[160..175,224..239] then
      inc(iRus);
  Writeln('Latinskie: ', iLat);
  Writeln('Russkie: ', iRus);
  Readln;
end.

Объяснение.

i - счетчик цикла.

iLat - количество латинских букв.

iRus - количество русских букв.

sBuf - строка.

Код


  Write('Vvedite stroku: ');
  Readln(sBuf);

Вводим с клавиатуры строку и пишем её в sBuf.

Далее следует цикл от 1 до длины введенной строки.

Код


for i := 1 to length(sBuf) do

В этом цикле мы делаем следующее:

Код



  if sBuf[i] in ['a'..'z'] then
    inc(iLat)

Если символ с индексов i строки sBuf латинский, то увеличиваем нашу переменную счетчик латинских букв.

Код


  else
    if ord(sBuf[i])in[160..175,224..239] then
      inc(iRus);

Если русский, то увеличиваем переменную счетчик русских букв.

Код


  Writeln('Latinskie: ', iLat);
  Writeln('Russkie: ', iRus);
  Readln;

Выводим результат.

Конец программы.

В прикрепленном файле полный проект данного примера.

Автор: Alix 24.3.2008, 21:51

нет учета прописных букв
пардон, был невнимателен, каюсь