TubesDasPro/F4.pas at master · kevin2000141/TubesDasPro · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
// Nama File: F4.pas
// Deskripsi File: Unit prosedur stop simulasi untuk program utama Engi's Kitchen
// Tanggal terakhir diubah: 22/04/2018

unit F4;

interface
uses uDef, sysutils;

	{ Deklarasi Fungsi/Prosedur }

	procedure stopSimulasi(var FESimulasi: Asimulasi; NomorSim: Integer);
	{Prosedur yang menampilkan kondisi simulasi terakhir dan memberhentikan simulasi}
	{I.S.: FESimulasi dan NomorSim terdefinisi}
	{F.S.: Status simulasi [NomorSim] ditampilkan pada layar}

implementation

	{ Implementasi Fungsi/Prosedur }

	procedure stopSimulasi(var FESimulasi: Asimulasi; NomorSim: Integer);
	{Prosedur yang menampilkan kondisi simulasi terakhir dan memberhentikan simulasi}
	{I.S.: FESimulasi dan NomorSim terdefinisi}
	{F.S.: Status simulasi [NomorSim] ditampilkan pada layar}

	{KAMUS}

	{ALGORITMA}
	begin
		writeln ('Nomor Simulasi: ', FESimulasi[NomorSim].nomor);
		DefaultFormatSettings.ShortDateFormat := 'd/m/yyyy';
		DefaultFormatSettings.DateSeparator := '/';
		writeln ('Tanggal: ', FormatDateTime('ddddd',FESimulasi[NomorSim].tanggal)); {Penampilan tanggal menggunakan format d/m/yyyy}
		writeln ('Jumlah Hari Hidup: ', FESimulasi[NomorSim].tHariHidup);
		writeln ('Jumlah Energi: ', FESimulasi[NomorSim].tEnergi);
		writeln ('Kapasitas Maksimum Inventori: ', FESimulasi[NomorSim].maxInventori);
		writeln ('Total Bahan Mentah Dibeli: ', FESimulasi[NomorSim].tBMentahDibeli);
		writeln ('Total Bahan Olahan Dibuat: ', FESimulasi[NomorSim].tBOlahanDibuat);
		writeln ('Total Bahan Olahan Dijual: ', FESimulasi[NomorSim].tBOlahanDijual);
		writeln ('Total Resep Dijual: ', FESimulasi[NomorSim].tResepDijual);
		writeln ('Total Pemasukan: ', FESimulasi[NomorSim].tPemasukan);
		writeln ('Total Pengeluaran: ', FESimulasi[NomorSim].tPengeluaran);
		writeln ('Total Uang: ', FESimulasi[NomorSim].tUang);
	end;

end.