![Рекурсивная реализация «решета Эратосфена» дляРекурсивная реализация «решета Эратосфена» для
нахождения простых чисел. Программанахождения простых чисел. Программа
последовательно исключает из множества чисел те,последовательно исключает из множества чисел те,
которые делятся на 2, на 3 и т. д.которые делятся на 2, на 3 и т. д.
uses crt;uses crt;
const max=100;const max=100;
var chisla:set of byte;i:byte;var chisla:set of byte;i:byte;
{---------------------------------------}{---------------------------------------}
procedure eratosfen(i:byte);procedure eratosfen(i:byte);
var z:byte;var z:byte;
BeginBegin
if i>=max then exit; z:=i;if i>=max then exit; z:=i;
while z<=max dowhile z<=max do
BeginBegin
inc(z,i);inc(z,i);
if z in chisla then exclude(chisla,z)if z in chisla then exclude(chisla,z)
end; eratosfen(i+1)end;end; eratosfen(i+1)end;
{---------------------------------------}{---------------------------------------}
beginbegin
clrscr;clrscr;
chisla:=[1..max];chisla:=[1..max];
eratosfen(2);eratosfen(2);
for i:=1 to max do if i in chisla then write(i:4)for i:=1 to max do if i in chisla then write(i:4)
end.end.
Примечание:Примечание: exclude( var S: set of T; L: T); -exclude( var S: set of T; L: T); - удаляет из множестваудаляет из множества SS подмножествоподмножество LL](https://image.slidesharecdn.com/2013-131009041604-phpapp01/85/2013-7-320.jpg)
![Разбор примеровРазбор примеров
Над множествами выполняют следующие операции:Над множествами выполняют следующие операции:
ОбъединениеОбъединение. Объединением двух множеств является. Объединением двух множеств является
третье множество, содержащее элементы обоихтретье множество, содержащее элементы обоих
множеств. Знак объединения «+».множеств. Знак объединения «+».
Пример:Пример:
A: =[A: =[5,8,95,8,9];];
B: =[B: =[1,4,51,4,5];];
C: =A+B;C: =A+B;
В результате выполнения этой группы операторовВ результате выполнения этой группы операторов
множествомножество CC получит значение…получит значение…](https://image.slidesharecdn.com/2013-131009041604-phpapp01/85/2013-8-320.jpg)
![ПересечениеПересечение. Пересечением двух множеств. Пересечением двух множеств
является третье множество, котороеявляется третье множество, которое
содержит элементы, входящие одновременносодержит элементы, входящие одновременно
в оба множества. Знак пересечения «*».в оба множества. Знак пересечения «*».
A: =[4A: =[4,2,3,,2,3,5];5];
B: =[B: =[1,4,51,4,5];];
C: =[A*B];C: =[A*B];
В результате пересечения множествоВ результате пересечения множество CC
получит значение…получит значение…](https://image.slidesharecdn.com/2013-131009041604-phpapp01/85/2013-9-320.jpg)
![РазностьРазность множеств. Разностью двух множествмножеств. Разностью двух множеств
является третье множество, котороеявляется третье множество, которое
содержит элементы первого множества, несодержит элементы первого множества, не
входящие во второе множество. Знаквходящие во второе множество. Знак
разности «разности «--».».
Пример:Пример:
A: =[A: =[4, 8, 9, 64, 8, 9, 6];];
B: =[B: =[8, 108, 10];];
C: =A-B;C: =A-B;
МножествоМножество CC получит значение…получит значение…](https://image.slidesharecdn.com/2013-131009041604-phpapp01/85/2013-10-320.jpg)
More Related Content
What's hot (19)
Viewers also liked (20)
Similar to тема множество для загрузки 2013 (20)
тема множество для загрузки 2013
- 1. Тема:Тема: АлгоритмыАлгоритмы работы с множествами.работы с множествами. Алгоритм “РешетоАлгоритм “Решето Эратосфена”.Эратосфена”. Разработка алгоритмаРазработка алгоритма создания собственногосоздания собственного решето.решето. Дисциплина: ЯзыкиДисциплина: Языки программированияпрограммирования Преподаватель: Арингазинова А.М.Преподаватель: Арингазинова А.М. г.Павлодар 2012г.Павлодар 2012
- 2. Вопросы для повторения:Вопросы для повторения: Дайте определение алгоритма?Дайте определение алгоритма? Определение множественного тапа данных?Определение множественного тапа данных? Какие служебные слова используются вКакие служебные слова используются в задании множества?задании множества? Какие операции можно проделать сКакие операции можно проделать с множествами?множествами? Что такое пустое множество?Что такое пустое множество? Как организовать пустое множество?Как организовать пустое множество? Сколько способов описания множества?Сколько способов описания множества?
- 3. Цель урока: закрепить навыкиЦель урока: закрепить навыки практического примененияпрактического применения свойств множественного типасвойств множественного типа Задачи:Задачи: научиться анализировать полученныенаучиться анализировать полученные результаты;результаты; научиться выделятьнаучиться выделять главное из предложенных примеров;главное из предложенных примеров; научиться строить аналогии;научиться строить аналогии;
- 4. Тезис урока:Тезис урока: «Всё наше достоинство заключено«Всё наше достоинство заключено в мысли, - писал французскийв мысли, - писал французский математикматематик и философ XVII века Б.Паскаль.и философ XVII века Б.Паскаль. Не пространство, не время, которыхНе пространство, не время, которых мы не можем заполнить, возвышаетмы не можем заполнить, возвышает нас,нас, а именно она, наша мысль.а именно она, наша мысль. Будем же учиться хорошо мыслить».Будем же учиться хорошо мыслить».
- 5. Решето ЭратосфенаРешето Эратосфена Эратосфена решетоЭратосфена решето — это простой алгоритм— это простой алгоритм нахождения всех простых чисел донахождения всех простых чисел до некоторого целого числа . Он был созданнекоторого целого числа . Он был создан древнегреческим математиком Эратосфеном.древнегреческим математиком Эратосфеном. Простое числоПростое число — это натуральное число,— это натуральное число, которое имеет ровно 2 натуральных делителякоторое имеет ровно 2 натуральных делителя (только 1 и самого себя). Все остальные(только 1 и самого себя). Все остальные числа, кроме единицы, называютсячисла, кроме единицы, называются составными.составными.
- 6. Алгоритм «Решето Эратосфена»Алгоритм «Решето Эратосфена» . Древнегреческий ученый Эратосфен. Древнегреческий ученый Эратосфен (III — II вв. до н. э.) предложил способ(III — II вв. до н. э.) предложил способ получения простых чисел, неполучения простых чисел, не превосходящих заданного числа n.превосходящих заданного числа n. Этот способ можно описать в видеЭтот способ можно описать в виде следующего алгоритма. 1.следующего алгоритма. 1.
- 7. Рекурсивная реализация «решета Эратосфена» дляРекурсивная реализация «решета Эратосфена» для нахождения простых чисел. Программанахождения простых чисел. Программа последовательно исключает из множества чисел те,последовательно исключает из множества чисел те, которые делятся на 2, на 3 и т. д.которые делятся на 2, на 3 и т. д. uses crt;uses crt; const max=100;const max=100; var chisla:set of byte;i:byte;var chisla:set of byte;i:byte; {---------------------------------------}{---------------------------------------} procedure eratosfen(i:byte);procedure eratosfen(i:byte); var z:byte;var z:byte; BeginBegin if i>=max then exit; z:=i;if i>=max then exit; z:=i; while z<=max dowhile z<=max do BeginBegin inc(z,i);inc(z,i); if z in chisla then exclude(chisla,z)if z in chisla then exclude(chisla,z) end; eratosfen(i+1)end;end; eratosfen(i+1)end; {---------------------------------------}{---------------------------------------} beginbegin clrscr;clrscr; chisla:=[1..max];chisla:=[1..max]; eratosfen(2);eratosfen(2); for i:=1 to max do if i in chisla then write(i:4)for i:=1 to max do if i in chisla then write(i:4) end.end. Примечание:Примечание: exclude( var S: set of T; L: T); -exclude( var S: set of T; L: T); - удаляет из множестваудаляет из множества SS подмножествоподмножество LL
- 8. Разбор примеровРазбор примеров Над множествами выполняют следующие операции:Над множествами выполняют следующие операции: ОбъединениеОбъединение. Объединением двух множеств является. Объединением двух множеств является третье множество, содержащее элементы обоихтретье множество, содержащее элементы обоих множеств. Знак объединения «+».множеств. Знак объединения «+». Пример:Пример: A: =[A: =[5,8,95,8,9];]; B: =[B: =[1,4,51,4,5];]; C: =A+B;C: =A+B; В результате выполнения этой группы операторовВ результате выполнения этой группы операторов множествомножество CC получит значение…получит значение…
- 9. ПересечениеПересечение. Пересечением двух множеств. Пересечением двух множеств является третье множество, котороеявляется третье множество, которое содержит элементы, входящие одновременносодержит элементы, входящие одновременно в оба множества. Знак пересечения «*».в оба множества. Знак пересечения «*». A: =[4A: =[4,2,3,,2,3,5];5]; B: =[B: =[1,4,51,4,5];]; C: =[A*B];C: =[A*B]; В результате пересечения множествоВ результате пересечения множество CC получит значение…получит значение…
- 10. РазностьРазность множеств. Разностью двух множествмножеств. Разностью двух множеств является третье множество, котороеявляется третье множество, которое содержит элементы первого множества, несодержит элементы первого множества, не входящие во второе множество. Знаквходящие во второе множество. Знак разности «разности «--».». Пример:Пример: A: =[A: =[4, 8, 9, 64, 8, 9, 6];]; B: =[B: =[8, 108, 10];]; C: =A-B;C: =A-B; МножествоМножество CC получит значение…получит значение…
- 11. Критерий оцениванияКритерий оценивания лабораторной работы.лабораторной работы. В лабораторной работе даны методические указания кВ лабораторной работе даны методические указания к лабораторной работе, рассмотрены примеры с подробнымлабораторной работе, рассмотрены примеры с подробным описанием. В методических указаниях дан образец программы,описанием. В методических указаниях дан образец программы, с использованием множественного типа данных. Дляс использованием множественного типа данных. Для самостоятельного решения дана общая задача,самостоятельного решения дана общая задача, индивидуальное задание по вариантам.индивидуальное задание по вариантам. Одним из требованием к получению оценки «5» являетсяОдним из требованием к получению оценки «5» является использованием дружественного интерфейса, сиспользованием дружественного интерфейса, с использованием процедур и функций модуля CRT. Заданияиспользованием процедур и функций модуля CRT. Задания дифференцированные. За выполнение первого задания,дифференцированные. За выполнение первого задания, представленного в виде программного кода и блок-схемы попредставленного в виде программного кода и блок-схемы по стандартам без использования модуля CRT ставится оценка -стандартам без использования модуля CRT ставится оценка - «3».За 2 задания без использования модуля CRT ставится «4»,«3».За 2 задания без использования модуля CRT ставится «4», за выполнение всех заданий по предъявляемым критериямза выполнение всех заданий по предъявляемым критериям ставится оценка «5».ставится оценка «5».
- 12. Оформление отчетаОформление отчета Блок – схема на завершенныйБлок – схема на завершенный программный продукт, строго попрограммный продукт, строго по стандартам.стандартам. Обязательный вывод по лабораторнойОбязательный вывод по лабораторной работе.работе.
- 13. Домашнее заданиеДомашнее задание Задание на дом: Из множества целыхЗадание на дом: Из множества целых чисел1..100 выделить множествочисел1..100 выделить множество чисел на которые делится безчисел на которые делится без остатка число 444. Вывести этоостатка число 444. Вывести это множество на экран.множество на экран. Подготовка к тестированию поПодготовка к тестированию по пройденному материалупройденному материалу Повторить свойства множества.Повторить свойства множества. Попов В.П. Турбо Паскаль 7.0.Попов В.П. Турбо Паскаль 7.0.
- 14. БольшоеБольшое Спасибо за урокСпасибо за урок