Программирование с использованием множеств. Структурная схема алгоритма. Описание алгоритма и программы. Текст программы

Министерство образования и науки Российской Федерации

Алтайский государственный технический университет

им. И. И. Ползунова

Кафедра «Информационные системы в экономике»

ОТЧЕТ

о лабораторной работе № 8

по теме: «Программирование с использованием множеств»

вариант 7

                                     Выполнил :

Проверил : ассистент каф. ИСЭ

Барнаул 2009

Содержание

1 Постановка задачи………………………………………………….……………..3

2 Описание алгоритма……………………………………………….…………….. 3

3 Описание программы……………………………….…………………………….3

Приложение А Текст программы…………………………………………….…….5

Приложение Б Тест..…………………………………………………………….…..6

1.  Постановка задачи

Из множества целых чисел 1..100 выделить множество чисел, на которые делится без остатка введенное с клавиатуры число. Вывести это множество на экран.

2.  Описание алгоритма

Структурная схема алгоритма представлена на рисунке 1.

Текст программы представлен в приложении А.

Тестовый пример представлен в приложении Б.

3. Описание программы

В программе используются следующие переменные:

                                                                              true

                                                                                                           true

	Рисунок 1 – структурная схема алгоритма

Приложение А

Текст программы

Uses Crt;

var Int,{введенное с клавиатуры число}

i,{Счетчик цикла}

MH:integer; {мощность множества}

A:set of 1..100; {множество чисел от 1 до 100}

begin

ClrScr;  {чистим экран}

writeln('Введите число:');  {Вводим число}

read(Int);                  {Считываем число в переменную Int}

MH:=0;                      {мощность множества равна 0}

for i:=1 to 100 do          {Формируем множество A}

include(A,i);

writeln;

writeln('Множество содержащее числа, которые делятся на введенное с клавиатуры число без остатка:');

for i:=1 to 100 do         {Рассматриваем числа от 1 до 100}

if i in A then            {Если число содержится в множестве A}

if i mod Int = 0 then   {Проверяем делится ли оно без остатка на }

begin                 {введенное с клавиатуры число}

write(i,' ');        {Делится, значит выводим}

MH:=MH+1;            {считаем мощность}

end;

writeln;

writeln('Мощность множества:',MH); {выводим мощность на экран}

end.

Приложение Б

Тест

Введите число:                                                            

17

Множество содержащее числа, которые делятся на введенное с клавиатуры число без остатка:

17 34 51 68 85

Мощность множества:5

Введите число:                                                            

2

Множество содержащее числа, которые делятся на введенное с клавиатуры число без остатка:

2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56

58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100

Мощность множества:50