Тема: Применение функций и процедур.

1. Разработать программу вычисления числа сочетаний из N по M по формуле

С = N! / ((N-M)! * M!) ,

используя в качестве функции программу вычисления факториала, рассмотренную (см.ЛР №2). В программе предусмотреть

· ввод исходных данных с клавиатуры и контроль корректности задания данных:

N>0, M >0, N>M.

· Расширение диапазона значений С до 1 млн.

· выполнение программы произвольное число раз с новыми значениями N,M, не выходя в режим редактирования (вставить в программу оператор цикла

REPEAT … UNTIL povtor = (‘N’) or povtor=‘n’);

· выдачу на монитор, кроме значения С, также и промежуточных результатов расчета N!, M!, (N-M)!.

2. Задается матрица A размерности 2xN произвольных чисел. Пара чисел А[1,i], A[2,i] определяет координаты точки i на плоскости, i=1..N. Точки попарно соединены между собой отрезками. Разработать программу, которая находит отрезок максимальной длины. В программе предусмотреть ввод числа N с клавиатуры, а задание элементов матрицы - по желанию пользователя: либо с клавиатуры, либо с помощью встроенного генератора случайных чисел (функция random(…)). Длина отрезка Rij между точками i, j вычисляется по формуле

Rij = (( A[1,i] – A[1,j])² + ( A[2,i] – A[2,j])²)^1/2.

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

Program Line_max;

Var N,i,j:byte;

L,max_L:real

A:array[1..15] of real;

povtor,rg:char;

Function FRij(x1,y1,x2,y2:real) of real;

Begin FRij: = sqrt(sqr(x2 – x1) + sqr(y2 – y1))

End;

Begin repeat

Write(‘Задай значение N>0: ’);readln(N);

Writeln(‘Задай режим ввода элементов массива:

writeln (‘ к – с клавиатуры’);

writeln (‘ г – с помощью генератора случайных чисел’);read(rg);

case rg of

‘к’,’К’: begin

for i:=1 to 2 do

for j:=1 to N do

begin write(‘Элемент ’,i,’,’,j,’= ‘);readln(A[i,j]);

end;

‘г’,’Г’:

max_L:=0;

For i:=1 to N-1 do

For j:=i+1 to N do

Begin L:=Rij(A[1,i],A[1,j],A[2,i],A[2,j]);

If L>max_L then

Begin max_L:=L;z1:=i;z2:=j

End;

End;

writeln(‘Максимальную длину L= ‘,max_L,

’ имеет отрезок между точками’,i,’ и ‘,j,‘ имеющими координаты ’,

A[1,i],’, ‘,A[1,j],’ и ‘,A[2,i],’, ‘,A[2,j]);

Writeln(‘Повторить ввод ? – Y/N: ’);readln(povtor)

Until (povtor=’n’) or (povtor=”N”)

Writeln(‘Press enter’);readln

End.