Множества

@max1992 · Регистрация: 03.06.2011

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

Дан текст из цифр и строчных латинских букв, за которыми следует точка. Определить каких букв - гласных или согласных - больше в этом тексте.

@Mawrat · 03.06.2011, 12:50

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const
  //Множество гласных букв латиницы.
  Da = ['А', 'E', ..., 'a', 'e', ...];
  //Множество согласных букв латиницы.
  Db = ['B', 'C', ..., 'b', 'c', ...];
var
  S : String;
  i, Len, Cnt : Integer;
begin
  Readln(S);
  
  Len := Length(S);
  Cnt := 0;
  for i := 1 to Len do begin
    if S[i] in Da then Inc(Cnt)
    else if S[i] in Db then Dec(Cnt)
  end;
  
  if Cnt > 0 then
    Writeln('Гласных букв больше.')
  else if Cnt < 0 then
    Writeln('Согласных букв больше.')
  else
    Writeln('Одинаковое количество гласных и согласных букв.')
  ;
  
  Readln;
end.

@be · 03.06.2011, 12:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var
    st:string;
    i,s1,s2:integer;
    a,c,b:set of char;
begin
      a:=['a'..'z'];
    b:=['a','e','i','o','y','u'];
    c:=a-b;
    Write('stroka -> ');
    read(st);
for i:=1 to length(st) do
    begin
     if st[i] in c then
        inc(s1)
      else if  st[i] in b then
          inc (s2);
    end;
     if s1>s2 then write ('soglasnih bolshe')
   else write ('glasnih bolshe');
    readln;
     readln;
end.

@max1992 · 16.06.2011, 16:46 **[ТС]**

помогите плиз с блок-схемой))))

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

@max1992 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 24

	Множества 03.06.2011, 10:57. Показов 427. Ответов 3 Метки нет (Все метки) Дан текст из цифр и строчных латинских букв, за которыми следует точка. Определить каких букв - гласных или согласных - больше в этом тексте. 0

@max1992 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 24
	16.06.2011, 16:46 [ТС]
	помогите плиз с блок-схемой)))) 0

Опции темы