151
OR (month(tanggal)=10 AND year(tanggal) = tahun)
IF bulan = 12 THEN
READ Jadwal Terbang.permintaan WHERE (month(tanggal)=9 AND
year(tanggal) = tahun) OR (month(tanggal)=10 AND year(tanggal) = tahun)
OR (month(tanggal)=11 AND year(tanggal) = tahun)
FOR k = 1 TO 7 DO
FOR i = 1 TO 12 DO
x = i
xx = i * i
xy = x * permintaan
Ex = Ex + x
Ey = Ey + permintaan
Exx = Exx + xx
Exy = Exy + xy
b = ((n*Exy)-(Ex*Ey))/((n*Exx)-(Ex*Ex))
a
=
((Ey/n))-(b*(Ex/n))
FOR j = 13 TO 16 DO
d = a + (b * j)
ratarata = ROUND(d/4)
OPEN file Biaya Operasi
READ Biaya Operasi WHERE asal = asal AND tujuan = tujuan
IF ratarata/kapasitas <= 1 THEN fp = 1
 |