Ребята кому не трудно и у кого есть свободное время уделите пару минут по братски,очень нужна помощь, просто не особо разбираюсь в паскале !!! Зарание огромное спасибо !!!
Задачка:
A) Разработать модуль, содержащий указанные процедуры и функции. Написать тестирующую программу.
Составить подпрограмму-процедуру MASSHTAB отыскания масштаба графического изображе-ния функции f(x) на экране размером B единиц растра по формуле M=B/max f(x).
В основной программе использовать процедуру для отыскания масштаба функций x*sin(x) и tg(x), при |x|< 1.
Б) Составить подпрограмму, определяющую максимальный элемент под побочной диагональю матрицы N*N и использовать ее для матрицы, состоящей из случайных чисел.
Указание. Использовать нетипизированные параметры.
Функция для второго задания вот так будет выглядеть:
function get_max(var X; size: integer): integer;
function ix(i, j: integer): integer;
begin
result := pred(i) * size + j;
end;
type
arr = array[1 .. maxint div sizeof(integer)] of integer;
var
A: arr absolute X;
i, j, max: integer;
begin
max := A[ix(1, 1)];
for i := 1 to size do
for j := size - i + 1 to size do
if max < A[ix(i, j)] then max := A[ix(i, j)];
result := max;
end;
volvo прошу просщения я просто не особо разбираюсь !!! а это решение задачи 2 ?