Program Hitung Untuk XE

1. Cobalah untuk membuat program XD yang mendeklarasikan variabel.
- Menu --> bertipe Integer
- A, B, Total --> bertipe real

Kemudian pada bagian pernyataan isilah;
- Menu Manghitung Rumus Matematika.
- Menu 1.Prnjumlahan.
- Menu 2.Perkalian.
- menu 3.Pengurangan.
- Menu 4.Pembagian.
- Menu 5.Keluar program.

Terakhir kali, tampilkan salah satu MENU yang dipilih.

Gunakanlah struktur program dibawah ini.

Program XE;
Uses Crt;
Var
Menu : integer;
-----------------------------
begin
Writeln ('Menu Menghitung Rumus Matematika');
Writeln ('Menu 1.Penjumlahan');
-----------------------------------
-----------------------------------
-----------------------------------
Writeln ('Menu 5. Program Keluar');
readln (menu);

Case menu of

1: Begin
Writeln ('Masukkan Nilai A');
Read (A);
--------------
end;

2: Begin
--------------
--------------
--------------
end;

3: Begin
--------------
--------------
--------------
end;

4.begin
--------------
--------------
--------------

5: Writeln ('Program keluar');
end;
end.