Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
МНОЖИНИ
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 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.
Результати виконання програми
/
Висновок
Під час виконання лабораторної роботи я опанував прийоми формування і обробки множин.
Програма працює правильно і виводить лише ті символи, що не повторюються.
01.03.2013 19:03-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора