VPF::[Pascal] Создание модулей. Процедурный тип

blackandwhite

Дата 22.11.2006, 19:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

Требуеться помощь на тему : Создание модулей. Процедурный тип !!!

Задача:

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

Указание. Использовать нетипизированные параметры.
Зарание СПАСИБО !!!

blackandwhite

Дата 27.11.2006, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

если у кого есть идеики помогите пожулуичтО ?! smile

Alexeis

Дата 28.11.2006, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Модуль

Код


unit Mashtab;

interface

type
  tigonomfunct = function (x : real) : Real;

function MASSHTAB(var uB; ufunct : tigonomfunct) : Real;

implementation

function MASSHTAB(var uB; ufunct : tigonomfunct) : Real;
var
  i, max : Real;
  B : integer;
  afunct : tigonomfunct;

begin
  B      := integer(uB);
  afunct := tigonomfunct(ufunct);
  max := 0;
  i := -1;
  repeat
    i := i + 0.001;
    if max < Abs(afunct(i))
    then
      max := Abs(afunct(i));

  until (i + 0.001) > 1;

  MASSHTAB := B / max;
end;

end.

программа

Код


program Project2;

uses
  Mashtab;

function tg(x : real) : real;
begin
  tg := Sin(x) / Cos(x);
end;

function xsin(x : real) : real;
begin
  xsin := x * Sin(x);
end;

var
 size : Integer;

begin
  size := 1024;
  Writeln('M(x * Sin(x)) ', MASSHTAB(size, xsin) : 5 : 1);
  Writeln('M(tg(x)) '     , MASSHTAB(size, tg) : 5 : 1);
  Readln;
end.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »