Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1 / 1 / 0
Регистрация: 05.05.2013
Сообщений: 31
1

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

15.09.2013, 15:00. Просмотров 910. Ответов 4
Метки нет (Все метки)


Дан текст, в который входят буквы латинского алфавита. За текстом следует точка. Напечатать по одному разу все гласные буквы, входящие в текст
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.09.2013, 15:00
Ответы с готовыми решениями:

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

Массивы. Строки. Напечатать все буквы, входящие в текст по одному разу
1.Создайте массив A c помощью генератора случайных чисел с вещественными элементами от -10 до 10 и...

Напечатать по одному разу все буквы, входящие в строку
С клавиатуры вводится строка. Напечатать по одному разу все буквы, входящие в строку. При решении...

Вывести все буквы, входящие в текст по одному разу
6. Дан текст, состоящий из латинских букв. Вывести все буквы, входящие в текст по одному разу.

__________________
Помогаю в написании студенческих работ здесь.
4
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
15.09.2013, 15:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  s: string;
  m: set of char;
  i: byte;
  c: char;
 
begin
  Writeln('Введите текст:');
  Readln(s);
  for i := 1 to Length(s) do
    if UpCase(s[i]) in ['E', 'Y', 'U', 'I', 'O', 'A'] then
      Include(m, UpCase(s[i]));
  for c := 'A' to 'Z' do
    if c in m then
      Write(c, ' ');
end.
0
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
15.09.2013, 15:54 3
Если просто вывести, то вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s: string;
  i: byte;
 
begin
  Writeln('Введите текст:');
  Readln(s);
  for i := 1 to Length(s) do
    if UpCase(s[i]) in ['A', 'E', 'Y', 'U', 'I', 'O'] then 
     write(UpCase(s[i]), ' '); //выводим (пробел можно убрать)
end.
0
1 / 1 / 0
Регистрация: 05.05.2013
Сообщений: 31
22.10.2013, 13:47  [ТС] 4
Цитата Сообщение от Kodzaev Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  s: string;
  m: set of char;
  i: byte;
  c: char;
 
begin
  Writeln('Введите текст:');
  Readln(s);
  for i := 1 to Length(s) do
    if UpCase(s[i]) in ['E', 'Y', 'U', 'I', 'O', 'A'] then
      Include(m, UpCase(s[i]));
  for c := 'A' to 'Z' do
    if c in m then
      Write(c, ' ');
end.
что такое upcase и include?
0
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
22.10.2013, 18:40 5
UpCase - процедура для перевода буквы в верхний регистр
Include - процедура, добавляющая элемент в множество
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2013, 18:40

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

Дан текст из малых латинских букв. Напечатать по разу все буквы, входящие в этот текст
Имя входного файла zmn8.in Имя выходного файла zmn8.out Дан текст из малых латинских букв....

Распечатать все гласные буквы, встречающиеся в тексте по одному разу
1. В початковий файл додати прізвище, ім'я, по-батькові, дату народження та групу студентів....

Строки и множества. Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу
1.Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу...

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


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

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

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