Спасибо большое за выполненную работу! Работа выполнена досрочно в хорошем качестве!
Людмила
ТГУ
Узнайте стоимость индивидуальной работы
это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Готовые работы
/
Рефераты
/ Информатика и программирование
/ Алгоритмические языки: использование множеств
Алгоритмические языки: использование множеств
Тип
Реферат
Предмет
Информатика и программирование
Просмотров
1186
Размер файла
46 б
Поделиться
Ознакомительный фрагмент работы:
Алгоритмические языки: использование множеств
ЛАБОРАТОРНАЯ РАБОТА
по дисциплине “Основы программирования”
на тему
Алгоритмические языки: использование множеств
Цель работы: получение навыков работы с множествами.
Постановка задачи:
1. Изучить способы описания и использования множеств.
2. Разработать алгоритм и составить программу для решения задачи соответствующего варианта.
Задание к работе:
1. Найти в последовательности целых чисел такие, которые встречаются в ней ровно два раза.
2. Набрать программу, отладить ее, протестировать. Распечатать текст программы и результаты ее работы на тестовых данных.
3. Подобрать наборы тестовых данных.
Ход выполнения работы
Блок-схема:
Рисунок 1. Блок-схема программы.
-
+
Рисунок 2. Блок-схема элемента Code программы.
-
+
-
+
| ||||||
Рисунок 3. Блок-схема элемента Code2 программы.
Текст программы:
Program lab;
Uses crt;
Type
bin=byte;
maxlen=byte;
Const
max=100;
max_bin=255;
Var
a:array[1..max] of bin;
len:maxlen;
Procedure Vvod(Var a: array of bin;Var len:maxlen);
Var
x:maxlen;
begin
Write('Введите длинну последовательности: ');
Readln(len);
Writeln('Введите элементы последовательности: ');
for x:= 1 to len do
Begin
Write('a[',x,']=');
Readln(a[x]);
End;
End;
Procedure Code(a:array of bin;len:maxlen);
Var
x:maxlen;
b:array[1..max_bin] of byte;
Begin
for x:=1 to max_bin do b[x]:=0;
for x:=1 to len do inc(b[a[x]]);
for x:=1 to max_bin do if b[x]=2 then
Begin
Writeln('Число ',x,' повторяется ровно два раза');
End;
End;
Procedure Code2(a:array of bin;len:maxlen);
Var
b,c:set of bin;
x,y:maxlen;
k:byte;
Begin
y:=1;
b:=[];
c:=[];
for x:=1 to len do b:=b+[a[x]];
for y:=1 to len do
Begin
x:=0;
k:=0;
Repeat
Begin
inc(x);
if (a[x] in b)and(a[x]=a[y]) then inc(k);
End;
Until (x=len) or (k>2);
if k=2 then c:=c+[a[y]];
End;
for x:=1 to max_bin do if x in c then
Begin
Writeln('Число ',x,' повторяется ровно два раза');
End;
End;
Clrscr;
Begin
Vvod(a,len);
Writeln('Первый алгоритм: ');
Code(a,len);
Writeln('Второй алгоритм: ');
Code2(a,len);
End.
Результаты работы программы.
1) Введенные данные:
a[1]=1; a[2]=2; a[3]=3; a[4]=8; a[5]=10; a[6]=25; a[7]=44; a[8]=2; a[9]=9; a[10]=33;
Результаты работы программы
Первый алгоритм:
Числа повторяющиеся ровно два раза: 2;
Второй алгоритм:
Числа повторяющиеся ровно два раза: 2;
Рисунок 4. Результаты теста №1.
2) Введенные данные:
a[1]=1; a[2]=1; a[3]=2; a[4]=2; a[5]=3; a[6]=3; a[7]=4; a[8]=4;
Результаты работы программы
Первый алгоритм:
Числа, повторяющиеся ровно два раза: 1; 2; 3; 4;
Второй алгоритм:
Числа, повторяющиеся ровно два раза: 1; 2; 3; 4;
Рисунок 5. Результаты теста №2.
Нет нужной работы в каталоге?
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
1 000 +
Новых работ ежедневно
Требуются доработки?
Они включены в стоимость работы 
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Иванна
Математика
История
Экономика
159599
рейтинг
рейтинг
3275
работ сдано
работ сдано
1404
отзывов
отзывов
Ludmila
Математика
Физика
История
157252
рейтинг
рейтинг
6079
работ сдано
работ сдано
2741
отзывов
отзывов
Svetlana
Химия
Экономика
Биология
105734
рейтинг
рейтинг
2110
работ сдано
работ сдано
1318
отзывов
отзывов
Константин Николаевич
Высшая математика
Информатика
Геодезия
62710
рейтинг
рейтинг
1046
работ сдано
работ сдано
598
отзывов
отзывов
Отзывы студентов о нашей работе
67 202 оценки
среднее 4.9 из 5
Людмила
ТГУ
Спасибо большое за выполненную работу! Работа выполнена досрочно в хорошем качестве!
Ульяна
РГГУ
Вы меня уже во второй раз выручаете своей оперативностью. Спасибо Вам большое. Преподавате...
Арина
НИЯУ МИФИ
Работа выполнена качественно, без замечаний. Была сдана раньше срока. Исполнитель вежливый...
Вы меня уже во второй раз выручаете своей оперативностью. Спасибо Вам большое. Преподаватель реферат принял без проблем.
Ульяна
РГГУ
Работа выполнена качественно, без замечаний. Была сдана раньше срока. Исполнитель вежливый в общении. Все понравилось, спасибо!
Арина
НИЯУ МИФИ
Последние размещённые задания
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Создать 3д модель по чертежу и перерисовать чертеж в электронном виде.
Чертеж, Инженерная графика
Срок сдачи к 31 июля
2 минуты назад
2 минуты назад
Факультет химическая технология переработки нефти и газа.
Диплом, Нефтегазовое дело
Срок сдачи к 31 авг.
3 минуты назад
3 минуты назад
3 минуты назад
Технологическая (проектно-технологическая) практика
Отчет по практике, Педагогика
Срок сдачи к 3 авг.
3 минуты назад
1. кинематический анализ механизма. 2. кинетостатический анализ механизма. 3. динамический синтез маховика. 4. анализ и синтез кулачковых механизмов. 5. эвольвентное зацепление.
Курсовая, Теория механизмов и машин (ТММ), машиностроение
Срок сдачи к 16 июля
5 минут назад
Задание для Телешун Матвея Вячеславовича + необходима...
Отчет по практике, Цифровая экология в промышленных предприятиях
Срок сдачи к 20 июля
5 минут назад
Просмотрите 1 сезон сериала «Пациенты» (2008–2021) и выберите 3 серии
Контрольная, Профессиональная этика психолога» ДПО
Срок сдачи к 30 июля
5 минут назад
Платформер: "Динамическое окружение"
Отчет по практике, Информационные системы и технологии
Срок сдачи к 18 июля
6 минут назад
Внутренние производственные резервы, методы их выявления и пути использования в ооо «русагро»
Курсовая, Производственный менеджмент
Срок сдачи к 19 июля
6 минут назад
Решение уравнений с одной переменной, решение систем линейных уравнений, вычисление определителей матриц, вычисление обратной матрицы, приближение функций, численное дифференцирование
Лабораторная, Вычислительная математика
Срок сдачи к 20 июля
7 минут назад
Отчет о прохождении производственной практики: технологической (проектно-технологической) практики в пао «сбербанк»
Отчет по практике, Финансы и кредит
Срок сдачи к 17 июля
8 минут назад
8 минут назад
9 минут назад
9 минут назад
Проверить оформление готовых отчетов по практике. Государственное муниципальное управление. П-00032
Отчет по практике, Государственное муниципальное управление
Срок сдачи к 17 июля
9 минут назад
12 минут назад
Закажи индивидуальную работу за 1 минуту!
Размещенные на сайт контрольные, курсовые и иные категории работ (далее — Работы) и их содержимое предназначены исключительно для ознакомления, без целей коммерческого использования. Все права в отношении Работ и их содержимого принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие в связи с использованием Работ и их содержимого.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Мы ВКонтакте 
Трейлер о сайте
Принимаем к оплате
© 2011—2026 Всё сдал!