Задание №1

Составить программу решения данной задачи в соответствии с номером своего варианта. Использовать данную функцию или процедуру в качестве фрагмента программы, организовать в программе обращение к ней, указав соответствующие фактические параметры при каждом вызове подпрограммы.

Вариант 1.

Составить программу вычисления наибольшего общего делителя трёх введённых чисел х, у, z, используя процедуру вычисления наибольшего общего делителя этих чисел.

Procedure NOD(a,b:integer; var k:integer);

Begin

While a<>b do

If a>b then a:=a-b else b:=b-a;

k:=a;

End;

Вариант 2.

Составить программу, которая определяет, являются ли три введённые числа х, у, z взаимно-простыми. Взаимно-простыми называются числа, наибольший общий делитель которых равен 1. Использовать функцию вычисления наибольшего общего делителя этих чисел.

Function NOD(a,b:integer):integer;

Begin

While a<>b do

If a>b then a:=a-b else b:=b-a;

NOD:=a;

End;

Задание №2

1. Составить программу вычисления значения выражения:

, используя функцию для вычисления значения .

2. Напишите программу вычисления выражения:

, где .

Вычисление значений х оформить в виде подпрограммы-функции.

Задание №3

1.Составить программу, которая вычисляет периметр треугольника, если заданы координаты вершин . Вычисление расстояния между двумя точками оформить в виде функции по известной формуле: .

2. Составить программу, которая находит наибольшую сторону треугольника, если заданы координаты вершин . Вычисление расстояния между двумя точками оформить в виде функции по известной формуле: .

katysha087    2   27.12.2020 22:46    10