Всем привет, я учусь в колледже задали такое задание со скринами (разработка в Visio): Представьте, что Вы работаете на большой радиостанции и хотите привести в порядок
коллекцию компакт-дисков, которые хранятся в специальных больших пронумерованных
коробках, у которых имеются пронумерованные отделения (так что 12-34 означает 34
диск из 12 коробки). Иногда требуется найти конкретного исполнителя, иногда -
подобрать диски по стилю (джаз, рок, и т.п.), году выпуска, иногда - найти диски,
содержащие конкретное произведение. Кроме того, руководство радиостанции хочет
знать стоимость каждого диска, как часто в эфире звучат произведения того или иного
исполнителя или того или иного жанра.
При построении моделей выбранной предметной области рекомендуется проработать
соответствующие главы пособия, входящего в комплект учебно-методических материалов
по изучаемой дисциплине. Особое внимание следует уделить рассмотрению этапов
жизненного цикла разработки информационных систем, а также разделам, посвященным
моделированию компонент информационной системы и описанию CASE-средств. В
рамках работы для выбранной из предложенных вариантов предметной области следует
разработать следующие модели:
Построить функционально-структурную иерархию диаграмм бизнес-процессов
предметной области, используя MsVisio
Используя модель IDEF, построить иерархию диаграмм потока данных для проблемной
области
Создадим второго слона. Для этого надо выполнить все 4 команды:
1,2,3,4.
Второй слон стал на 80% меньше первого.
Создадим третьего слона.
Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон.
Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4.
Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз.
ответ: В) повторить (1,2,3,4; 6)
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.