1 Тема від fpsstyle Востаннє редагувалося Torbins (25.05.2016 11:09:20)

  • fpsstyle
  • Користувач
  • Поза форумом
  • Дата реєстрації: 24.05.2016
  • Повідомлень: 1
    • Репутація: 0

Тема: Робота з множинами літер

Підкажіть як зробити так щоб якщо елемент s є в множині S3,S4 то записати його в S1,S2.

Var 
S3,S4,Q,S1,S2:set of char;
s:string;
begin
S3:=['a,e,i,o,u'];
S3:=['B,C,D,F,G,H,J,K,L,M,N,P,Q,R,S,T,V,W,X,Z'];
writeln('введите строку латинских букв');
readln(s);
for i:=1 to length(s) do
  begin
   if s[i] in S3 then
   //поместить в множество S1 
   
   
   
   
   
   if s[i] in S4 then
   // поместить в множество S2

2 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • На форумі
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 287
    • Репутація: 13025

Re: Робота з множинами літер

В рядку 6 має бути S4.
Решта банально:

if s[i] in S3 then begin
    S1:=S1+[s[i]];
end;

Створюємо нову множину з одного елемента ([ s[ i ] ]), обчислюємо її об'єднання з попервах пустим S1 і заносимо результат в S1.

Подякували: leofun011

koala вебсайт

3 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 066
    • Репутація: 2266

Re: Робота з множинами літер

fpsstyle
В рядках 5 та 6 у вас з лапками щось не те.

Подякували: koala, leofun012