Тема- Turbo Pscl Решение задач Цель работы- выработать практические навыки использования системы программиров
Работа добавлена на сайт samzan.net: 2015-07-05
Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
от 25%
Подписываем
договор
Практическая работа №
Тема: Turbo Pascal. Решение задач
Цель работы: выработать практические навыки использования системы программирования Pascal i, получить навыки на выполнение и исправлять программы на языке Паскаль, познакомиться с диагностическими сообщениями компилятора об ошибках на примере программ.
Решение задач с линейными алгоритмами.
Задание 1. Дана блок схема, составить программу на языке Паскаль.
Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2).
Задание по вариантам 2. Составить программу для решения следующей задачи:
- Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности.
- Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.
- Вычислить высоту треугольника, опущенную на сторону а, по известным значениям длин его сторон a, b, c.
- По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагонали.
Решение задач с
Разветляющим алгоритмы
Задание 3. Пример. Дано действительное x. Для функции f, график которой представлен на рисунке, вычислить f(x).
-
-
Математическая модель: функция вычисляется по следующей формуле:
Составим схему алгоритма, детализировав все блоки (рис. 2).
Задание по вариантам
- Составить программу, реализующую эпизод сказки: машина спрашивает, куда пойдет герой, и в зависимости от ответа (налево – (-1), прямо – 0, направо – 1), печатает, что произойдет с героем.
- Морской бой. Машина задумывает два числа от 0 до 9. Игрок пытается их угадать, вводя свои два числа. Если они совпали (в любом сочетании), то игрок выиграл.
- В Атлантическом океане терпит бедствие пассажирский теплоход «Посудина». Все пассажиры будут спасены, если на помощь успеют два судна. Судно продержится на плаву t часов. Скорость судов-спасателей 40 узлов. Составить программу, определяющую спасутся ли пассажиры. Известны расстояния от трех судов-спасателей до тонущего судна.
- Через старый мост движется поток автомашин. Одновременно на мосту могут находиться 3 машины. Если на мост въедут 3 легковых или 2 легковых и грузовик – мост выдержит. Если 2 грузовика и легковая или 3 грузовика – рухнет.
Решение задач с командой цикла.
Задание 4. Найти алгоритм решения задачи и реализовать его в виде Паскаль-программы.
Начальный вклад в банк составляет а рублей. Через сколько лет он станет больше b рублей? Каждый год вклад увеличивается на 3%.
Решение задач с Массивами.
Дана блок схема, Найти алгоритм решения задачи и реализовать его в виде Паскаль-программы.
.
Решить самостоятельно по вариантам
- В массиве а1, а2, ..., а50 определить количество нулей.
- В массиве d1, d2, …, d35 найти сумму чисел, расположенных на нечетных местах.
- В массиве с1, с2 , ..., с40 найти произведение отрицательных чисел.
- В массиве b1, b2, ..., b45 найти сумму отрицательных чисел.
- В массиве b1, b2, ..., b20 найдите количество "единиц".
- Из массива а1, а2 , ..., а30 найти произведение чисел, расположенных на нечетных местах.
- В массиве с1, с2 , ..., с40 найти сумму чисел больших единицы.
- В массиве чисел а1, а2 , ..., а50 найти количество чисел меньших единицы.
- В массиве с1, с2 , ..., с37 найти произведение чисел больших 2.
- В массиве а1, а2 , ..., а40 найти сумму чисел, расположенных на местах кратных 3.
- В массиве а1, а2 , ..., а50 найти произведение чисел меньших или равных 2.
- В массиве b1, b2, ..., b45 найти количество чисел равных 3,5.
- В массиве d1, d2, ..., d50 найти сумму чисел равных 4,7.
- В массиве b1, b2, ..., b30 найти произведение чисел больших или равных 5.
- В массиве с1, с2 , ..., с70 найти количество "нулей", стоящих на нечетных местах.
- В массиве b1, b2, ..., b65 найти сумму чисел больших или равных 5.