IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Создание модулей, процедурный тип, использовать нетипизированные параметры
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


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

Задачка:

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

Указание. Использовать нетипизированные параметры.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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

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;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


volvo прошу просщения я просто не особо разбираюсь !!! а это решение задачи 2 ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 11:41
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name