TUGAS 1 : Sifat-sifat logaritma

writeln(‘SIFAT-SIFAT LOGARITMA’);

readln ;

writeln(‘Sifat 1’);

writeln(‘^glog(a x b)=^log a + ^log b’);

readln ;

writeln(‘Sifat 2’);

writeln(‘^glog(a/b)=^log a – ^log b’);

readln ;

writeln(‘Sifat 3’);

writeln(‘^glog a^)=n x g^log a’);

readln ;

writeln(‘Sifat 4’);

writeln(‘^glog a)=^plog a/^plog g’);

readln ;

writeln(‘Sifat 5’);

readln ;

writeln(‘(1) g^log a x ^alog b=g^log b’);

writeln(‘(1) gn^log a^m= g^m/n g^log a’);

writeln(‘(1) gn^log an^=g^log a’);

readln ;

writeln(‘Sifat 6’);

writeln(‘g^glog a)=a’);

end.

TUGAS 2 : PROGRAM CASE_OF

program CASE_PILIHAN;

uses

wincrt;

var

pilih:char;

procedure

pengurangan;

var

bil1,bil2:integer;

var

hasil:real;

begin

clrscr;

writeln(‘ANDA MASUK DALAM PROGRAM PENGURANGAN’);readln;

write(‘Masukkan Bilangan Bulat pertama: ‘);readln(bil1);

write(‘Masukkan Bilangan Bulat kedua: ‘);readln(bil2);

hasil :=bil1+bil2;

write (‘hasil pengurangan ‘,bil1,’ dengan ‘,bil2,’ adalah:’,hasil:3:0);readln;

write(‘selamat anda BENAR’);

end;

begin

write(‘pilih salah satu yang merupakan sifat logaritma’);

readln (pilih);

case pilih of

‘1’:write(‘g^log(axb)= g^log a + g^log b)’);

‘2’:write(‘g^log g^n= n’);

‘3’:write (‘g^log 1 = 0’);

else

write (‘COBA BACA YANG BENAR!!!’);

end;

end.

TUGAS 3

Program menuOke;

uses wincrt;

var tanya,pilih: char;

procedure kali ;

var a,b,hasil:integer;

begin

clrscr;

writeln(‘OPERASI PERKALIAN’);

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

write(‘masukan bilangan ke-1:’);

readln(a);

write(‘masukan bilangan ke-2:’);

readln(b);

hasil:=a*b;

writeln(‘hasil kali’,a,’dengan’,b,’adalah’,hasil);

end;

procedure bagi ;

var a,b,hasil:real;

begin

clrscr;

writeln(‘OPERASI PEMBAGIAN’);

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

write(‘masukan bilangan ke-1:’);

readln(a);

write(‘masukan bilangan ke-2:’);

readln(b);

hasil:=a/b;

writeln(‘hasil bagi’,a,’dengan’,b,’adalah’,hasil);

end;

procedure pangkat ;

var a,b,hasil:integer;

begin

writeln(‘OPERASI PERKALIAN’);

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

writeln(‘masukan bilangan ke-1:’);

readln(a);

writeln(‘masukan bilangan ke-2:’);

readln(b);

hasil:=a*b;

writeln(‘hasil kali’,a,’dengan’,b,’adalah’,hasil);

end;

procedure akar ;

var a,b,hasil:integer;

begin

writeln(‘OPERASI PERKALIAN’);

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

writeln(‘masukan bilangan ke-1:’);

readln(a);

writeln(‘masukan bilangan ke-2:’);

readln(b);

hasil:=a*b;

writeln(‘hasil akar’,a,’dengan’,b,’adalah’,hasil);

end;

begin

repeat

clrscr;

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

writeln(‘PROGRAM OPERASI MATEMATIKA’);

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

writeln(‘1.perkalian’);

writeln(‘2.pembagian’);

writeln(‘3.perpangkatan’);

writeln(‘4.pengakaran’);

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

write(‘masukan pilihan anda:…’);

readln(pilih);

case pilih of

‘1’: kali;

‘2’:bagi;

‘3’:pangkat;

‘4’:akar;

else

writeln;

writeln(‘Pilih seuai menu!!!’);

end;

write (‘Anda Masih Mau Lanjut[TEKAN y/t]:….’);

readln (tanya);

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

clrscr;

writeln(‘TERIMAKASIH ANDA TELAH MEMAKAI PROGRAM KAMI’);

writeln(‘nade.miobi02@gmail.com’);

writeln(‘sampai jumpa’);

end.

program forulangterbata;

uses wincrt;

var i:byte;

var hasil:longint;

begin

hasil:=1;

for i:= 1 to 8 do

begin

hasil:=hasil*i;

writeln(hasil);

end;

end.

program forulangterbata;

uses wincrt;

var i, bil, hasil1,hasil2:byte;

begin

writeln(‘masukan bilangan:’);

readln(bil);

hasil1:=bil mod 2;

hasil2:=bil mod 3;

if hasil1=0 then writeln(bil,’mempunyai faktor 2′) ;

if hasil1=0 then writeln(bil,’mempunyai faktor 3′)

else

writeln(bil,’mungkin mempunyai faktor yang lain’);

end.

begin

write(‘pilih salah satu yang merupakan sifat logaritma’);

readln (pilih);

case pilih of

‘1’:write(‘g^log(axb)= g^log a + g^log b)’);

‘2’:write(‘g^log g^n= n’);

‘3’:write (‘g^log 1 = 0’);

else

write (‘COBA BACA YANG BENAR!!!’);

end;

end.

TUGAS 4

 

program funcDanproc_dan_PesanLokasiArray ;
uses wincrt;
var maju :longint ;
var nama :string;
var angka, angka6, angka4: longint;

var sifat-sifat logaritma :array [1..5] of longint;
var i:longint;
var aha: byte;

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

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

procedure apaaja(var a:longint);

function hasil (var a:longint) : longint ;
begin
hasil :=angka*a*a+angka6*a+angka4;
end;

begin
for i :=1 to 5 do
begin

writeln(‘SIFAT-SIFAT LOGARITMA’);

readln ;

writeln(‘Sifat 1’);

writeln(‘^glog(a x b)=^log a + ^log b’);

readln ;

writeln(‘Sifat 2’);

writeln(‘^glog(a/b)=^log a – ^log b’);

readln ;

writeln(‘Sifat 3’);

writeln(‘^glog a^)=n x g^log a’);

readln ;

writeln(‘Sifat 4’);

writeln(‘^glog a)=^plog a/^plog g’);

readln ;

writeln(‘Sifat 5’);

readln ;

writeln(‘(1) g^log a x ^alog b=g^log b’);

writeln(‘(1) gn^log a^m= g^m/n g^log a’);

writeln(‘(1) gn^log an^=g^log a’);

readln ;

writeln(‘Sifat 6’);

writeln(‘g^glog a)=a’);

end.