Unit F_samar

Classes

TFSamarDlg -

Functions

Types

FSamar
TSamar

Constants

elSamar
titik

Variables

a
b
c
d
DErrorDaya
ErrorDaya
FileFS
FSamarDlg
indekSamar
m1
m2
m3
Maksimum1
Maksimum2
Maksimum3
Minimum1
Minimum2
Minimum3
Reaktivitas


Functions


Types


FSamar = record
a : real;
b : real;
c : real;
d : real;
end;

TSamar = (NB, NM, NS, ZE, PS, PM, PB);
@1996 by Muhammad Lulud K.

Constants

elSamar = ('NB', 'NM', 'NS', 'ZE', 'PS', 'PM', 'PB')

titik = ('a','b','c','d')


Variables

a : Longint

b : Longint

c : Longint

d : Longint

DErrorDaya : Array[1..7] of FSamar

ErrorDaya : Array[1..7] of FSamar

FileFS : string

FSamarDlg : TFSamarDlg

Public declarations

indekSamar : TSamar

m1 : Array [1..7,1..4] of real

m2 : Array [1..7,1..4] of real

m3 : Array [1..7,1..4] of real

Maksimum1 : Real

Maksimum2 : Real

Maksimum3 : Real

Minimum1 : Real

Minimum2 : Real

Minimum3 : Real

Reaktivitas : Array[1..7] of FSamar