Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Робота з множинами літер
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Підкажіть як зробити так щоб якщо елемент 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
В рядку 6 має бути S4.
Решта банально:
if s[i] in S3 then begin
S1:=S1+[s[i]];
end;Створюємо нову множину з одного елемента ([ s[ i ] ]), обчислюємо її об'єднання з попервах пустим S1 і заносимо результат в S1.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися