PascalABC, вопрос

Ильгиза · 20.11.2011, 17:29

program upr1;
var st:string;
gl,gl_st: set of char;
k,i:byte;
c:char;
begin
writeln('введите строку:');
readln(st);
gl:=['a','e','i','o','u','y'];
k:=0;
gl_st:=[];
for i:=1 to length(st) do
if st[i] in gl then
gl_st:=gl_st+[st[i]];
writeln('буквы,удовлетворяющие условию:');
for c:='a' to 'z' do
if c in gl_st then begin
write(c:3);
k:=k+1;
end;
writeln;
writeln('количество элементов во множетстве: ',k);
end.

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

Vladimir_S · 20.11.2011, 18:24

Цитата:

Сообщение от Ильгиза

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

Например, так:

Код:

program upr1;
const
 gl=['a','e','i','o','u','y'];
var
 st:string;
 gl_st: set of char;
 i:byte;
 c:char;
begin
 writeln('Enter the string:');
 readln(st);
 gl_st:=[];
 for i:=1 to length(st) do
  if (st[i] in gl) and Not(st[i] in gl_st) then
   gl_st:=gl_st+[st[i]];
 for c:='a' to 'z' do
  if (c in gl) and Not(c in gl_st) then write(c:3);
end.

20.11.2011, 17:29	#1 (permalink)
Ильгиза Member Регистрация: 08.10.2011 Сообщений: 49 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	PascalABC, вопрос program upr1; var st:string; gl,gl_st: set of char; k,i:byte; c:char; begin writeln('введите строку:'); readln(st); gl:=['a','e','i','o','u','y']; k:=0; gl_st:=[]; for i:=1 to length(st) do if st[i] in gl then gl_st:=gl_st+[st[i]]; writeln('буквы,удовлетворяющие условию:'); for c:='a' to 'z' do if c in gl_st then begin write(c:3); k:=k+1; end; writeln; writeln('количество элементов во множетстве: ',k); end. как сделать так, что бы печатались в алфавитном порядке все гласные буквы, не входящие хотя бы в одно слово( дана последовательность английских слов)

20.11.2011, 17:29
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Скорее всего проблема уже была решена ранее в других обсуждениях PascalABC, возможно ошибка Вопрос по БП Вопрос по СВО Мой вопрос Вопрос по БП

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070