program casepilih ;
uses wincrt ;
var pilih : char ;
var angka : string ;
var angka2 : integer ;

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 ;
begin
clrscr ;
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!!!’);
end ;

procedure ulangloop ;
begin
clrscr ;
writeln (‘Bilangan bulat positif yang kurang dari 21’);
readln ;
angka2:=20;
while angka2<20 do
angka2:=angka2+1 ;
writeln (angka2);

repeat
angka2 :=angka2-1 ;
writeln (angka2) ;
until angka2<2 ;

end ;

begin
writeln(‘program perpangkatan’);
readln;
writeln(‘[1] Pangkatan bulat fositif’);
writeln(‘[2] Pangkat bulat negatif’);
writeln(‘[3] Contoh soal’);
writeln(‘[4] Program ulangloop’);
readln;
write(‘Silakan masukkan nomor yang anda pilih : ‘);
readln(pilih);
case pilih of
‘1’ : materi1 ;
‘2’ : materi2 ;
‘3’ : latihan ;
‘4’ : ulangloop ;

else
writeln (‘Coba Baca Baik-Baik’);
end ;
end.