Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...
Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...
Топ:
История развития методов оптимизации: теорема Куна-Таккера, метод Лагранжа, роль выпуклости в оптимизации...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Комплексной системы оценки состояния охраны труда на производственном объекте (КСОТ-П): Цели и задачи Комплексной системы оценки состояния охраны труда и определению факторов рисков по охране труда...
Интересное:
Подходы к решению темы фильма: Существует три основных типа исторического фильма, имеющих между собой много общего...
Финансовый рынок и его значение в управлении денежными потоками на современном этапе: любому предприятию для расширения производства и увеличения прибыли нужны...
Берегоукрепление оползневых склонов: На прибрежных склонах основной причиной развития оползневых процессов является подмыв водами рек естественных склонов...
Дисциплины:
2017-12-21 | 138 |
5.00
из
|
Заказать работу |
|
|
Спецификация
1. Назначение: вычисление множеств наличных карандашей, отсутствующих карандашей, дублирующих карандашей (все множества типа tkorobka).
2. Имя: resh
3. Вид: процедура
4. Перечень параметров
Таблица 20.5. Перечень параметров
Статус | Назначение | Имя | Тип | Вид |
Вход | Первая коробка | n1 | tkorobka | параметр-константа |
Вход | Вторая коробка | n2 | tkorobka | параметр-константа |
Выход | Наличные карандаши | nal | tkorobka | параметр-значение |
Выход | Отсутствующие карандаши | otsut | tkorobka | параметр-значение |
Выход | Дублирующие карандаши | dubl | tkorobka | параметр-значение |
Метод решения
1) nal:=n1 n2;
2) otsut:={ krasn, gelt, zelen, sini, korichn, chern } \ nal;
3) dubl:=n1 n2.
Текст процедуры
procedure resh(const n1,n2:tkorobka;var nal, otsut, dubl:tkorobka);
begin
{имеющиеся карандаши}
nal:=n1+n2; {объединение двух множеств - коробок}
{отсутствующие карандаши}
otsut:=[krasn..chern]-nal;
{вычитание из множества возможных цветов множества наличных цветов}
{дублирующие карандаши}
dubl:=n1*n2
end;
Разработка программы
Метод решения
1) read_mn(n1);
2) read_mn(n2);
3) resh(n1,n2,nal,otsut,dubl);
4) write_mn(nal);
5) write_mn(otsut);
6) write_mn(dubl).
Информационная модель
Таблица 20.6. Информационная модель
Статус | Назначение | Имя | Тип |
Вход | Первая коробка | n1 | tkorobka |
Вход | Вторая коробка | n2 | tkorobka |
Выход | Наличные карандаши | nal | tkorobka |
Выход | Отсутствующие карандаши | otsut | tkorobka |
Выход | Дублирующие карандаши | dubl | tkorobka |
Текст программы
program color_pencil;
type
{названия возможных цветов карандашей}
tpalitra = (krasn, gelt, zelen, sini, korichn, chern);
tkorobka = set of tpalitra;{тип информационной модели коробки карандашей}
const
{массив с символьными названиями цветов карандашей}
colors:array[tpalitra]of string=('красный','желтый','зеленый','синий','коричневый','черный');
|
procedure read_mn(var n:tkorobka);
var i:tpalitra;
otvet:char;
begin
n:=[];{коробка пуста - пустое множество}
{перебор возможных цветов}
for i:=krasn to chern do
begin
writeln('Есть ',colors[i],' карандаш? Ответьте: д/н');
readln(otvet);
if (otvet='Д')or(otvet='д')or(upcase(otvet)='L') then
begin
n:=n+[i];{добавление элемента в мнжество}
writeln(colors[i],' карандаш находится в коробке')
end
else writeln(colors[i],' карандаш отсутствует в коробке')
end
end;
procedure write_mn(const n:tkorobka);
var k:integer;
i:tpalitra;
begin
k:=0;
for i:=krasn to chern do
if i in n then
begin
if k<>0 then write(', ');
k:=k+1;
write(colors[i])
end;
if k=0 then writeln('нет карандашей')
else if k=1 then writeln(' карандаш')
else writeln(' карандаши')
end;
procedure resh(const n1,n2:tkorobka;var nal, otsut, dubl:tkorobka);
begin
{имеющиеся карандаши}
nal:=n1+n2; {объединение двух множеств - коробок}
{отсутствующие карандаши}
otsut:=[krasn..chern]-nal;
{вычитание из множества возможных цветов множества наличных цветов}
{дублирующие карандаши}
dubl:=n1*n2
end;
var n1,n2: tkorobka; {коробки с карандашами}
nal,otsut,dubl:tkorobka; {результаты вычислений: наличие, отсутствие, дубль}
begin
writeln('заполнение первой коробки');
read_mn(n1);
writeln('заполнение второй коробки');
read_mn(n2);
resh(n1,n2,nal,otsut,dubl);
writeln('Имеющиеся:');
write_mn(nal);
writeln('Отсутствующие:');
write_mn(otsut);
writeln('Дублирующие:');
write_mn(dubl)
end.
|
|
История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!