Практика по программированию - 2012 ПЗ - II курс

Занятие №3

Тема: Решение задач на составление программ разветвляющейся структуры. Решение уравнений и неравенств с использованием условного оператора. Лабораторная работа №3

Цель: формирование навыков и умений применения условных операторов для организации разветвлений в программах на языке Turbo Pascal.

Задание 1

1. Определить, может ли кирпич, имеющий форму прямоугольного параллелепипеда с ребрами a, b и c, пройти через прямоугольное отверстие со сторонами x и y.

2. Определить, находится ли точка M (a,b) внутри верхней части единичного круга с центром в начале координат.

3. Определить, имеет ли система

бесконечное множество решений.

4. Определить, принадлежит ли точка M (x,y) внутренней области треугольника с вершинами А(0,0), В(a,0) и C(0,b), где a и b – положительные числа.

5. Определить, является ли целое число N четным двухзначным числом.

6. Определить, имеется ли среди трех чисел a, b и с хотя бы одна пара равных между собой чисел.

7. Определить, является ли треугольник со сторонами a, b и с равнобедренным.

8. Определить, является ли треугольник со сторонами a, b и с равносторонним.

9. Определить, имеется ли среди трех чисел a, b и с хотя бы одна пара взаимно противоположных чисел.

10. Определить, является ли четырехугольник со сторонами a, b, c и d ромбом.

11. Определить, имеется ли среди целых чисел a, b и с хотя бы одно четное.

12. Подсчитать количество отрицательных чисел среди чисел m, n и p.

13. Найти действительные корни квадратного уравнения вида . (если действительных корней нет, то выдать соответствующее сообщение).

14. Определить и вывести на печать номер квадранта, в котором расположена точка М(x,y), x и y заданные вещественные числа.

15. Из величин, определяемых выражениями при заданном х, определить и вывести на экран дисплея минимальное значение.

16. Определить, какая из двух точек - или - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.

17. Определить, какая из двух фигур (круг или квадрат) имеет большую площадь. Известно, что сторона квадрата равна а, радиус круга r. Вывести на экран название и значение площади большей фигуры.

18. Определить, попадает ли точка М(X,Y) в круг радиусом r с центром в точке .

19. Проверить, можно ли из четырех данных отрезков составить параллелограмм.

Задание 2

Постановка задачи

1. Для задания записать выражение, зависящее от координат точки X1 и Y1 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для исследуемой точки вычислить полученное выражение.

2. Результаты всех вычислений вывести на печать.

Содержание отчета

1. Постановка задачи для конкретного варианта.

2. Описание используемых стандартных функций.

3. Текст программы.

4. Распечатка результатов выполнения программы.

Образец выполнения задания.

1. Записать выражение, зависящее от координат точки М(-0.8; 0.9) и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит.

Для исследуемой точки вычислить полученное выражение.

Y

-1 1 x

-1

program lab;

const x0=-0.8;

y0=0.9;

r=1;

var pro:boolean;

begin

pro:=(x0*x0+y0*y0<=r*r) and ((x0+1<=y0) or (abs(x0)-1>=y0));

writeln('Точка с координатами М(',x0:0:1,'.',y0:0:1,')');

if pro then writeln('Принадлежит заштрихованной области.')

else writeln('Не принадлежит заштрихованной области.');

end.