1

Тема: Множини

Добрий день! Допоможіть написати програму.
Дано два слова (слово – це текст, що не містить пробілів). Визначити
символи, які є спільними для обох слів

2

Re: Множини

Ви уже намагалися щось зробити самостійно? Які конкретно у вас виникли проблеми? Які помилки вам видало?

3

Re: Множини

Можливо це буде звучати дико, але мені не зрозуміла тема "множини". Буду вдячний якщо допоможете з програмою, або підкините посилання на якийсь відосик з YouTube чи україномовну книгу по pascal. P.s пробував вивчати pascal на ru сайтах, але не заходить. Буду вдячний за любу допомогу.

4

Re: Множини

Може питання не в Паскалі, натомість ви не розумієте що таке множина в математичному сенсі?

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

5

Re: Множини

http://pascal.dp.ua/pidruchnik/54-mnozhini.html

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

6

Re: Множини

Всім thx за мінімальну допомогу, прога написана *YAHOO*

7 Востаннє редагувалося mamkin haker (01.12.2021 17:17:59)

Re: Множини

Yuri1901 написав:

Всім thx за мінімальну допомогу, прога написана *YAHOO*

скиньте код для майбутніх поколінь (кода заверніть в от такі штучки [code ][/code ], але без пробіла між "e" та "]")

8

Re: Множини

Заодно перевіримо код на наявність мінімальних помилок:) (Я лише новичок в цій мові тому все можливо).

var s, sword: set of char;
    ch: char;
begin
    s:=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];
    sword:=[];
     repeat
         read(ch);
         case ch of
         ',','.': begin
             s:=s*sword;
             sword:=[];
         end;
       else sword:=sword+[ch];
         end;
     until ch='.';
     for ch:='a' to 'z' do
     if ch in s then write (ch:2);
     readln;
     Readln;
end.
Подякували: 0xDADA11C71

9

Re: Множини

Код погано вирівняний.
В умові "слово – це текст, що не містить пробілів", а у вас - набір маленьких латинських літер, і діляться слова по комах та крапках, пробіли ж ігноруються взагалі.