Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 16.02.2010
Сообщений: 49
1

Подсчитать в строке текста гласные, которые входят в каждое слово текста

02.03.2010, 20:28. Просмотров 1191. Ответов 2
Метки нет (Все метки)

Подсчитать в строке текста все гласные,которые входят в каждое слово текста... вывод- буква и сколько раз повторяется.
(с помощью множеств)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2010, 20:28
Ответы с готовыми решениями:

Напечатать в алфавитном порядке все гласные буквы, которые не входят ни в одно четное слово и входят в каждое нечетное
Напечатать в алфавитном порядке все гласные буквы, которые не входят ни в одно четное слово и...

Вывести все гласные буквы, которые входят в каждое слово
Дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами –...

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

Вывести все гласные буквы, которые входят в каждое четное слово
создать приложение на языке C#, которое позволит для текста, заданного строкой, вывести в консоль:...

2
5 / 5 / 3
Регистрация: 27.12.2009
Сообщений: 14
02.03.2010, 21:16 2
Лучший ответ Сообщение было отмечено Dark_dragon как решение

Решение

Вот, что у меня получилось:

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
Program GLAAAS;
var s : string;
    a : array [1..10] of string;
    i, n, l : integer;
Begin
     write ('Введите строку: ');
     readln (s);
     a[1]:='а';
     a[2]:='е';
     a[3]:='ё';
     a[4]:='и';
     a[5]:='о';
     a[6]:='у';
     a[7]:='ы';
     a[8]:='э';
     a[9]:='ю';
     a[10]:='я';
     for i:=1 to 10 do
         Begin
         n:=0;
         write (a[i], ' - ');
         for l:=1 to Length (s) do
             if s[l]=a[i] then n:=n+1;
         writeln (n)
         End
End.
Ну как? Подходит?
0
0 / 0 / 0
Регистрация: 16.02.2010
Сообщений: 49
03.03.2010, 06:11  [ТС] 3
спс,но тут надо с множествами с массивами я сам справилсяЁ
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2010, 06:11

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

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово
Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в...

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово
Дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами –...

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово
Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в...

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.
Добрый день, вечер, помогите пожалуйста написать програмку, по заданию: 1. Создать файл,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.