type Point=record x,y:real end; function Distance2(a,b:Point):real; < возвращает квадрат расстояния между точками >begin Distance2:=sqr(b.x-a.x)+sqr(b.y-a.y)end;function Max(p,q:real):real; < возвращает максимальное из p,q >begin if p>q then Max:=p else Max:=qend;procedure Vvod(var a:Point;n:integer); < процедура с изменяемым параметром a >begin Write(‘Введите координаты точки ‘,n,’: ‘); Readln(a.x,a.y)end;var a:array[1..3] of Point; d1,d2,d3:real; i:integer;begin for i:=1 to 3 do Vvod(a[i],i); d1:=Distance2(a[1],a[2]); d2:=Distance2(a[1],a[3]); d3:=Distance2(a[2],a[3]); if d1>d2 then if d1>d3 then Writeln(‘Максимальное расстояние 1-2’) else if d1=d3 then Writeln(‘Максимальное расстояние 1-2 и 2-3’) else Writeln(‘Максимальное расстояние 2-3’) else if d1=d2 then if d1>d3 then Writeln(‘Максимальное расстояние 1-2 и 1-3’) else if d1=d3 then Writeln(‘Расстояния между всеми точками одинаковы’) else Writeln(‘Максимальное расстояние 2-3’) else if d3>d2 then Writeln(‘Максимальное расстояние 2-3’) else if d3=d2 then Writeln(‘Максимальное расстояние 1-3 и 2-3’) else Writeln(‘Максимальное расстояние 1-3’);end.Тестовое решение:Введите координаты точки 1: -2 1Введите координаты точки 2: 4 5Введите координаты точки 3: 2 -2Максимальное расстояние 2-3
Лекции Хусаинов НШ — Подпрограммы
Источник: znanija.site
Для решения задачи сделать вариант программы с реализацией указанной подпрограммы в виде функции или в виде процедуры. Даны координаты трех точек определить между какими из пар точек самое большое расстояние используя подпрограмму вычисления длины отрезка между двумя точками
begin
for i:=1 to 3 do Vvod(a[i],i);
d1:=Distance2(a[1],a[2]);
d2:=Distance2(a[1],a[3]);
d3:=Distance2(a[2],a[3]);
if d1>d2 then
if d1>d3 then Writeln(Максимальное расстояние 1-2)
else
if d1=d3 then Writeln(Максимальное расстояние 1-2 и 2-3)
else Writeln(Максимальное расстояние 2-3)
else
if d1=d2 then
if d1>d3 then Writeln(Максимальное расстояние 1-2 и 1-3)
else
if d1=d3 then Writeln(Расстояния между всеми точками одинаковы)
else Writeln(Максимальное расстояние 2-3)
else
if d3>d2 then Writeln(Максимальное расстояние 2-3)
else
if d3=d2 then Writeln(Максимальное расстояние 1-3 и 2-3)
else Writeln(Максимальное расстояние 1-3);
end.
Тестовое решение:
Введите координаты точки 1: -2 1
Введите координаты точки 2: 4 5
Введите координаты точки 3: 2 -2
Максимальное расстояние 2-3
Источник: reshaika.com
Практическая работа №12 «Программирование с использованием подпрограмм»
41 Рекурсия в Python. Рекурсивная функция Часть 1
.
Использовать подпрограмму алгоритма Евклида для определения НОД.
2. Вычислить площадь правильного шестиугольника со стороной а, используя подпрограмму вычисления площади треугольника.
3. Даны числа X, Y, Z, Т — длины сторон четырехугольника. Вычислить его площадь, если угол между сторонами длиной X и Y — прямой. Использовать две подпрограммы для вычисления площадей: прямоугольного треугольника и прямоугольника.
Домашнее задание : §23, задание №6 письменно.
Список литературы:
1. Информатика: Базовый уровень: учебник для 10 класса / И.Г. Семакин, Е.К. Хеннер, Т.Ю. Шеина. – 3-е изд. – М.: БИНОМ. Лаборатория знаний, 2014. – 264 с.: ил.
Источник: znanio.ru