program casepilih ;
uses wincrt ;
var tanya,pilih : char ;
var angka : string ;
procedure materi1;
begin
clrscr;
writeln (‘Pangkat Bulat Positif’);
readln ;
writeln (‘Sifat Pertama’);
writeln (‘Jika a bilangan riil dan m, n bilangan bulat positif, maka ‘);
writeln (‘a^m x a^n = a^(m+n) ‘);
readln ;
writeln (‘Sifat Kedua’);
writeln (‘Jika a bilangan riil dan m, n bilangan bulat positif, maka ‘);
writeln (‘a^m : a^n = a^(m-n)’) ;
writeln (‘dengan a tidaksamadengan 0, dan m>n’);
readln ;
writeln (‘Sifat Ketiga’);
writeln (‘Jika a bilangan riil dan m, n bilangan bulat positif, maka ‘);
writeln (‘(a^m)^n = a^(mxn)’);
readln ;
writeln (‘Sifat Keempat’);
writeln (‘Jika a,b bilangan riil dan m bilangan bulat positif, maka’);
writeln (‘(ab)^m = a^m x b^m’);
readln ;
writeln (‘Sifat Kelima’);
writeln (‘Jika a,b bilangan riil dan m bilangan bulat positif, maka’);
writeln (‘(a/b)^m = a^m/b^m’);
readln ;
end ;
procedure materi2 ;
begin
clrscr ;
writeln (‘Pangkat Bulat Negatif’);
writeln (‘Jika a adalah bilangan riil, a tidaksamadengan 0, m adalah bilangan bulat’);
writeln (‘positif, dan -m adalah bilangan bulat negatif,’);
writeln (‘maka a^(-m) = 1/a^m dan 1/a^(-m) = a^m’);
readln ;
end ;
procedure latihan ;
var a,b,c,d,i:integer;
var hasil:longint;
begin
clrscr ;
hasil:=1 ;
writeln (‘Soal Latihan’);
writeln (‘Tentukan hasil perkalian berikut!’);
write (‘2^3 x 2^4 = ‘);
readln (angka);
if (angka=’2^7’) then
begin
writeln (‘Anda Benar!!!’);
end
else
writeln(‘Anda Kurang Tepat!!!’);
readln;
write(‘masukan bilangan:’);
readln(a);
write(‘pangkat?:’);
readln(b);
write(‘dikali bilangan : ‘);
readln (c);
write(‘pangkat’);
readln (d);
for i:=1 to b do
begin
hasil:=hasil*a*hasil*c;
end;
writeln(‘Hasil’,a,’ dikali ‘,b,’ adalah’,hasil);
readln;
end ;
begin
repeat
clrscr ;
writeln(‘program perpangkatan’);
readln;
writeln(‘[1] Pangkatan bulat fositif’);
writeln(‘[2] Pangkat bulat negatif’);
writeln(‘[3] Contoh soal’);
readln;
write(‘Silakan masukkan nomor yang anda pilih : ‘);
readln(pilih);
case pilih of
‘1’ : materi1 ;
‘2’ : materi2 ;
‘3’ : latihan ;

else

writeln (‘Coba Baca Baik-Baik’);
readln ;
end ;

writeln(‘Apakah Anda Masih Mau Lanjut ? ‘);
write (‘Tekan y/t : … ‘);
readln(tanya);

until tanya=’t’;
clrscr;
writeln(‘Terima Kasih Anda Telah Memakai Program Kami’);
writeln(‘Sampai Jumpa Lagi Di Lain Dunia’);
end.

untuk menjalankan program ini silahkandownload disini