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

@Dashusik · Регистрация: 05.05.2013

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

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

Kodzaev · 15.09.2013, 15:28

Pascal

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.

@erl27 · 15.09.2013, 15:54

Если просто вывести, то вот:

Pascal

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.

@Dashusik · 22.10.2013, 13:47 **[ТС]**

Сообщение от Kodzaev

Pascal

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?

Kodzaev · 22.10.2013, 18:40

UpCase - процедура для перевода буквы в верхний регистр
Include - процедура, добавляющая элемент в множество

@Dashusik 1 / 1 / 0 Регистрация: 05.05.2013 Сообщений: 31
		1
	Напечатать по одному разу все гласные буквы, входящие в текст 15.09.2013, 15:00. Показов 1287. Ответов 4 Метки нет (Все метки) Дан текст, в который входят буквы латинского алфавита. За текстом следует точка. Напечатать по одному разу все гласные буквы, входящие в текст 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	22.10.2013, 18:40	5
	UpCase - процедура для перевода буквы в верхний регистр Include - процедура, добавляющая элемент в множество 1

Опции темы