1) Описать функцию для определения f(x,y) (вид функции для каждого варианта задания приведен в столбце №2 таблицы).
2) Задать конкретные значения s, t и вычислить c (формулы для определения a и b приведены в столбце №2 таблицы).
3) Описать рекурсивные функции для определения pi, hi. Задать значение z и вычислить c (формулы для определения рекурсивных функций и для определения с приведены в столбце №3 таблицы).
4) Задать три последовательности случайных чисел ni, mj, lk и произвести действия над каждым элементом этих последовательностей, используя процедуру (количество элементов последовательностей i, j, k и соответствующие действия для каждого варианта задания приведены в столбце №4 таблицы).
На экран вывести: значения переменных a, b, c, заданные и преобразованные последовательности
Вот здесь 2/3 сделанного
Program Lab8;
var
s,t,a,b,c,z:real;
Function F(x,y:real):real;
Begin
F:=((sqr(x)+2*y+3)/6);
end;
Function P(i:integer):real;
begin
If i=1 then P:=sin(0.5) else P:=z*sqr(p(i-1))+p(i-1)+2;
end;
Function H(i:integer):real;
begin
If i=1 then H:=cos(0.5) else H:=3*h(i-1)/(2*z);
end;
Begin
WriteLn ('BBeguTe s,t 4epe3 ENTER');
ReadLn (s,t);
a:=F(s,t);
b:=F(sqrt(s),sqrt(t));
WriteLn ('a= ',a:5:2);
WriteLn ('b= ',b:5:2);
ReadLn;
WriteLn ('BBeguTe z, please');
ReadLn (z);
c:=sqrt(abs(p(4)-h(6)));
WriteLn ('c= ',c:5:2);
ReadLn;
end.