Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 8 з дисципліни “Основи програмування та алгоритмічні мови” Тема: МНОЖИНИ Варіант 28 Постановка задачі Заданий текст із латинських літер, кінець якого позначений знаком оклику. Вивести на друк усі літери, які входять до тексту один раз. Аналітичні викладки Усі літери тексту можна додавати до множини і вилучати, якщо вони повторюються. Для цього створимо 2 множини літер. В одну будемо додавати всі символи, у другу тільки ті, що повторюються. Потім знайдемо різницю цих множин. Блок-схема алгоритму розв’язання задачі
Текст програми program lab_8; uses crt; Type charset = set of char; var ch, exc : charset; {множини} c : char; i : byte; s : string; {рядок} begin TextColor(0); TextBackGround(7); clrscr; repeat {перевірка на правильність вводу} Writeln ('Vvedite text:'); readln(s); ch := []; for i := 1 to length(s) do ch := ch + [s[i]]; until '!' in ch; ch := []; exc := [' ']; i := 1; while s[i] <> '!' do {формування множин} begin {s[i] := UpCase(s[i]);} if not (s[i] in ch) then ch := ch + [s[i]] else exc := exc + [s[i]]; i := i + 1; end; ch := ch - exc; {отримання різниці} for c := 'a' to 'z' do {виведення} if c in ch then write (c:2); for c := 'A' to 'Z' do if c in ch then write (c:2); readln; end. Результати виконання програми / Висновок Під час виконання лабораторної роботи я опанував прийоми формування і обробки множин. Програма працює правильно і виводить лише ті символи, що не повторюються.