Контрольная на Turbo Pascal
3. type s= set of 0..255; Описать процедуру print(A), печатающую в убывающем порядке все элементы множества А, имеющего тип S. Программа: введите множество А (ноль используйте как прекращение ввода) и напечатайте его в убывающем порядке.
5. Даны две строки S1 и S2. Создать строку, состоящую из латинских букв, не принадлежащих какой-либо строке S1 и S2.
7. Дано натуральное число п. Сколько различных цифр встречается в его десятичной записи.
8(task5). type seria = file of integer;
Описать функцию prod(s) с вещественным значением, подсчитывающую произведение ненулевых элементов файла s.
Программа: введите файл s (последний элемент равен 0) и напечатайте значение функции prod(s).
9(task5). type seria = file of integer; var s:seria;
Описать функцию max(s), вычисляющую значение максимального элемента файла s.
Программа: введите файл s (последний элемент равен 0) и напечатайте значение функции max(s).
10(task6). Используя представление последовательности чисел в виде линейного списка, напишите программу, решающую задачу: "Объедините две упорядоченные последовательности в одну упорядоченную последовательность (сортировка слиянием)".
Il(task6). Используя представление последовательности чисел в виде линейного списка, напишите программу, сортировки этой последовательности при помощи алгоритма простого обмена.
12(task7). Построить лемнискату-кривую, уравнение которой в полярных координатах го = a sqrt(2 cos(2fi)) а>0