program perpangkatan;

uses wincrt;

var bil1,bil2,bil3:byte;

var nama,kelas,jurusan,jawaban:string;

var hasil:integer;

 

 

 

 

 

 

 

 

begin

writeln(‘identitas diri’);

write(‘nama:’);

readln(nama);

write(‘kelas:’);

readln(kelas);

write(‘jurusan:’);

readln(jurusan);

clrscr;

writeln(‘anda masuk pada program perpangkatan’);

writeln(‘program pangkat bulat positif’);

write(‘masukan angka:’) ;

readln (bil1);

writeln(‘Hasilnya pangkatnya adalah ‘,bil1*bil1,’ ‘);

writeln(‘Didapat dari ‘,bil1,’ x’,bil1,’ ‘);

writeln(‘sekarang kita coba soal lain’);

write(‘hasil kuadrat dari 3^3* 3^1adalah=’);

readln(jawaban);

if jawaban=’81’then writeln(‘jawaban anda benar’)

else write (‘kurang tepat, seharusnya adalah 81’);

writeln(‘program pangkat bulat negatif’);

write(‘hasil kuadrat dari 2^-3 * 3^2 adalah=’);

readln(jawaban);

if jawaban=’9/8’then writeln(‘benar’)

else write (‘jawaban anda salah, yang benar adalah 9/8’)

 

end.