Entahlah tui tiau ki

Program Kalkulator; uses wincrt; var pil:integer; a,b,c:real; ulang:char; {Tampilan Menu Utama} Procedure Menu; Begin gotoxy(30,5); writeln('----------------------------'); gotoxy(30,6); writeln(' MENU UTAMA '); gotoxy(30,7); writeln('----------------------------'); gotoxy(30,8); writeln('1. Penjumlahan '); gotoxy(30,9); writeln('2. Pengurangan '); gotoxy(30,10);writeln('3. Perkalian '); gotoxy(30,11);writeln('4. Pembagian '); gotoxy(30,12);writeln('5. Kuadrat Bilangan '); gotoxy(30,13);Writeln('6. Akar Bilangan '); gotoxy(30,14);writeln('7. Pembuat Program '); gotoxy(30,15);writeln('8. Keluar Program '); gotoxy(30,16);writeln('----------------------------'); gotoxy(30,17);writeln(' Pilih : '); gotoxy(30,18);writeln('----------------------------'); gotoxy(42,17);Readln(pil); End; {Program Penjumlahan} Procedure Penjumlahan; begin gotoxy(22,1);write('-==PROGRAM PENJUMLAHAN==-'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a+b; gotoxy(22,4);writeln('Hasil : ',c:2:2); End; {Program Pengurangan} Procedure Pengurangan; begin gotoxy(22,1);write('-==PROGRAM PENGURANGAN==-'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a-b; gotoxy(22,4);writeln('Hasil : ',c:2:2) End; {Program Perkalian} Procedure Perkalian; Begin gotoxy(22,1);write('--==PROGRAM PERKALIAN==--'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a*b; gotoxy(22,4);writeln('Hasil : ',c:2:2) End; {Program Pembagian} Procedure Pembagian; Begin gotoxy(22,1);write('--==PROGRAM PEMBAGIAN==--'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); if (b<>0) then begin c:=a/b; gotoxy(22,4);writeln('Hasil : ',c:2:2) ; end else begin gotoxy(22,4);Writeln('Tidak bisa dibagi Nol!') end; End; {Program Untuk menghitung kuadrat dari suatu bilangan} Procedure Kuadrat; Begin gotoxy(22,1);write('-=KUADRAT BILANGAN=-'); gotoxy(22,2);Write('Masukkan Bilangan : '); Readln(a); b:=sqr(a); gotoxy(22,3);writeln('Kuadrat dari ',a:2:2, ' adalah : ',b:2:2); End; {Program untuk Menghitung akar} Procedure Akar; Begin gotoxy(23,1);write('-==AKAR BILANGAN==-'); gotoxy(22,2);Write('Masukkan Bilangan : '); Readln(a); b:=sqrt(a); gotoxy(22,3);writeln('Akar dari ',a:2:2,' adalah ',b:2:2) End; {Narsis, Untuk Menampilkan yg nama pembuat program} Procedure Pembuat; begin gotoxy(18,1);write('------========================------'); gotoxy(18,2);write(' Program ini dibuat oleh : '); gotoxy(18,3);write('------========================------'); end; {PROGRAM UTAMA} Begin ulang :='Y'; while (ulang = 'Y') or (ulang = 'y') do begin clrscr; Menu; clrscr; case pil of 1 : Penjumlahan; 2 : Pengurangan; 3 : Perkalian; 4 : Pembagian; 5 : Kuadrat; 6 : Akar; 7 : Pembuat; 8 : donewincrt; end; {Jika terjadi kesalahan pemilihan} if (pil>8 ) or (pil<1) then begin gotoxy(27,3);writeln('Pilihan Anda Salah!'); end; gotoxy(15,5);writeln('=========================================='); gotoxy(15,6);writeln('Apakah Anda ingin mencoba lagi? (Y/T) : '); gotoxy(15,7);writeln('=========================================='); gotoxy(55,6);Readln(ulang); end; donewincrt; End.