Множества

@malvinaaa · Регистрация: 04.04.2011

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

Дан файл из цифр и латинских строчных букв, за которым следует точка. Определить каких букв гласных или согласных больше в этом тексте.
Если можно то с описанием подробным))) и в Consol Application. И файл нужно создать самим. Заранее благодарю=)

@i8085 · 25.06.2011, 22:08

malvinaaa, похоже, ждать ответ будете долго. Но если просмотрите пару предыдущих страниц форума - найдёте десяток примеров решения подобных задач.

@Mawrat · 25.06.2011, 22:17

Основа решения такая:

Delphi

var
  S : String;
  i, Len, Cnt : Integer
begin
  Writeln('Задайте строку:');
  Readln(S);
  
  Len := Length(S);
  Cnt := 0;
  for i := 1 to Len do begin
    case S[i] of
      'a', 'e', 'i', ... : Inc(Cnt);
      'b', 'c', 'd', ... : Dec(Cnt);
    end;
  end;
  
  if Cnt = 0 then
    Writeln('Гласных и согласных букв одинаковое количество.')
  else if Cnt > 0 then
    Writeln('Гласных букв больше, чем согласных.')
  else
    Writeln('Согласных букв больше, чем гласных.')
  ;
  Readln;
end.

@malvinaaa 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 14
		1
	Множества 25.06.2011, 19:26. Показов 1116. Ответов 2 Метки нет (Все метки) Дан файл из цифр и латинских строчных букв, за которым следует точка. Определить каких букв гласных или согласных больше в этом тексте. Если можно то с описанием подробным))) и в Consol Application. И файл нужно создать самим. Заранее благодарю=) 0

@i8085 3031 / 2214 / 510 Регистрация: 11.09.2009 Сообщений: 8,193
	25.06.2011, 22:08	2
	malvinaaa, похоже, ждать ответ будете долго. Но если просмотрите пару предыдущих страниц форума - найдёте десяток примеров решения подобных задач. 0

Опции темы

Множества

Решение