Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Создание модулей, процедурный тип, использовать нетипизированные параметры

Автор: Aspire 27.11.2006 23:48

Ребята кому не трудно и у кого есть свободное время уделите пару минут по братски,очень нужна помощь, просто не особо разбираюсь в паскале !!! Зарание огромное спасибо !!!

Задачка:

A) Разработать модуль, содержащий указанные процедуры и функции. Написать тестирующую программу.
Составить подпрограмму-процедуру MASSHTAB отыскания масштаба графического изображе-ния функции f(x) на экране размером B единиц растра по формуле M=B/max f(x).
В основной программе использовать процедуру для отыскания масштаба функций x*sin(x) и tg(x), при |x|< 1.
Б) Составить подпрограмму, определяющую максимальный элемент под побочной диагональю матрицы N*N и использовать ее для матрицы, состоящей из случайных чисел.

Указание. Использовать нетипизированные параметры.

Автор: volvo 28.11.2006 0:05

Функция для второго задания вот так будет выглядеть:

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;

Автор: Aspire 29.11.2006 2:19

volvo прошу просщения я просто не особо разбираюсь !!! а это решение задачи 2 ?