Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу на паскале, рабочую. Техническое задание. Для множества А с количеством элементов N и множества В с количеством элементов М: 1) Проверить выполнение В subset А. 2) Построить А(знак пересечения)В. 3) Построить А(знак объединения)В. 4) Построить А(знак разности)В. 5) Построить любое разбиение множества А, состоящее из K подмножеств. Требования к реализации. 1)Обеспечить ввод с клавиатуры натурального значения N из интервала [6, 10] и натуральное значение M из интервала [4, 8], причём необходимо, чтобы M<=N. 2) Задать элементы множества A, B целыми случайными числами, сгенерированными на отрезке [0, N+5]. Внутри множества не должно присутствовать одинаковых элементов. 3) Вывести на экран множества A, B упорядочив их элементы по возрастанию. Предоставить возможность многократной генерации других множеств A, B. 4) Вывести на экран результаты решения задач 1-4, упорядочить элементы полученных множеств по возрастанию. 5) Обеспечить ввод с клавиатуры натурального значения K из интервала [2, N -2]. 6) Вывести K наборов элементов, составляющих подмножества разбиения множества A. 7) Предоставить возможность независимой корректировки каждого из вводимых с клавиатуры параметров.
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.