1 Востаннє редагувалося Torbins (25.05.2016 12:09:20)

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

Підкажіть як зробити так щоб якщо елемент 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

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

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

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

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

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

3

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

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

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