Задания для выполнения

Пример 4. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.

Решение. Из условия ясно, сколько переменных – не менее пяти: a, b, c, x, y. Тип их – вещественный.

Самое главное в задаче – продумать условие, с помощью которого можно доказать возможность прохождения кирпича в отверстие. Так как кирпич просовывается так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия, то пара значений x и y должна совпадать хотя бы с одной из пар, выбранных из тройки a, b, c. Причем надо учесть то, что x и y могут совпасть, соответственно, например, с a и b, но не совпасть с b и a, то есть, нужно учитывать порядок в парах. Из последнего следует, что совпадение x и y с первой из пар нужно записывать так:

((x=a)and(y=b))or((x=b)and(y=a)).

Так как пар три – a и b, a и c, b и c, и достаточно хотя бы одного совпадения (следовательно, нужен оператор or), то полный вид проверяемого выражения суть:

(((x=a)and(y=b))or((x=b)and(y=a))) or

(((x=a)and(y=c))or((x=c)and(y=a))) or

(((x=b)and(y=c))or((x=c)and(y=b)))

Мы имеем право даже вычислить это выражение и присвоить его в какую-нибудь логическую переменную t, а затем использовать ее в операторах if или case. Теперь можно считать, что задача практически решена. Основной оператор (или пара операторов) может выглядеть так:

if

(((x=a)and(y=b))or((x=b)and(y=a))) or

(((x=a)and(y=c))or((x=c)and(y=a))) or

(((x=b)and(y=c))or((x=c)and(y=b)))

then

writeln(‘Кирпич пройдет’)

else

writeln(‘Кирпич не пройдет’);

или, используя переменную t:

t:=(((x=a)and(y=b))or((x=b)and(y=a))) or

(((x=a)and(y=c))or((x=c)and(y=a))) or

(((x=b)and(y=c))or((x=c)and(y=b)));

if

t

then

writeln(‘Кирпич пройдет’)

else

writeln(‘Кирпич не пройдет’);

Используя оператор case (нужно учесть, что t может принять только два значения: True или False):

t:=(((x=a)and(y=b))or((x=b)and(y=a))) or

(((x=a)and(y=c))or((x=c)and(y=a))) or

(((x=b)and(y=c))or((x=c)and(y=b)));

case t of

true: writeln(‘Кирпич пройдет’);

false: writeln(‘Кирпич не пройдет’);

end;

Блок-схема:

Рис. 8. Блок-схема к примеру 3

Текст программы с использованием оператора If (он выделен):

var a,b,c,x,y: real;

t: boolean;

begin

WriteLn(‘Введите линейные размеры кирпича a, b, c и отверстия x, y:’);

ReadLn(a,b,c,x,y);

t:=(((x=a)and(y=b))or((x=b)and(y=a))) or

(((x=a)and(y=c))or((x=c)and(y=a))) or

(((x=b)and(y=c))or((x=c)and(y=b)));

If t then writeln(‘Кирпич пройдет’)

else writeln(‘Кирпич не пройдет’);

WriteLn(‘Готово. Нажмите Enter…’);

ReadLn;

End.

Текст программы с использованием оператора Case (он выделен):

var a,b,c,x,y: real;

t: boolean;

begin

WriteLn(‘Введите линейные размеры кирпича a, b, c и отверстия x, y:’);

ReadLn(a,b,c,x,y);

t:=(((x=a)and(y=b))or((x=b)and(y=a))) or

(((x=a)and(y=c))or((x=c)and(y=a))) or

(((x=b)and(y=c))or((x=c)and(y=b)));

case t of

true: writeln(‘Кирпич пройдет’);

false: writeln(‘Кирпич не пройдет’);

end;

WriteLn(‘Готово. Нажмите Enter…’);

ReadLn;

end.

Пример 5. Классическая задача. Из двух данных чисел найти наибольшее и наименьшее.

Решение. Приведем сразу текст программы. Разберитесь в нем самостоятельно. Условный оператор выделен.

var x,y,max,min: real;

begin

WriteLn(‘Введите числа x, y:’);

ReadLn(x,y);

if x>=y then

begin

max:=x;

min:=y;

end

else

begin

max:=y;

min:=x;

end;

WriteLn(‘Максимум равен ’,max:10:5);

WriteLn(‘Минимум равен ’,min:10:5);

WriteLn(‘Готово. Нажмите Enter…’);

ReadLn;

end.

Пример 6. Вычислить значение функции:

Решение. Приведем сразу текст программы. Разберитесь в нем самостоятельно. Обратите внимание, как записаны степени и . Метод построения степени приведен в примере 1 Части 2.

var x,y,f: real;

begin

WriteLn(‘Введите числа x, y:’);

ReadLn(x,y);

if x<y then f:=cos(exp(y*ln(abs(x)))) else

{здесь производится анализ x и y,}

if x=y then f:=0 else {причем заметьте, что условие x>y}

f:= cos(exp(x*ln(abs(y)))); {явно не записывается, ведь

ясно, что если учтены случаи

x<y и x=y, то остался лишь

x>y}

WriteLn(‘Значение функции: ’,f:10:9);

WriteLn(‘Готово. Нажмите Enter…’);

ReadLn;

end.

Пример 7. (На использование оператора case). В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных: крысы, быка, тигра, кролика, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки, кабана. Написать программу, которая по номеру некоторого года печатает его название по старояпонскому календарю. (Справка: 1996 г. — год крысы — начало очередного цикла.)

Решение. Самым главным является ответ на вопрос – как вычислять порядковый номер года (от 1 до 12), если введен его номер (четырехзначное число). Очевидно, нужно использовать деление с остатком (mod) на 12. Тогда, поделив номер года на 12, мы получим соответствие между остатком и названием года: 1- год крысы, 2 – быка, 3 – тигра, 4 – кролика, 5 – дракона, 6 – змеи, 7 – лошади, 8 – овцы, 9 – обезьяны, 10 – курицы, 11 – собаки, 0 – кабана. Однако, учитывая справку, понимаем, что надо делить с остатком не просто введенный год, но разность между годом и 1995. Тогда году 1996-му будет сопоставлена как раз единица:

(1996-1995) mod 12 = 1,

и остальные годы, как думается, будут соотнесены с календарем верно. Но, проверив, например 1976 год (год дракона), получаем (1976-1995) mod 12 = -19 mod 12 = -7, что неверно, ибо должно получиться 5. Однако 5 = -7 + 12! Поэтому нужно учесть отрицательные результаты, прибавим к ним 12! В итоге получим:

var n:integer;

begin

write('Введите ваш год рождения: ');

readln(n);

n:=(n-1995) mod 12; {получение остатка от деления}

if n<0 then n:=12+n; {учет отрицательных результатов}

case n of {начало оператора case}

1: writeln('Вы родились в год крысы!');

2: writeln('Вы родились в год быка!');

3: writeln('Вы родились в год тигра!');

4: writeln('Вы родились в год кролика!');

5: writeln('Вы родились в год дракона!');

6: writeln('Вы родились в год змеи!');

7: writeln('Вы родились в год лошади!');

8: writeln('Вы родились в год овцы!');

9: writeln('Вы родились в год обезьяны!');

10: writeln('Вы родились в год курицы!');

11: writeln('Вы родились в год собаки!');

0: writeln('Вы родились в год кабана!');

else

writeln('Что-то не так!');{учет (невероятной)

возможности нереальных

результатов}

end; {конец оператора case}

readln;

end.

Задачи, решаемые с помощью оператора if

1. Вычислить значение функции:

2. Вычислить значение функции:

3. Вычислить значение функции:

4. Вычислить значение функции:

5. Вычислить значение функции:

6. Вычислить значение функции:

7. Вычислить значение функции:

8. Вычислить значение функции:

9. Вычислить значение функции:

10. Вычислить значение функции:

11. Вычислить значение функции:

12. Вычислить значение функции:

13. Вычислить значение функции:

14. Вычислить значение функции:

15. Вычислить значение функции:

16. Вычислить значение функции:

17. Вычислить значение функции:

18. Вычислить значение функции:

19. Вычислить значение функции:

20. Вычислить значение функции:

21. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).

22. Из трех данных чисел выбрать наименьшее.

23. Из трех данных чисел выбрать наибольшее.

24. Из трех данных чисел выбрать наименьшее и наибольшее.

25. Перераспределить значения переменных X и Y так, чтобы в X оказалось меньшее из этих значений, а в Y — большее.

26. Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по возрастанию.

27. Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по убыванию.

28. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения.

29. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.

30. Даны три переменные: X, Y, Z. Если их значения упорядочены по убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное.

31. Даны три переменные: X, Y, Z. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное.

32. Даны целочисленные координаты точки на плоскости. Если точка не лежит на координатных осях, то вывести 0. Если точка совпадает с началом координат, то вывести 1. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 2 или 3.

33. Даны вещественные координаты точки, не лежащей на координатных осях OX и OY. Вывести номер координатной четверти, в которой находится данная точка.

34. На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A.

35. Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Вывести порядковый номер этого числа.

36. Дан номер некоторого года (положительное целое число). Вывести соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год.

37. Рис расфасован в два пакета. Масса первого – m кг., второго – n кг. Составить программу, определяющую массу более тяжелого пакета и выводящую сообщение, в котором бы фигурировала эта масса и номер пакета – первый или второй.

38. Определить количество четных среди чисел a, b, c.

39. Дано целое число, лежащее в диапазоне от –999 до 999. Вывести строку — словесное описание данного числа вида "отрицательное двузначное число", "нулевое число", "положительное однозначное число" и т.д.

40. Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку — словесное описание данного числа вида "четное двузначное число", "нечетное четырехзначное число" и т.д.

41. Составить программу, которая по введенному с клавиатуры году возвращает сообщение, високосный это год или нет. Високосным считается год, делящийся на 4, за исключением тех лет, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются).

42. Составить программу, которая по введенному вещественному значению x возвращает число 1, если x находится между четным и нечетным числами и –1, если x находится между нечетным и четным числами.

43. Составить программу, которая по заданному целому числу типа Word возвращает текстовое сообщение, в котором говорится о количестве цифр числа. Например, если x = 540, то программа выводит сообщение «Число 540 – трехзначное».

44. Составить программу, которая по заданному целому числу типа Integer возвращает текстовое сообщение, в котором говорится о знаке и количестве цифр числа. Например, если x = –540, то программа выводит сообщение «Число –540 – отрицательное и трехзначное».

45. Дан номер некоторого года (положительное целое число типа Word). Вывести соответствующий ему номер столетия. К примеру, 1901 год относится к 20 столетию, 1900 – к 19 столетию.

46. Пользователь вводит с клавиатуры три символа, два из которых одинаковы, а один отличен от них. Вывести на экран сообщение, какие порядковые номера соответствуют одинаковым символам, а какие – отличающемуся от них символу. К примеру, на введенные символы «ф», «ц», «ф» программа должна вывести сообщение «Одинаковы первый и третий символы, а второй отличается от них».

47. Составить программу, которая полностью определяет положение точки на координатной плоскости, то есть, выводит сообщения типа «Точка в первой четверти», «Точка на оси OX», и т.п.

48. Точки A, B, С заданы парами координат (x₁, y₁), (x₂, y₂) и (x₃, y₃) соответственно. Вывести на экран сообщение о том, лежат ли они на одной прямой или нет.

49. Пользователь вводит с клавиатуры координаты двух точек (x₁, y₁), (x₂, y₂) и коэффициенты a, b, c общего уравнения некоторой прямой. Вывести на экран одно из сообщений: «Точки лежат на прямой», «Первая точка на прямой, а вторая – нет», «Вторая точка на прямой, а первая – нет», «Точки в разных полуплоскостях относительно прямой», «Точки в одной полуплоскости относительно прямой».

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

51. Пользователь вводит с клавиатуры координаты трех пространственных векторов. Программа выводит сообщение о том, компланарны ли векторы или нет.

52. Пользователь вводит с клавиатуры координаты двух точек (x₁, y₁), (x₂, y₂). Программа выводит на экран сообщение о том, лежат ли точки в одной четверти или нет.

53. Точки A, B, С заданы парами координат (x₁, y₁), (x₂, y₂) и (x₃, y₃) соответственно. Вывести на экран сообщение о том, что данные точки являются вершинами невырожденного треугольника.

54. Составить программу, которая полностью описывает решение системы , то есть, определяет количество корней и в случае единственности решения выводит это решение на экран.

55. Составить программу, которая по заданным коэффициентам a, b, c полностью описывает множество точек пересечения параболы и осей координат и выводит на экран сообщение, подобное этим: «Парабола пересекается с осью OX в точках …, а с осью OY – в точке …» или «Парабола не пересекается с осью OX, а с осью OY – пересекается в точке …» и т.п.

56. Написать программу нахождения суммы большего и меньшего из трех чисел.

57. Даны три точки (x₁, y₁), (x₂, y₂) и (x₃, y₃). Определить, лежат ли они на одной прямой.

58. Написать программу, имитирующую ввод пароля (задать в программе строку, которая будет паролем, и если пользователь вводит не эту строку, то вывести сообщение «Пароль не верен», в противном случае вывести строку «Доступ разрешен»).

59. Составить программу, реализующую эпизод применения компьютера в магазине. Компьютер, зная стоимость покупки, анализирует сумму денег, внесенную покупателем: если сдачи не требуется, печатает на экране «спасибо»; если денег внесено больше, чем необходимо, то печатает «возьмите сдачу» и указывает сумму сдачи; если денег недостаточно, то печатает сообщение об этом и указывает размер недостающей суммы.

60. В ЭВМ поступают результаты соревнований по плаванию для трех спортсменов. Составить программу, которая выбирает наилучший результат и выводит его на экран с сообщением, что это результат победителя заплыва.

Задачи, решаемые с помощью оператора case

61. Дан номер месяца (1 — январь, 2 — февраль, ... ). Вывести название соответствующего времени года ("зима", "весна" и т.д.). Предусмотрите возможность неверного ввода.

62. Дан номер месяца (1 — январь, 2 — февраль, ... ). Вывести число дней в этом месяце для не високосного года. Предусмотрите возможность неверного ввода.

63. Дан номер месяца (1 — январь, 2 — февраль, ... ).. Вывести на экран строку, отображающую название соответствующего месяца. Предусмотрите возможность неверного ввода.

64. Дан номер месяца (1 — январь, 2 — февраль, ... ).. Вывести на экран строку, отображающую название следующего месяца. Предусмотрите возможность неверного ввода.

65. Дан номер месяца (1 — январь, 2 — февраль, ... ).. Вывести на экран строку, отображающую название предыдущего месяца. Предусмотрите возможность неверного ввода.

66. Дан номер дня недели (1 — понедельник, 2 — вторник, ... ).. Вывести на экран строку, отображающую название соответствующего дня недели. Предусмотрите возможность неверного ввода.

67. Дан номер дня недели (1 — понедельник, 2 — вторник, ... ).. Вывести на экран строку, отображающую название следующего дня недели. Предусмотрите возможность неверного ввода.

68. Дан номер дня недели (1 — понедельник, 2 — вторник, ... ).. Вывести на экран строку, отображающую название предыдущего дня недели. Предусмотрите возможность неверного ввода.

69. Дано целое число в диапазоне 0 – 9. Вывести строку — соответствующее название на русском языке (0 — "ноль", 1 — "один", 2 — "два", ...).

70. Дано целое число в диапазоне 1 – 5. Вывести строку — словесное описание соответствующей оценки (1 — "плохо", 2 — "неудовлетворительно", 3 — "удовлетворительно", 4 — "хорошо", 5 — "отлично").

71. Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия и два числа A и B (В не равно нулю). Выполнить над числами указанное выше действие и вывести результат.

72. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины и длина отрезка L в этих единицах (вещественное число). Вывести длину данного отрезка в метрах.

73. Единицы массы пронумерованы следующим образом: 1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер. Дан номер единицы массы и масса тела M в этих единицах (вещественное число). Вывести массу данного тела в килограммах.

74. Единицы объема пронумерованы следующим образом: 1 — литр, 2 — миллилитр, 3 — декалитр, 4 — кубометр. Дан номер единицы объема и объем тела V в этих единицах (вещественное число). Вывести объем данного тела в литрах.

75. Нумерация туземцев. На некотором острове туземцы обозначают числа так: 0 – «ничто», 1 – «один», 2 – «два», 3 – «три», для чисел, больших трех есть единое обозначение «много». Вывести обозначение целого числа, вводимого пользователем, на языке туземцев.

76. Тригонометрические функции пронумерованы следующим образом: 1 – синус, 2 – косинус, 3 – тангенс, 4 – котангенс. Пользователь вводит с клавиатуры номер функции n и аргумент X. Вывести на дисплей результат вычисления соответствующей тригонометрической функции от X.

77. Гиперболические функции пронумерованы следующим образом: 1 – sh(X), 2 – ch(X), 3 – th(X), 4 – cth(X). Пользователь вводит с клавиатуры номер функции n и аргумент X. Вывести на дисплей результат вычисления соответствующей гиперболической функции от X.

78. Пользователь вводит с клавиатуры двузначное число, не меньшее 20. Вывести его прочтение на экран. Например, если введено число 35, то на экран выводится строка «тридцать пять».

79. Перевод в римскую нумерацию. Пользователь вводит число из диапазона от 1 до 10. Компьютер выводит на экран это же число, но в римской нумерации.

80. Дано целое число в диапазоне 0 – 9. Вывести строку — название соответствующей цифры на английском языке (0 — "zero", 1 — "one", 2 — "two", 3 — "three", 4 — "four", 5 — "five", 6 — "six", 7 — "seven", 8 — "eight", 9 — "nine").

Дополнительные задачи к разделу (на использование оператора if)

81. Пользователь вводит с клавиатуры три вещественных числа a, b, c. Подсчитать, сколько среди них целых чисел.

82. Пользователь вводит с клавиатуры три вещественных числа a, b, c. Подсчитать, сколько среди них дробных чисел.

83. Пользователь вводит с клавиатуры три вещественных числа a, b, c. Подсчитать, сколько среди них положительных чисел.

84. Пользователь вводит с клавиатуры три вещественных числа a, b, c. Подсчитать, сколько среди них отрицательных чисел.

85. Пользователь вводит с клавиатуры три вещественных числа a, b, c. Подсчитать, сколько среди них нулей.

86. Пользователь вводит с клавиатуры три вещественных числа a, b, c. Подсчитать, сколько среди них ненулевых чисел.

87. Пользователь вводит с клавиатуры четыре целых числа: a, b, c и d. Определить, делителем каких из чисел a, b, c является число d.

88. Пользователь вводит с клавиатуры четыре целых числа: a, b, c и d. Определить, какие из чисел a, b, c не делятся на d.

89. Пользователь вводит с клавиатуры четыре целых числа: a, b, c и d. Определить, какие из чисел a, b, c больше d.

90. Пользователь вводит с клавиатуры четыре целых числа: a, b, c и d. Определить, какие из чисел a, b, c меньше d.

91. Пользователь вводит с клавиатуры целое трехзначное число n. Определить, на каком месте находится наибольшая из его цифр.

92. Пользователь вводит с клавиатуры целое трехзначное число n. Определить, на каком месте находится наименьшая из его цифр.

При решении задач 3.93-3.97 используйте следующую информацию: процедура Randomize выполняет перезапуск генератора случайных чисел, она выполняется один раз в начале программы. Функция Random без параметров возвращает случайное число из диапазона от 0 до 1, а функция Random(n), где n – целое, возвращает случайное целое число из диапазона от 0 до n – 1.

93. С помощью функций Randomize и Random получить случайное число из диапазона [0; 1) и определить, меньше ли оно, чем 0,5.

94. С помощью функций Randomize и Random получить случайное число из диапазона [0; 1) и определить, больше ли оно, чем 0,5.

95. С помощью функций Randomize и Random получить целое случайное число из диапазона [0; 10] и определить, меньше ли оно, чем 5.

96. С помощью функций Randomize и Random получить целое случайное число из диапазона [0; 10] и определить, больше ли оно, чем 5.

97. Задача-прогноз. Пользователь вводит с клавиатуры некоторое целое число из диапазона [0; 5]. С помощью функций Randomize и Random компьютер генерирует целое случайное число из этого же диапазона и проверяет, угадал ли пользователь это число.

98. Пользователь вводит с клавиатуры одну из строк: ‘червы’, ‘бубны’, ‘трефы’, ‘пики’. Компьютер выводит на экран символ соответствующей масти (♥ ♦ ♣ ♠). Коды символов мастей принимают значения от 3 до 6. Для получения символа по заданному коду используйте функцию chr(x).

99. Пользователь вводит с клавиатуры одну из строк: ‘вверх’, ‘вниз’, ‘вправо’, ‘влево’. Компьютер выводит на экран соответствующую стрелочку (↑ ↓ → ←). Коды стрелок принимают значения от 24 до 27. Для получения символа по заданному коду используйте функцию chr(x).

100. Пользователь вводит с клавиатуры одну из строк: ‘мужчина’, ‘женщина’. Компьютер выводит на экран соответствующий символ (♂ ♀). Коды данных символов принимают значения 11 и 12. Для получения символа по заданному коду используйте функцию chr(x).

При решении задач 3.101-3.106 используйте следующую информацию: коды цифр принимают значения от 48 до 58, латинских прописных букв – от 65 до 90, латинских строчных букв – от 97 до 122, прописных букв кириллицы – от 128 до 159, строчных букв кириллицы – от 160 до 175 и от 224 до 239, буква Ё имеет код 240, буква ё – 241. Для получения кода по заданному символу используйте функцию ord(x).

101. Пользователь вводит с клавиатуры некоторый символ (используйте тип char). Определить, является ли этот символ цифрой.

102. Пользователь вводит с клавиатуры некоторый символ (используйте тип char). Определить, является ли этот символ прописной латинской буквой.

103. Пользователь вводит с клавиатуры некоторый символ (используйте тип char). Определить, является ли этот символ строчной латинской буквой.

104. Пользователь вводит с клавиатуры некоторый символ (используйте тип char). Определить, является ли этот символ прописной буквой кириллицы.

105. Пользователь вводит с клавиатуры некоторый символ (используйте тип char). Определить, является ли этот символ строчной буквой кириллицы.

106. Составить программу, определяющую результат гадания на ромашке (любит, не любит, плюнет, поцелует), взяв за исходное данное число лепестков n.

107. Точки A, B, С, D заданы парами координат (x₁, y₁), (x₂, y₂), (x₃, y₃), (x₄, y₄) соответственно. Вывести на экран сообщение о том, что данные точки являются вершинами параллелограмма ABCD.

108. Точки A, B, С, D заданы парами координат (x₁, y₁), (x₂, y₂), (x₃, y₃), (x₄, y₄) соответственно. Вывести на экран сообщение о том, что данные точки являются вершинами ромба ABCD.

109. Точки A, B, С, D заданы парами координат (x₁, y₁), (x₂, y₂), (x₃, y₃), (x₄, y₄) соответственно. Вывести на экран сообщение о том, что данные точки являются вершинами прямоугольника ABCD.

110. Точки A, B, С, D заданы парами координат (x₁, y₁), (x₂, y₂), (x₃, y₃), (x₄, y₄) соответственно. Вывести на экран сообщение о том, что данные точки являются вершинами трапеции ABCD с основаниями AB и CD.

111. Две прямые заданы уравнениями и (подумайте, какие параметры задает пользователь). Определить взаимное расположение прямых (совпадают, пересекаются, параллельны).

112. Две прямые заданы уравнениями и (подумайте, какие параметры задает пользователь). Определить взаимное расположение прямых (совпадают, пересекаются, параллельны).

113. Окружность и прямая заданы уравнениями и (подумайте, какие параметры задает пользователь). Определить взаимное расположение фигур (пересекаются, касаются, не пересекаются).

114. Точки A, B, С заданы парами координат (x₁, y₁), (x₂, y₂) и (x₃, y₃) соответственно. Проверить, является ли фигура ABC правильным треугольником.

115. Точки A, B, С заданы парами координат (x₁, y₁), (x₂, y₂) и (x₃, y₃) соответственно. Проверить, является ли фигура ABC прямоугольным треугольником.

116. Точки A, B, С заданы парами координат (x₁, y₁), (x₂, y₂) и (x₃, y₃) соответственно. Проверить, является ли фигура ABC остроугольным треугольником.

117. Точки A, B, С заданы парами координат (x₁, y₁), (x₂, y₂) и (x₃, y₃) соответственно. Проверить, является ли фигура ABC тупоугольным треугольником.

118. С помощью функций Randomize и Random получить три случайных числа a, b, c из диапазона [−10; 10] (используйте выражение random(21)-10) и определить, положительно ли выражение a + b + c.

119. С помощью функций Randomize и Random получить три случайных числа a, b, c из диапазона [−10; 10] (используйте выражение random(21)-10) и определить, положительно ли выражение a b c.

120. В начале погони между волком и зайцем было расстояние s (м). Приняв допущение, что животные движутся равномерно и прямолинейно, определить, нагонит ли волк зайца при заданных скоростях v₁ (м/c) и v₂ (м/c) соответственно (v₁ > v₂) за время t (c).