Gan tampilin dong coding program pascal dengan
dengan ketentuan : Program Terdiri dari 3 menu dengan prosedur
Menu 1. Bintang Berjalan Kekiri dan Kekanan
Menu 2. Program Conventer suhu,celcius ke fahrenheit dan sebaliknya,Panjang Km Ke M Ke Cm

Menu 3. Kalkulator
program Conveter ada 3 menu Celcius ke Fahrenheit,Km ke M ke Cm dan exit
kalkulatornya udah gan conventer sama animasi bintang berjalan aja yg belum
conventer sama kayak kalkulator bisa kembali ke menu sebelumya
mohon bantuannya gan,ane dah pusing nih,program conveter sama animasi doang belum gan
Nih coding punya ane gan :
Program gabungan;
uses crt;

Var
x, z, q : integer;
a , b, hasil : real;
jawab : char;

Procedure Menu3;
Begin
Writeln ('========== Menu =========');
Writeln (' 1. Bagi ');
Writeln (' 2. kali ');
Writeln (' 3. Tambah ');
Writeln (' 4. Kurang ');
Writeln (' 5. Akar ');
Writeln (' 6. Pangkat ');
Writeln (' 7. Menu Awal') ;

Write ('Masukkan Pilihan Menu : '); Readln (z);
End;

Procedure Converter;
Begin
Writeln ('========== Menu =========');
Writeln (' 1. Suhu ');
Writeln (' 2. Panjang ');
Writeln (' 3. Menu Awal ');

Write ('Masukkan Pilihan Menu : '); Readln (q);
End;


Begin
Clrscr;
Writeln ('================= Menu =================');
Writeln (' 1. Program Bintang Berjalan ');
Writeln (' 2. Program Converter ');
Writeln (' 3. Kalkulator Sederhana ');
Writeln (' 4. Exit ');
Writeln ('========================================');

Write ('Masukkan Pilihan Menu : '); Readln (x);

Case x of
1 : Begin
End;
2 : Begin
End;
3 : Begin
Repeat
Menu3;
Case z of
1 : Begin
Repeat
Write ('Masukkan Bilangan Pertama : '); Readln (a);
Write ('Masukkan Bilangan Kedua : '); Readln (b);
hasil := a / b;
Writeln ('Hasil Pembagian adalah ' , hasil:0:2);
Write ('Apakah anda ingin mengulang [Y/N] : '); Readln (jawab);
If (jawab = 'N') Or (jawab = 'n') then menu3;
Until (jawab = 'N') OR (jawab = 'n');
Readln;
end;
2 : Begin
Repeat
Write ('Masukkan Bilangan Pertama : '); Readln (a);
Write ('Masukkan Bilangan Kedua : '); Readln (b);
hasil := a * b;
Writeln ('Hasil Perkalian adalah ' , hasil:0:2);
Write ('Apakah anda ingin mengulang [Y/N] : '); Readln (jawab);
If (jawab = 'N') Or (jawab = 'n') then menu3;
Until (jawab = 'N') OR (jawab = 'n');
readln;
end;
3 : Begin
Repeat
Write ('Masukkan Bilangan Pertama : '); Readln (a);
Write ('Masukkan Bilangan Kedua : '); Readln (b);
hasil := a + b;
Writeln ('Hasil Penambahan adalah ' , hasil:0:2);
Write ('Apakah anda ingin mengulang [Y/N] : '); Readln (jawab);
If (jawab = 'N') Or (jawab = 'n') then menu3;
Until (jawab = 'N') OR (jawab = 'n');
readln
end;
4 : Begin
Repeat
Write ('Masukkan Bilangan Pertama : '); Readln (a);
Write ('Masukkan Bilangan Kedua : '); Readln (b);
hasil := a - b;
Writeln ('Hasil Penambahan adalah ' , hasil:0:2);
Write ('Apakah anda ingin mengulang [Y/N] : '); Readln (jawab);
If (jawab = 'N') Or (jawab = 'n') then menu3;
Until (jawab = 'N') OR (jawab= 'n');
Readln;
end;
5 : Begin
Repeat
Write ('Masukkan Bilangan : '); Readln (a);
hasil := sqrt (a);
Writeln ('Hasil Pengakaran adalah ' , hasil:0:2);
Write ('Apakah anda ingin mengulang [Y/N] : '); Readln (jawab);
If (jawab = 'N') Or (jawab = 'n') then menu3;
Until (jawab = 'N') OR (jawab = 'n');
Readln;
end;
6 : Begin
End;
7 : Begin
Clrscr;
Menu3;
End;
4 : EXIT;
End;

Write ('Apakah Anda ingin Mengulang : '); Readln (jawab);

Until (jawab = 'N') or (jawab = 'n');

Readkey;
End;
end;
end.