VPF::[Исходники][Delphi][Пример]Нахождение количества русских и латинских букв в строке

THandle

Дата 24.3.2008, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Задание.

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

Решение.

Код


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;

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

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

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

Присоединённый файл ( Кол-во скачиваний: 5 )

_______.rar 20,87 Kb

Alix

Дата 24.3.2008, 21:51 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 8
Всего: 23

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

Это сообщение отредактировал(а) Alix - 24.3.2008, 23:24

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »