tp_lab1

advertisement
Лабораторная работа №1
Линейные и разветвляющиеся алгоритмы
Цель работы: Познакомиться с интегрированной средой разработки Turbo Pascal. Изучить
структуру текста программы и базовые операторы языка Turbo Pascal.
Освоить
программирования простейших задач, реализуемых линейными и разветвляющимися
алгоритмами.
Задание 1
Даны x, y, z . Вычислить a, b, если:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Задание 2
1. Вычислить произведение высот треугольника со сторонами a, b, c.
2. Вычислить длину высоты, опущенную на гипотенузу прямоугольного треугольника с
катетами a и b.
3. Вычислить площадь поверхности и объем правильной пирамиды, в основании
которой квадрат со стороной а и высота h.
4. Написать программу, которая вводит два вещественных числа, вычисляет и печатает
коэффициенты приведенного квадратного уравнения, корнями которого являются эти
числа.
5. Треугольник задан координатами (x1, y1), (x2, y2), (x3, y3) своих вершин. Вычислить
радиус окружности, вписанной в треугольник.
6. Ромб задан координатами трех вершин (x1, y1), (x2, y2), (x3, y3). Вычислить площадь
и периметр ромба.
7. Вычислить время падения тела с высоты H с начальной скоростью V.
8. Вычислить площадь треугольника со сторонами k и прилежащими углами a и b.
9. Смешаны V1 литр воды температуры Т1 с V2 литрами воды температуры Т2.
Написать программу вычисления объема и температуры воды.
10. Треугольник задан координатами (x1, y1), (x2, y2), (x3, y3) своих вершин. Найти
периметр и площадь треугольника.
Задание 3
1. Составить программу для вычисления функции:
2. Найти max (a, b).
3. Дана точка М(x, y). Присвоить z = 1, если точка внутри эллипса
если точка вне эллипса.
4. Вычислить y(x), если y = x2 при x > 1 и y = x при x <= 1.
5. Вычислить:
и z = 0,
6. Даны два отрезка [a, b], [c, d] на прямой. Установить, имеют ли они общие точки или
нет.
7. Дана точка М(x, y). Присвоить z = 1, если точка принадлежит окружности с радиусом
R и центром в точке (a, b) и z = 0 в противном случае.
8. Вычислить функцию f(x), если f(x) = e-x при х >= 0 и f(x) = cos x при х < 0.
9. Составить программу для вычисления y = t2 - t -1, где
10. Составить программу решения уравнения
.
Задание 4
1. Даны уравнения прямых а1х+b1y=c1, a2x+b2y=c2, a3x+b3y=c3. Выяснить, какие из этих
прямых параллельны и указать, если таковых не имеется.
2. В какой четверти координатной плоскости находится точка с координатами x, y
(xy<>0).
3. Если сумма двух различных чисел меньше единицы, то наименьшее заменить
полусуммой, в противном случае меньшее заменить суммой.
4. Даны различные действительные числа x, y, z, d. Найти max(max(x, y), max(x, z),
max(z, d)).
5. Даны три действительных числа. Определить, что больше, сумма или произведение
этих чисел. Если сумма больше произведения на число меньшее единицы, то вывести
0, и противном случае вывести 1.
6. Найти значение z, если
7. Даны отрезки [a, b] и [c, d] и точка A с координатой х. Определить, принадлежит ли
данная точка одному из этих отрезков, обоим или лежит вне их.
8. Даны два действительных числа x и y. Если наименьшее из них отрицательно, то
заменить его нулем, в противном случае единицей.
9. Определить, существует ли треугольник со сторонами a, b, c, и если существует, то
является ли он равносторонним, равнобедренным или разносторонним.
10. Даны действительные числа х1, х2, х3, y1, y2, y3. Принадлежит ли начало координат
треугольнику с вершинами (x1, y1), (x2, y2), (x3, y3)?
Задание 5
1. Составить программу определения минимального элемента из трех элементов х1, х2,
х3.
2. Решить биквадратное уравнение.
3. Даны три числа a, b, c, удовлетворяющие аксиомам треугольника. Если треугольник
равносторонний , то найти его площадь. Если треугольник равнобедренный, то найти
периметр и угол между равными сторонами.
4. Даны два числа. Если они не равны, то найти их сумму и произведение. Если
произведение больше суммы, то определить на сколько.
5. Определить направление ветвей параболы y=ax2+by2+c. Найти точки пересечения
параболы с осью OX.
6. Даны три числа. Определить, существует ли треугольник со сторонами длиной a, b, c
и, если существует, то найти его параметр и площадь.
7. Вывести сообщение о количестве корней квадратного уравнения и найти эти корни.
8. Если w <> 0 и, при этом, w < 0.5, то поменять знак w, а если w = 0, присвоить w
единицу.
9. Найти значение х и у при заданных значениях a и b:
,
10. Определить параллельны ли прямые, заданные уравнениями у=к1x+b1 и y=k2x+b2.
Если они параллельны, то найти координаты точек пересечения с осью ОХ (к1, к2 <>
0).
Задание 6
1. Составить программу вычисления площадей различных геометрических фигур
2. Составить программу вычисления площадей различных геометрических фигур
3. Составить программу вычисления значения функции
4. Найти остаток от деления целой части значения функции z = ln(x2+ab) на 7 и, в
зависимости от его величины, напечатать сообщение об одном из дней недели,
пронумеровав их от 0 до 6.
5. Даны три числа а, b, с, удовлетворяющие аксиоме треугольника и число р.
Выполнить следующие действия: если р=1 - найти периметр треугольника; если р=2 найти площадь треугольника; если р=3 - найти угол а. Иначе напечатать слово
"треугольник".
6. Найти остаток от деления целого выражения а=(с+d)(2k-m) на 5 и вывести сообщение
о величине остатка. Если остаток равен 0, присвоить а значение целой части
выражения. При нечетном остатке напечатать "нечетное число", при четном - "четное
число"
7. Написать программу, которая по номеру машины выводит фамилию студента,
сидящего за ней.
8. Найти остаток от деления целой части выражения z = cos(x2+1) на 4 и, и зависимости
от его величины, напечатать сообщение об одном из времен года, пронумеровав их от
0 до 3.
9. Найти остаток от деления целого выражения c = k(a+b) на 4 и вывести сообщение о
величине остатка. Если остаток равен 0, то значение переменной оставить без
изменения, если 1 или 3 - уменьшить на величину остатка, если 2 - увеличить на
величину остатка.
10. По номеру дня недели (1,2,3,4,5,6,7) указать название этого дня. Указать рабочие и
выходные дни.
Download