Курсовая работа: Расчетная методика проектирования программного комплекса

var

i, NumInt: Integer;

begin

for i := 1 to CountInterv do

MasInt[kolvo, i] := 0;

for i := 1 to N do

begin

NumInt := Trunc((arrReal[i] - MMin)/dx) + 1;

MasInt[kolvo, NumInt] := MasInt[kolvo, NumInt] + 1;

end;

end;

end.

Приложение Б (Модуль 1)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ImgList, Menus, StdCtrls, ExtCtrls, ExtDlgs, ComCtrls, Math;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;