Алгоритмы с
ветвлениями. Часть 6
Контроль знаний
Пример. Написать программу для решения геометрической задачи. Определить, является ли треугольник со сторонами a, b, c равнобедренным. Если "да", то вычислить его
периметр.
Этапы выполнения задания.
I.Определение исходных данных: переменные a, b, c.
II. Определение результатов: переменная р, в том случае если
треугольник равнобедренный или сообщение, что треугольник не
равнобедренный.
III. Алгоритм решения
задачи.
1. Ввод исходных данных
2. Проверка является ли треугольник
равнобедренным.
3 Если треугольник равнобедренный, то вычислим
его периметр р:=a+b+c, иначе выведем сообщение "треугольник не
равнобедренный" .
4. Вывод результата.
IV. Описание
переменных:
Все переменные, определенные для решения задачи, имеют тип
integer.
V. Программа:
Var
a,b,c,p: integer;
Begin
Write(‘введите
значения сторон треугольника
a,b,c:’);
Readln(a,b,c);
If
(a=b)
or (b=c)
then
Begin
p:=a+b+c;
Writeln(‘p=
’,p); End
Else
Writeln(‘треугольник
не равнобедренный’);
End.
Можешь
загрузить!
Пример
VI. Тестирование
программы:
1. Проверьте работу программы для следующих значений
Ввод
a,b,c |
Вывод |
4
5
6 |
треугольник не равнобедренный |
4
4
6 |
p= 13 |
2. Поэкспериментируйте с программой вводя различные значения.
Самостоятельная работа
Напишите программы для решения геометрических задач.
1. Определить, является ли треугольник со сторонами a, b, c равносторонним. Если "да", то вычислить его площадь.
2. Даны действительные положительные числа a, b, c, d. Выяснить можно ли построить четырехугольник с такими длинами сторон.
3. Даны действительные числа x1, y1, x2, y2, x3, y3, являющиеся координатами вершин треугольника. Принадлежит ли начало координат этому треугольнику?