Множества и записи

Часть VII

1. Какие из следующих конструкций языка Turbo Pascal являются множествами, а какие нет и почему:

а) [ 9, 6, 3, 0 ];

б) [ 2, sqrt(9) ];

в) [ 2 ..3, 5, 7 ];

г) [ ‘=’, ‘>=’, ‘>’ ];

д) [1..15, 4..18 ];

е) [ [], [5] ];

ж) [ ‘*’, ‘*’ ];

з) [ 0..0 ];

и) [ true ..false ].

2. Составить программу выделения из множества целых чисел от 1 до 30 следующих множеств:

а) множества чисел, кратных 2;

б) множества чисел, кратных 3;

в) множества чисел, кратных 6;

г) множества чисел, кратных 2 или 3;

д) в заданном множестве удалить все числа, кратные 2.

3. «Мешанина». Если взять то общее, что есть у боба с ложкой, добавить кота и поместить в тепло, то получится муравей. Так ли это? Состоит ли муравей из кота?

4. Дано натуральное N . Составить программу, печатающую все цифры, не входящие в десятичную запись данного натурального числа в порядке возрастания.

5. «Решето Эратосфена». Составить программу, реализующую следующий алгоритм поиска простых чисел: выписываются подряд все целые числа от 2 до N . Подчёркивается число 2 – простое, а все следующие за ним и кратные 2 зачёркиваются; первое из оставшихся теперь число 3. Затем подчёркивается число 3 – простое, а все следующие за ним и кратные 3 зачёркиваются; первое из оставшихся теперь число 5. Повторяя те же действия с числом 5, получаем число 7 и т.д.

7. По каналу один за другим идут три теплохода: А, Б и В. Навстречу им показались ещё три теплохода, которые тоже идут один за другим: Г, Д и Е. Канал такой ширины, что два судна в нём разъехаться не могут, но в канале с одной стороны есть залив, в котором может поместиться только один теплоход. Могут ли суда разъехаться так, чтобы продолжить свой путь по - прежнему, если за теплоходом В есть место для размещения двух теплоходов?

8. Автомобиль проехал три участка пути разной длины и с разными скоростями. Составьте алгоритм нахождения средней скорости автомобиля.

9. Даны длины сторон треугольника. Составьте алгоритм и программу определения полупериметра треугольника, его площади и радиуса вписанной окружности.

10. Найти длину окружности L, если известна площадь круга S.

11. Даны переменные а и b. Требуется обменять их значения: переменная а должна получить значение b, a b - значение а.

12. Вычислить среднее арифметическое переменных В, С и D.

Основные понятия языка Turbo Pascal. Арифметические выражения. Линейная структура

13. Записать в формате Turbo Pascal следующие выражения:

а) ;

б) ; в) .

13. При записи выражений в формате Turbo Pascal были допущены ошибки. Найдите их.

а) ; б) ; в) ; г) .

13. Возраст Коли – Х лет, а возраст Миши – Y лет. Найти их средний возраст, а также определить, на сколько отличается возраст каждого мальчика от среднего значения.

13. Галя бежит навстречу Вале со скоростью Vg км/час, а Валя идёт к Гале со скоростью Vy км/час. Определить, через какое время встретятся подруги, если дорога прямая, а начальное расстояние между ними было S км.

13. Известна стоимость 1 кг конфет, печенья и яблок. Найти стоимость всей покупки, если купили Х кг конфет, Y кг печенья и Z кг яблок.

13. Известна стоимость монитора, системного блока, клавиатуры, мыши, принтера. Сколько будут стоить 3 таких компьютера? N компьютеров?

13. Дама сдавала в багаж: диван, чемодан, саквояж, картину, корзину, картонку и маленькую собачонку. При регистрации в аэропорту каждая вещь была взвешена (вес каждой в квитанции указан). Бесплатный провоз – 20 кг багажа и 5 кг ручной клади. Определить, сколько придётся даме доплатить за провоз вещей, если за каждый лишний 1 кг багажа нужно платить N рублей, за 1 кг ручной клади – М рублей. Собачку в багажное отделение нельзя сдавать, так как там холодно.

13. Клиент внёс в банк R рублей. Каждый месяц эта сумма увеличивается на W процентов. Сколько будет у клиента денег через два месяца, три месяца, через полгода?

13. Известно значение температуры по шкале Цельсия. Найти соответствующие значения температуры по шкалам Фаренгейта и Кельвина. Известно, что для пересчёта по шкале Фаренгейта нужно исходное значение t⁰C умножить на 1,8 и прибавить 32, а по шкале Кельвина значение абсолютного нуля соответствует - 273,15⁰С.

13. После уроков 4 ученика решали и отлаживали задачи на компьютере. Первый полностью отладил задачу за N минут

11. Составить программу для определения стоимости телеграммы по её тексту (запросить стоимость одного слова в телеграмме и комиссионный сбор за телеграмму).

11. Составьте программу для определения:

а) является данная буква гласной, согласной или одной из букв й, ъ, ь;

б) обозначает ли данная согласная буква звонкий звук или глухой.

11. Составьте программу для проверки правописания приставок из- и ис- в словах русского языка.

11. Дан текстовый файл, содержащий строки. Найти количество строк, начинающихся и заканчивающихся одинаковыми символами.

11. Строка содержит только цифры. Удалить все стоящие впереди нули. Исходная строка: 000102001089, результат: 102001089.