TUGAS 1

Program pangkat_bulat ;

Uses wincrt;

Var a,b : real;

n, p, q, hasil : integer ;

var nama,prodi,jawaban:string;

begin

writeln(‘Selamat Datang’);

readln;

writeln (‘ini ringkasan materi tengtang pangkat rasional’);

clrscr;

write( ‘Silahkan Masukan Nama Anda :’);

readln(nama);

write(‘Silahkan Masukan Prodi Anda :’);

readln(prodi);

clrscr;

if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then write (‘selamat.. Anda dapat melihat ringkasan materi pangkat rasional’)

else write(‘Maaf,Anda Belum Berhasil. Silahkan Ulangi.’);

readln;

clrscr;

Writeln (‘Rumus-Rumus Pangkat Rasional’);

readln;

Writeln (‘# Sifat-Sifat Pangkat Bulat’);

readln;

writeln (‘ 1. 5^3*5 = (5*5*5)*5 = 5*5*5*5 = 5^4′) ;

writeln (‘ Jadi ‘);

readln;

writeln (‘ a^p * a^q = a^p+q’);

readln;

writeln (‘ 2. 5^6/5^2 = 5*5*5*5*5*5/5*5 = 5*5*5*5 = 5^4′) ;

writeln (‘ Jadi ‘);

readln;

writeln (‘ a^p/a^q = a^p-q’);

readln;

writeln (‘ 3. (5^3)^2 = (5^3)*(5^3) = 5*5*5*5*5*5 = 5^6′) ;

writeln (‘ Jadi’);

readln;

writeln (‘ (a^p)^q = a^p*q’);

readln;

writeln (‘ 4. (5*3)^2 = (5*3)*(5*3) = (5*5)*(3*3) = 5^2*3^2′) ;

writeln (‘ Jadi ‘);

readln;

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

readln;

writeln (‘ 5. (2/3)^3 = 2/3*2/3*2/3 = 2*2*2/3*3*3 = 2^3/3^3′) ;

writeln (‘ Jadi’ );

readln;

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

readln;

writeln (‘ 6. 0^3 = 0*0*0 = 0′) ;

writeln (‘ Jadi’);

readln ;

writeln(‘ 0^n = 0′);

readln;

writeln (‘# Notasi Baku atau Notasi Ilmiah’);

readln;

writeln (‘ Notasi baku atau notasi ilmiah suatu bilangan ditulis dalam bentuk eksponen a*10^n’) ;

readln;

writeln (‘ Langkah-langkah untuk menuliskan suatu bilangan dalam notasi baku’) ;

readln;

writeln (‘ 1. Geserlah tanda desimal (tanda koma) ke kiri atau ke kanan sehingga tersisa satu angka.’) ;

writeln (‘ Penggeseran tanda desimal ini menghasilkan bilangan rasional a dengan 1 (kurang dari=) a (kurang dari=) 10 .’);

readln;

writeln (‘ 2. * Jika arah pergeseran tanda desimal ke kiri, maka nilai n bulat positif. ‘);

writeln (‘ * Jika arah pergeseran tanda desimal ke kanan, maka nilai n bulat negatif.’);

readln;

writeln (‘ 3. Nilai n ditentukan oleh banyak angka yang dilalui ketika menggeser tanda koma pada langkah 1 di atas.’);

readln;

clrscr;

writeln (‘Terima kasih’);

end.

==========================================================================================

TUGAS 2

program pangkat_bulat;

uses winCrt;

var nama,prodi,jawaban:string;

var pilih,lagi:char;

procedure SifatPangkatBulat;

var pilih,lagi : char;

begin

clrscr;

writeln(’1. sifat-sifat pangkat bulat’);

writeln(‘pada dasarnya sifat pangkat bulat sama saja dengan rumus pangkat rasional.’);

readln;

writeln(‘contoh :’);

writeln(’5^-3*5^2 = 5^(-3+2) = 5^-1′);

readln;

writeln(‘artinya :’);

writeln(‘a^p * a^q = a^p+q’);

end;

procedure NotasiBaku;

var pilih,lagi : char;

begin

clrscr;

writeln(’2. notasi baku’);

writeln(‘Notasi baku atau notasi ilmiah suatu bilangan ditulis dalam bentuk eksponen a*10^n’);

readln;

writeln(‘dengan a bilangan rasional (1 <= a < 10)’);

readln;

writeln(‘contoh :’);

writeln(‘ massa planet saturnus = 569 000 000 000 000 000 000 000 000 kg’);

writeln(‘maka notasi bakunya dapat ditulis’);

readln;

writeln(‘massa planet saturnus : 5,69 x 10^26′);

end;

procedure Keluar;

var  pilih,lagi : char;

begin

clrscr;

writeln(’3. Anda Memilih Untuk Keluar dari Program’);

end;

begin

writeln(‘Selamat Datang’);

readln;

writeln (‘ini program pangkat bulat dan notasi baku’);

clrscr;

write( ‘Silahkan Masukan Nama Anda :’);

readln(nama);

write(‘Silahkan Masukan Prodi Anda :’);

readln(prodi);

clrscr;

if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then write (‘selamat. Anda dapat melihat ringkasan materi ‘)

else write(‘Maaf,Anda Belum Berhasil. Silahkan Ulangi.’);

readln;

clrscr;

lagi:=’Y’;

while lagi=’Y’ do begin

clrscr;

repeat

clrscr;

writeln (‘Menu’);

writeln (‘[1]. sifat-sifat pangkat bulat’);

writeln (‘[2]. notasi baku’);

writeln (‘[3]. Keluar’);

write   (‘Masukan pilihan anda [1],[2] atau [3]: ‘); readln(pilih);

case pilih of

’1′:SifatPangkatBulat;

’2′:NotasiBaku;

’3′:Keluar;

else

write (‘coba baca baik-baik!!!!!’);

end;

readln;

writeln(‘Untuk melanjutkan program tekan Y = ‘); readln(lagi);

readln;

until (pilih=’Y’) or (pilih=’y’);

end;

end.

===========================================================================================

TUGAS   3

program pangkat_bulat_menuOke;

uses winCrt;

var tanya,pilih :char;

procedure SifatPangkatBulat;

var a,b,i:integer;

var hasil:longint;

begin

clrscr;

hasil:=1;

writeln(‘Sifat-Sifat Pangkat Bulat’);

writeln(‘============================’);

writeln(‘Pada dasarnya sifat-sifat pangkat bulat memiliki keterkaitan dengan rumus-rumus pangkat rasional.’);

readln;

write  (‘Seperti :’);

writeln(’5^-3*5^2 = 5^(-3+2) = 5^-1′);

readln;

write  (‘Artinya :’);

writeln(‘a^p * a^q = a^p+q’);

readln;

writeln(‘Contoh : ‘);

writeln(‘———-’);

readln;

writeln(‘Jika 3^3 * 3^2 berapakah hasilnya ?..’);

readln;

writeln(‘masukkan jawaban anda ke dalam program di bawah ini (a^b)? ‘);

writeln(‘masukan bilangan: ‘);

readln(a);

writeln(‘dipangkatkan berapa?: ‘);

readln(b);

for i:=1 to b do

begin

hasil:=hasil*a;

end;

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

end;

procedure NotasiBaku;

var pilih,lagi : char;

var jawaban :real;

begin

clrscr;

writeln(‘Notasi Baku’);

writeln(‘=====================================’);

writeln(‘Notasi baku atau notasi ilmiah adalah suatu bilangan yang dapat ditulis dalam bentuk eksponen yaitu ( a*10^n) ‘);

readln;

writeln(‘dengan a bilangan rasional (1 <= a < 10)’);

readln;

writeln(‘contoh :’);

writeln(‘massa planet saturnus = 569 000 000 000 000 000 000 000 000 kg’);

readln;

writeln(‘notasi bakunya dapat ditulis : 5,69 x 10^26 kg’);

readln;

writeln(‘Latihan Soal’);

writeln(‘————–’);

readln;

writeln(‘Jika kecepatan cahaya ditulis 2,99918 X 10^8 meter per detik, bagaimana penulisan angkanya?..’);

readln;

write  (‘masukkan jawaban anda : ‘);

readln (jawaban);

if (jawaban=299918000) then write(‘Anda Benar’)

else write (‘Anda Salah’);

readln;

end;

begin

repeat

clrscr;

writeln(‘==============================’);

writeln(‘Program Pangkat Rasional’);

writeln(‘==============================’);

writeln(’1.sifat-sifat pangkat bulat’);

writeln(’2.notasi baku’);

writeln(‘==============================’);

write(‘pilih yang anda ingin ketahui?: ‘);

readln(pilih);

case pilih of

’1′:SifatPangkatBulat;

’2′:Notasibaku;

else

writeln(‘pilih sesuai dengan menu’);

writeln;

end;

write(‘Apakah Anda Masih Ingin Lanjut [TEKAN y/t]: ‘);readln(tanya);

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

clrscr;

writeln(‘Terima Kasih Atas Kunjungannya di Program ini’);

writeln(‘sampai jumpa’);

writeln(‘  ^_-  ‘);

end.

=====================================================================================

TUGAS 4

var nama,prodi,jawaban,lagi:string;
var input:integer;
var i,a,b,c:integer;

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

function hasil(var a,b:integer):integer;
var hasil:real;
begin
hasil:=1;
for i:=1 to b do
begin
hasil:=hasil*a;
end;
end;

procedure inputan(var a:integer);
begin
writeln(‘Hasil ‘,a ,’ pangkat ‘ , b , ‘ adalah ‘, hasil(a,b));
end;

procedure SifatPangkatBulat;
var a,b,i:integer;
var hasil:longint;
begin
clrscr;
hasil:=1;
writeln(‘Sifat-Sifat Pangkat Bulat’);
garis;
writeln(‘Pada dasarnya sifat-sifat pangkat bulat memiliki keterkaitan dengan rumus-rumus pangkat rasional.’);
readln;
write (‘Seperti :’);
writeln(’5^-3*5^2 = 5^(-3+2) = 5^-1′);
readln;
write (‘Artinya :’);
writeln(‘a^p * a^q = a^p+q’);
readln;
garis;
writeln(‘Contoh : ‘);
garis;
readln;
writeln(‘Jika 3^3 * 3^2 berapakah hasilnya (diartikan a^b?..’);
readln;
writeln(‘masukkan jawaban anda ke dalam program di bawah ini (a^b)? ‘);
writeln(‘masukan bilangan (a) : ‘);
readln(a);
writeln(‘dipangkatkan berapa (b): ‘);
readln(b);
inputan (b)
end;

procedure NotasiBaku;
var pilih,lagi : char;
var jawaban :real;
begin
clrscr;
writeln(‘Notasi Baku’);
garis;
writeln(‘Notasi baku atau notasi ilmiah adalah suatu bilangan yang dapat ditulis dalam bentuk eksponen yaitu ( a*10^n) ‘);
readln;
writeln(‘dengan a bilangan rasional (1 <= a < 10)');
readln;
writeln(‘contoh :’);
readln;
writeln(‘massa planet saturnus = 569 000 000 000 000 000 000 000 000 kg’);
readln;
writeln(‘notasi bakunya dapat ditulis : 5,69 x 10^26 kg’);
readln;
garis;
writeln(‘Latihan Soal’);
garis;
readln;
writeln(‘Jika kecepatan cahaya ditulis 2,99918 X 10^8 meter per detik, bagaimana penulisan angkanya?..’);
readln;
write (‘masukkan jawaban anda : ‘);
readln (jawaban);
if (jawaban=299918000) then write(‘Anda Benar’)
else write (‘Anda Salah’);
garis;
readln;
end;

procedure pesanlokasiArray;
var nama:array[1..2] of string;
var i: integer;

begin
clrscr;
for i:= 1 to 2 do
begin
write(‘Masukan angka ke’,i,’(ket: untuk angka kedua tulis 10^ lalu pilih angka yg diinginkan: ‘);
readln(nama[i]);
end;
writeln(‘notasi bakunya menjadi ‘,nama[1],’x’,nama[2]);
readln;
end;

begin
gotoxy(30,3);
writeln(‘* SELAMAT DATANG *’);
readln;
gotoxy(25,7);
writeln(‘Ini Adalah Program Pangkat Bulat ‘);
readln;
clrscr;
write( ‘Silahkan Masukan Nama Anda : ‘);
readln(nama);
write( ‘Silahkan Masukan Prodi Anda : ‘);
readln(prodi);
clrscr;
write (‘SELAMAT, Anda Dapat Melihat Program Ini’);
readln;
clrscr;

repeat
clrscr;
garis;
writeln(‘Program Pangkat Rasional’);
garis;
writeln(’1.sifat-sifat pangkat bulat’);
writeln(’2.notasi baku’);
writeln(’3.pesan Lokasi Array’);

garis;
write(‘pilih yang ingin Anda ketahui?: ‘);
readln(pilih);
case pilih of
’1′:SifatPangkatBulat;
’2′:Notasibaku;
’3′:pesanLokasiArray;

else
writeln(‘pilih sesuai dengan menu’);
writeln;
end;
write(‘Apakah Anda Masih Ingin Lanjut?? Silahkan [TEKAN y/t]: ‘);readln(tanya);
until (tanya=’t’) or (tanya=’T’);
clrscr;
writeln(‘Terima Kasih Atas Kunjungannya di Program ini’);
writeln(‘Sampai Jumpa’);
writeln(‘GOMMAWOO….’);
writeln(‘ ^_- ‘);
writeln(‘blooz_som@yahoo.com’);

end.

About these ads