Program Kalkulator Pada Pascal

Dalam tugas kali ini kita dituntut untuk bisa membuat program perhitungan :
1. Penjumlahan
2. Pengurangan
3. Perkalian
4. Pembagian
dan terkhir 5. Pangkat,...

Temen2 tinggal Copy Paste berikut kodenya :

Cara Paling Mudah Untuk di Copy Paste ke Pascal secara langsung dapat temen2 ikutin di bawah ini:

1. Temen2 Buka NotePadnya
2. Copy Paste Code Program ini ke NotePade
3. Save as dengan nama terserah temen2 yang penting belakangnya di ketik .pas ini digunakan agar program kita bisa berjalan di Pascal
4. Jalanin dech di Pascal dengan Open Pascal yang temen2 punya
5. selesai

Semua tergantung amalan temen2 hehehehe
just kidding InsyAllah bisa kog!!!

Bertikut Kode Pascal untuk perhitungan program kalkulator:

uses crt;
var
z:integer;
x,y,j,kl,ku,bg,pk1,pk2,pk3,pk4:real;

begin
clrscr;
gotoxy(34,3);Writeln('Kalkulator');
gotoxy(30,4);Writeln('*******===*******');
readln;

gotoxy(10,6);write('Masukkan nilai x=');readln(x);
gotoxy(10,7);write('Masukkan nilai y=');readln(y);
gotoxy(10,8);write('Masukkan nilai pangkat=');readln(z);

j:=x+y;
kl:=x*y;
ku:=x-y;
bg:=x/y;
pk1:=exp(z*ln(j));
pk2:=exp(z*ln(kl));
pk4:=exp(z*ln(bg));
if (z>0) or (z<=-1) then
begin pk3:=exp(z*ln(ku)); end;
if (z=0) then
begin pk3:=1; end;

writeln;

gotoxy(10,11);writeln('Nilai Penjumlahan:',j:3:3,'');
gotoxy(10,12);writeln('Nilai Perkalian:',kl:3:3,'');
gotoxy(10,13);writeln('Nilai Pengurangan:',ku:3:3,'');
gotoxy(10,14);writeln('Nilai Pembagian:',bg:3:3,'');
gotoxy(39,11);writeln('Nilai Pangkat:',pk1:3:3,'');
gotoxy(39,12);writeln('Nilai Pangkat:',pk2:3:3,'');
gotoxy(39,13);writeln('Nilai Pangkat:',pk3:3:3,'');
gotoxy(39,14);writeln('Nilai Pangkat:',pk4:3:3,'');
readln;
end.

pada koordinat x dan y temen2 bisa merubahnya dengan angka yang temen2 inginkan!
ini dapat berjalan jika kita memasukkin angka positif. kl yg negatif aku belum mendapatkan rumusnya,...
Catatan : "Jika ada kesalahan tolong dikonfirmasi jadi aku bisa benerin langsung hehehe hub : 085290521929"