TUGAS 1:

program MatematikaSMAkelas1;
uses wincrt;
var m1,n1,m2,n2,m3,n3,m4,m5,n4,m6,m7,n5,a1,b1,a2,b2,a3,b3,a4,b4:real;
var hasil1,hasil2,hasil3,hasil4,hasil5,hasil6,hasil7,hasil8,hasil9:real;

begin
writeln(‘SIFAT-SIFAT PANGKAT RASIONAL’);
writeln;
writeln(‘Jika a,b adalah bilangan Riil, a dan b tidak sama dengan 0 (nol),serta m dan n bilangan rasional, maka berlaku: ‘);
writeln;

writeln(‘1. Sifat pertama: a^m x a^n = a^m+n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai m (a^m): ‘);readln(m1);
write(‘masukkan nilai n (a^n): ‘);readln(n1);
hasil1:=m1+n1;
writeln(‘hasil pangkat: ‘,hasil1:0:1);
writeln(‘Maka,a^m x a^n = a^m+n’);
writeln;

writeln(‘2. Sifat kedua: a^m/a^n=a^m-n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai m (a^m): ‘);readln(m2);
write(‘masukkan nilai n (a^n): ‘);readln(n2);
hasil2:=m2-n2;
writeln(‘hasil pangkat: ‘,hasil2:0:1);
writeln;

writeln(‘3. Sifat ketiga: (a^m)^n=a^m*n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai m (a^m): ‘);readln(m3);
write(‘masukkan nilai n (a^n): ‘);readln(n3);
hasil3:=m3*n3;
writeln(‘hasil pangkat: ‘,hasil3:0:1);
writeln;

writeln(‘4. Sifat keempat: (ab)^n=a^n*b^n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai a: ‘);readln(a1);
write(‘masukkan nilai b: ‘);readln(b1);
hasil4:=a1*b1;
writeln(‘hasil nilai: ‘,hasil4:0:1);
writeln;

writeln(‘5. Sifat kelima: (a/b)^n=a^n/b^n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai a: ‘);readln(a2);
write(‘masukkan nilai b: ‘);readln(b2);
hasil5:=a2/b2;
writeln(‘hasil nilai: ‘,hasil5:0:1);
writeln;

writeln(‘6. Sifat keenam: (a^m*b^m)^n=(a^m*n)*(b^m*n)’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai a: ‘);readln(a3);
write(‘masukkan nilai b: ‘);readln(b3);
hasil6:=a3*b3;
writeln(‘hasil nilai: ‘,hasil6:0:1);
writeln;
write(‘masukkan nilai m dari a^m: ‘);readln(m4);
write(‘masukkan nilai m dari b^m: ‘);readln(m5);
write(‘masukkan nilai n: ‘);readln(n4);
hasil7:=m4*n4+m5*n4;
writeln(‘hasil pangkat: ‘,hasil7:0:1);
writeln(‘Maka,(a^m*b^m)^n=(a^m*n)*(b^m*n)’);
writeln;

writeln(‘7. Sifat ketujuh: (a^m/b^m)^n=(a^m*n)/(b^m*n)’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai a: ‘);readln(a4);
write(‘masukkan nilai b: ‘);readln(b4);
hasil8:=a3/b3;
writeln(‘hasil nilai: ‘,hasil8:0:1);
writeln;
write(‘masukkan nilai m dari a^m: ‘);readln(m6);
write(‘masukkan nilai m dari b^m: ‘);readln(m7);
write(‘masukkan nilai n: ‘);readln(n5);
hasil9:=m6*n5-m7*n5;
writeln(‘hasil pangkat: ‘,hasil9:0:1);
writeln(‘Maka,(a^m/b^m)^n=(a^m*n)/(b^m*n)’);
writeln;

end.

—————————————————————————–

TUGAS 2:

program matematikaSMA;

uses wincrt;

var pilih:char;

var m1,n1,m2,n2,m3,n3,m4,m5,n4,m6,m7,n5,a1,b1,a2,b2,a3,b3,a4,b4:real;

var hasil1,hasil2,hasil3,hasil4,hasil5,hasil6,hasil7,hasil8,hasil9:real;

var bilBulat1,bilBulat2:integer;

begin

writeln(‘SIFAT-SIFAT PANGKAT RASIONAL’);

writeln(‘Jika a dan b bilangan riil, maka a dan b tidak sama dengan 0, serta m dan n bilangan Rasional.’);

writeln(‘Bilangan rasional adalah bilangan yang dapat dinyatakan sebagai bentuk pembagian m/n dengan m dan n bilangan bulat:’);

writeln(‘Bilangan bulat positif: ‘);

bilBulat1:=-1;

while bilBulat1 < 9 do

begin

bilBulat1:=bilBulat1+1;

writeln(bilBulat1);

end;

writeln;

writeln(‘Bilangan bulat negatif: ‘);

bilBulat2:=-10;

repeat

bilBulat2:=bilBulat2+1;

writeln(bilBulat2);

until bilBulat2 > -2;

writeln;

write(‘Pilih salah satu Sifat Pangkat Rasional [1][2][3][4][5][6][7]: ‘);readln(pilih);

clrscr;

case pilih of

‘1’:writeln(‘Sifat Pangkat Rasional yang pertama’);

‘2’:writeln(‘Sifat Pangkat Rasional yang kedua’);

‘3’:writeln(‘Sifat Pangkat Rasional yang ketiga’);

‘4’:writeln(‘Sifat Pangkat Rasional yang keempat’);

‘5’:writeln(‘Sifat Pangkat Rasional yang kelima’);

‘6’:writeln(‘Sifat Pangkat Rasional yang keenam’);

‘7’:writeln(‘Sifat Pangkat Rasional yang ketujuh’);

else

write(‘Maaf,baca lagi dengan teliti!’);

end;

if (pilih=’1′)then

begin

writeln(‘1. Sifat pertama: a^m x a^n = a^m+n’);

writeln(‘Sehingga: ‘);

write(‘masukkan nilai m (a^m): ‘);readln(m1);

write(‘masukkan nilai n (a^n): ‘);readln(n1);

hasil1:=m1+n1;

writeln(‘hasil pangkat: ‘,hasil1:0:1);

writeln(‘Maka,a^m x a^n = a^m+n’);

writeln;

end;

if (pilih=’2′)then

begin

writeln(‘2. Sifat kedua: a^m/a^n=a^m-n’);

writeln(‘Sehingga: ‘);

write(‘masukkan nilai m (a^m): ‘);readln(m2);

write(‘masukkan nilai n (a^n): ‘);readln(n2);

hasil2:=m2-n2;

writeln(‘hasil pangkat: ‘,hasil2:0:1);

writeln;

end;

if (pilih=’3’)then

begin

writeln(‘3. Sifat ketiga: (a^m)^n=a^m*n’);

writeln(‘Sehingga: ‘);

write(‘masukkan nilai m (a^m): ‘);readln(m3);

write(‘masukkan nilai n (a^n): ‘);readln(n3);

hasil3:=m3*n3;

writeln(‘hasil pangkat: ‘,hasil3:0:1);

writeln;

end;

if (pilih=’4’)then

begin

writeln(‘4. Sifat keempat: (ab)^n=a^n*b^n’);

writeln(‘Sehingga: ‘);

write(‘masukkan nilai a: ‘);readln(a1);

write(‘masukkan nilai b: ‘);readln(b1);

hasil4:=a1*b1;

writeln(‘hasil nilai: ‘,hasil4:0:1);

writeln;

end;

if (pilih=’5’)then

begin

writeln(‘5. Sifat kelima: (a/b)^n=a^n/b^n’);

writeln(‘Sehingga: ‘);

write(‘masukkan nilai a: ‘);readln(a2);

write(‘masukkan nilai b: ‘);readln(b2);

hasil5:=a2/b2;

writeln(‘hasil nilai: ‘,hasil5:0:1);

writeln;

end;

if (pilih=’6’)then

begin

writeln(‘6. Sifat keenam: (a^m*b^m)^n=(a^m*n)*(b^m*n)’);

writeln(‘Sehingga: ‘);

write(‘masukkan nilai a: ‘);readln(a3);

write(‘masukkan nilai b: ‘);readln(b3);

hasil6:=a3*b3;

writeln(‘hasil nilai: ‘,hasil6:0:1);

writeln;

write(‘masukkan nilai m dari a^m: ‘);readln(m4);

write(‘masukkan nilai m dari b^m: ‘);readln(m5);

write(‘masukkan nilai n: ‘);readln(n4);

hasil7:=m4*n4+m5*n4;

writeln(‘hasil pangkat: ‘,hasil7:0:1);

writeln(‘Maka,(a^m*b^m)^n=(a^m*n)*(b^m*n)’);

writeln;

end;

if (pilih=’7′)then

begin

writeln(‘7. Sifat ketujuh: (a^m/b^m)^n=(a^m*n)/(b^m*n)’);

writeln(‘Sehingga: ‘);

write(‘masukkan nilai a: ‘);readln(a4);

write(‘masukkan nilai b: ‘);readln(b4);

hasil8:=a3/b3;

writeln(‘hasil nilai: ‘,hasil8:0:1);

writeln;

write(‘masukkan nilai m dari a^m: ‘);readln(m6);

write(‘masukkan nilai m dari b^m: ‘);readln(m7);

write(‘masukkan nilai n: ‘);readln(n5);

hasil9:=m6*n5-m7*n5;

writeln(‘hasil pangkat: ‘,hasil9:0:1);

writeln(‘Maka,(a^m/b^m)^n=(a^m*n)/(b^m*n)’);

writeln;

end;

end.

—————————————————————————–

Tugas 3:

program menuOke_Sifat_sifat_Pangkat_Rasional;

uses wincrt;

var tanya,pilih:char;

procedure sifatPangkatRasionalKe1;

var m,n,hasil1:real;

var a,c,i:integer;

var hasil:longint;

begin

clrscr;

hasil:=1;

writeln(‘Sifat pertama: a^m x a^n = a^m+n’);

writeln(‘——————————–‘);

write(‘masukkan nilai pangkat m (a^m): ‘);readln(m);

write(‘masukkan nilai pangkat n (a^n): ‘);readln(n);

hasil1:=m+n;

writeln(‘hasil pangkat: ‘,hasil1:0:0);

writeln;

write(‘masukkan nilai a: ‘);readln(a);

write(‘masukkan “hasil pangkat”: ‘);readln(c);

for i:=1 to c do

begin

hasil:=hasil*a;

end;

writeln(‘Hasil ‘,a,’ pangkat ‘,c,’ adalah ‘,hasil);

end;

procedure sifatPangkatRasionalKe2;

var m,n,hasil1:real;

var a,c,i:integer;

var hasil:longint;

begin

clrscr;

hasil:=1;

writeln(‘Sifat kedua: a^m/a^n=a^m-n’);

writeln(‘————————–‘);

write(‘masukkan nilai pangkat m (a^m): ‘);readln(m);

write(‘masukkan nilai pangkat n (a^n): ‘);readln(n);

hasil1:=m-n;

writeln(‘hasil pangkat: ‘,hasil1:0:0);

writeln;

write(‘masukkan nilai a: ‘);readln(a);

write(‘masukkan “hasil pangkat”: ‘);readln(c);

for i:=1 to c do

begin

hasil:=hasil*a;

end;

writeln(‘Hasil ‘,a,’ pangkat ‘,c,’ adalah ‘,hasil);

end;

procedure sifatPangkatRasionalKe3;

var m,n,hasil1:real;

var a,c,i:integer;

var hasil:longint;

begin

clrscr;

hasil:=1;

writeln(‘Sifat ketiga: (a^m)^n=a^m*n’);

writeln(‘—————————‘);

write(‘masukkan nilai pangkat m (a^m): ‘);readln(m);

write(‘masukkan nilai pangkat n (a^n): ‘);readln(n);

hasil1:=m*n;

writeln(‘hasil pangkat: ‘,hasil1:0:0);

writeln;

write(‘masukkan nilai a: ‘);readln(a);

write(‘masukkan “hasil pangkat”: ‘);readln(c);

for i:=1 to c do

begin

hasil:=hasil*a;

end;

writeln(‘Hasil ‘,a,’ pangkat ‘,c,’ adalah ‘,hasil);

end;

procedure sifatPangkatRasionalKe4;

var a,b,hasil1:real;

var d,i,n:integer;

var hasil:longint;

begin

clrscr;

hasil:=1;

writeln(‘Sifat keempat: (ab)^n=a^n*b^n’);

writeln(‘—————————–‘);

write(‘masukkan nilai a: ‘);readln(a);

write(‘masukkan nilai b: ‘);readln(b);

hasil1:=a*b;

writeln(‘hasil nilai: ‘,hasil1:0:0);

writeln;

write(‘masukkan “hasil nilai”: ‘);readln(d);

write(‘masukkan nilai pangkat n: ‘);readln(n);

for i:=1 to n do

begin

hasil:=hasil*d;

end;

writeln(‘Hasil ‘,d,’ pangkat ‘,n,’ adalah ‘,hasil);

end;

procedure sifatPangkatRasionalKe5;

var a,b,hasil1:real;

var i,n:integer;

var d,hasil:longint;

begin

clrscr;

hasil:=1;

writeln(‘Sifat kelima: (a/b)^n=a^n/b^n’);

writeln(‘—————————–‘);

write(‘masukkan nilai a: ‘);readln(a);

write(‘masukkan nilai b: ‘);readln(b);

hasil1:=a/b;

writeln(‘hasil nilai: ‘,hasil1:0:2);

writeln;

write(‘masukkan “hasil nilai”: ‘);readln(d);

write(‘masukkan nilai pangkat n: ‘);readln(n);

for i:=1 to n do

begin

hasil:=hasil*d;

end;

writeln(‘Hasil ‘,d,’ pangkat ‘,n,’ adalah ‘,hasil);

end;

procedure sifatPangkatRasionalKe6;

var m1,m2,n,hasil1,hasil2:real;

var a,b,c,d,i:integer;

var hasil3,hasil4,hasil5:longint;

begin

clrscr;

hasil3:=1;

hasil4:=1;

writeln(‘Sifat keenam: (a^m*b^m)^n=(a^m*n)*(b^m*n)’);

writeln(‘——————————————‘);

write(‘masukkan nilai a: ‘);readln(a);

write(‘masukkan nilai b: ‘);readln(b);

writeln;

write(‘masukkan nilai pangkat m dari a^m: ‘);readln(m1);

write(‘masukkan nilai pangkat m dari b^m: ‘);readln(m2);

write(‘masukkan nilai pangkat n: ‘);readln(n);

writeln;

hasil1:=m1*n;writeln(‘hasil pangkat (a^m*n): ‘,hasil1:0:0);

hasil2:=m2*n;writeln(‘hasil pangkat (b^m*n): ‘,hasil2:0:0);

writeln;

write(‘masukkan “hasil pangkat” dari (a^m*n): ‘);readln(c);

write(‘masukkan “hasil pangkat” dari (b^m*n): ‘);readln(d);

writeln;

for i:=1 to c do

begin

hasil3:=hasil3*a;

end;

writeln(‘Hasil ‘,a,’ pangkat ‘,c,’ adalah ‘,hasil3);

for i:=1 to d do

begin

hasil4:=hasil4*b;

end;

writeln(‘Hasil ‘,b,’ pangkat ‘,d,’ adalah ‘,hasil4);

writeln;

hasil5:=hasil3*hasil4;

writeln(‘Sehingga, hasil dari (a^m/b^m)^n=(a^m*n)/(b^m*n): ‘,hasil5);

end;

procedure sifatPangkatRasionalKe7;

var m1,m2,n,hasil1,hasil2,hasil5:real;

var a,b,c,d,i:integer;

var hasil3,hasil4:longint;

begin

clrscr;

hasil3:=1;

hasil4:=1;

writeln(‘Sifat ketujuh: (a^m/b^m)^n=(a^m*n)/(b^m*n)’);

writeln(‘——————————————‘);

write(‘masukkan nilai a: ‘);readln(a);

write(‘masukkan nilai b: ‘);readln(b);

writeln;

write(‘masukkan nilai pangkat m dari a^m: ‘);readln(m1);

write(‘masukkan nilai pangkat m dari b^m: ‘);readln(m2);

write(‘masukkan nilai pangkat n: ‘);readln(n);

writeln;

hasil1:=m1*n;writeln(‘hasil pangkat (a^m*n): ‘,hasil1:0:0);

hasil2:=m2*n;writeln(‘hasil pangkat (b^m*n): ‘,hasil2:0:0);

writeln;

write(‘masukkan “hasil pangkat” dari (a^m*n): ‘);readln(c);

write(‘masukkan “hasil pangkat” dari (b^m*n): ‘);readln(d);

writeln;

for i:=1 to c do

begin

hasil3:=hasil3*a;

end;

writeln(‘Hasil ‘,a,’ pangkat ‘,c,’ adalah ‘,hasil3);

for i:=1 to d do

begin

hasil4:=hasil4*b;

end;

writeln(‘Hasil ‘,b,’ pangkat ‘,d,’ adalah ‘,hasil4);

writeln;

hasil5:=hasil3/hasil4;

writeln(‘Sehingga, hasil dari (a^m/b^m)^n=(a^m*n)/(b^m*n): ‘,hasil5:0:2);

end;

begin

repeat

clrscr;

writeln(‘——————————————‘);

writeln(‘Program “Sifat-Sifat Pangkat Rasional”‘);

writeln(‘——————————————–‘);

writeln(‘1.Sifat pertama: a^m x a^n = a^m+n’);

writeln(‘2.Sifat kedua: a^m/a^n=a^m-n’);

writeln(‘3.Sifat ketiga: (a^m)^n=a^m*n’);

writeln(‘4.Sifat keempat: (ab)^n=a^n*b^n’);

writeln(‘5.Sifat kelima: (a/b)^n=a^n/b^n’);

writeln(‘6.Sifat keenam: (a^m*b^m)^n=(a^m*n)*(b^m*n)’);

writeln(‘7.Sifat ketujuh: (a^m/b^m)^n=(a^m*n)/(b^m*n)’);

writeln(‘——————————————–‘);

write(‘Pilih “Sifat Pangkat Rasional”: ‘);

readln(pilih);

case pilih of

‘1’:sifatPangkatRasionalKe1;

‘2’:sifatPangkatRasionalKe2;

‘3’:sifatPangkatRasionalKe3;

‘4’:sifatPangkatRasionalKe4;

‘5’:sifatPangkatRasionalKe5;

‘6’:sifatPangkatRasionalKe6;

‘7’:sifatPangkatRasionalKe7;

else

writeln(‘pilih sesuai dengan menu!!!’);

writeln;

end;

writeln;

write(‘Apakah Anda Ingin Melanjutkan Program ini?[TEKAN y/t]: ‘);readln(tanya);

until (tanya=’t’)or(tanya=’T’);

clrscr;

writeln(‘Terima Kasih Atas Kunjungannya…’);

writeln(‘driviana.dskyblue@gmail.com’);

writeln(‘See You (^_^) …’);

end.

 

———————————————————————————————–

Tugas 4

 

program funcDanproc_pesanlokasiArray;
uses wincrt;
var input,input2:integer;
var c,i:integer;
var m1,n1,m2,n2,m3,n3:real;
var a1,b1,a2,b2:real;
var hasil1,hasil2,hasil3,hasil4,hasil5,hasil6,hasil7,hasil8,hasil9:real;
var pangkatRasional:array[1..5] of string;
var ingin:byte;

procedure garis;
begin
writeln(‘==========================================================’);
end;

procedure garis2;
begin
writeln(‘———————————————————-‘);
end;

function pangkat(var a:integer):integer;
var pangkat:longint;
begin
pangkat:=1;
for i:=1 to c do
begin
pangkat:=pangkat*a;
end;
end;

procedure inputan(var c:integer);
begin
garis;
writeln(‘hasil pangkatnya adalah ‘,pangkat(input));
garis;
end;

begin
writeln(‘SIFAT-SIFAT PANGKAT RASIONAL’);
garis;
writeln;
writeln(‘Jika a,b adalah bilangan Riil, a dan b tidak sama dengan 0 (nol),serta m dan n bilangan rasional, maka berlaku: ‘);
writeln;
writeln;
writeln(‘1. Sifat pertama: a^m x a^n = a^m+n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai m (a^m): ‘);readln(m1);
write(‘masukkan nilai n (a^n): ‘);readln(n1);
hasil1:=m1+n1;
writeln(‘hasil pangkat: ‘,hasil1:0:0);
writeln;
write(‘masukkan nilai a: ‘);readln(input);
write(‘masukkan “hasil pangkat”: ‘);readln(c);
inputan(input);
writeln;
garis2;
writeln;
writeln(‘2. Sifat kedua: a^m/a^n=a^m-n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai m (a^m): ‘);readln(m2);
write(‘masukkan nilai n (a^n): ‘);readln(n2);
hasil2:=m2-n2;
writeln(‘hasil pangkat: ‘,hasil2:0:0);
writeln;
write(‘masukkan nilai a: ‘);readln(input);
write(‘masukkan “hasil pangkat”: ‘);readln(c);
inputan(input);
writeln;
garis2;
writeln;
writeln(‘3. Sifat ketiga: (a^m)^n=a^m*n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai m (a^m): ‘);readln(m3);
write(‘masukkan nilai n (a^n): ‘);readln(n3);
hasil3:=m3*n3;
writeln(‘hasil pangkat: ‘,hasil3:0:0);
writeln;
write(‘masukkan nilai a: ‘);readln(input);
write(‘masukkan “hasil pangkat”: ‘);readln(c);
inputan(input);
writeln;
garis2;
writeln;
writeln(‘4. Sifat keempat: (ab)^n=a^n*b^n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai a: ‘);readln(a1);
write(‘masukkan nilai b: ‘);readln(b1);
hasil4:=a1*b1;
writeln(‘hasil nilai: ‘,hasil4:0:1);
writeln;
write(‘masukkan “hasil nilai: ‘);readln(input);
write(‘masukkan nilai pangkat n: ‘);readln(c);
inputan(input);
writeln;
garis2;
writeln;
writeln(‘5. Sifat kelima: (a/b)^n=a^n/b^n’);
writeln(‘Sehingga: ‘);
write(‘masukkan nilai a: ‘);readln(a2);
write(‘masukkan nilai b: ‘);readln(b2);
hasil5:=a2/b2;
writeln(‘hasil nilai: ‘,hasil5:0:1);
writeln;
write(‘masukkan “hasil nilai: ‘);readln(input);
write(‘masukkan nilai pangkat n: ‘);readln(c);
inputan(input);
writeln;
garis2;
writeln;

for i:=1 to 5 do
begin
write(‘Masukkan urutan Sifat Pangkat Rasional ke-‘,i,’ adalah: ‘);readln(pangkatRasional[i]);
end;
writeln;
write(‘Masukkan Sifat Pangkat Rasional yang diinginkan: ‘);readln(ingin);
writeln;
writeln(‘urutan ke-‘,ingin,’ adalah ‘,pangkatRasional[ingin]);

end.