Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Количество маленьких букв в строке.

Страницы: 1
Количество маленьких букв в строке.
#1
10.06.2010 14:53:00
Как можно найти количество маленьких букв в строке?
 
 
#2
10.06.2010 14:58:20
Код
program small_letter_counter;
var str :string;
i, k :integer;
j :char;
begin
    writeln ( 'Введите строку: ' );
    readln ( str );
    k := 0;
    for i := 1 to length( str ) do
     begin
        for j := 'a' to 'z' do  if
        j = str[i] then
        k := k + 1;
     end;
    writeln ( 'Найдено маленьких букв: ', k:3 );
    readln;
end.
 
 
#3
10.06.2010 19:50:43
А зачем два цикла? Хотя может в Turbo Pascal так и нельзя (я не пробовал, попробуйте Вы smile;) ), но в Delphi можно сделать так:

Код
var
 i, k:integer;
 s:string;
begin
 k:=0;
 s:='aaBBccDd';
 for i := 1 to Length(s) do
  case s[i] of
   'a'..'z':
    begin
     inc(k);
    end;
  end;
//Выводим k на экран
end.
Изменено: Valera - 10.06.2010 19:52:59
 
 
#4
12.06.2010 14:51:33
Можно, я попробовал. Второй цикл не обязателен.
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)