TUGAS I : Pengertian Logaritma

program Logaritma ;

uses wincrt ;

var nama : string ;

var angka, angka2, hasil, nomor, nomor2 :integer;

var jadi  : real ;

begin

writeln (‘assalamualaikum’);

readln ;

writeln (‘salam manis’);

readln ;

clrscr ;

write (‘silakan masukkan nama anda : ‘);

readln (nama);

write (‘bagus sekali. Nama anda ‘);

writeln (nama);

writeln (‘selamat datang diprogram ini’);

readln ;

clrscr ;

writeln (‘pengertian logaritma ‘);

readln ;

writeln (‘Logaritma bilangan :’);

readln ;

writeln (‘Misalkan a adalah bilangan positif (a>0) dan g adalah bilangan positif yang’);

writeln (‘tidak sama dengan 1 (0<g<1 atau g>1).’);

writeln (‘g log a = x jika dan hanya jika g^x = a’ );

readln ;

write (‘sifat-sifat pokok logaritma ‘);

readln ;

write (‘g log g^n = n ‘);

readln ;

write (‘g log g = 1’);

readln ;

writeln (‘g log 1 = 0’);

writeln (‘soal pertama’);

writeln (‘nyatakan bentuk eksponen di bawah ini dengan memakai notasi logaritma’);

writeln (‘dari 5^2 = 25’);

write (‘masukan angka 5 :’);

readln (angka);

write (‘masukan angka 5 :’);

readln (angka2);

hasil:=(angka*angka2);

writeln(‘hasilnya adalah :’, angka,’*’,angka2, ‘=’,hasil);

write (‘jadi, 5 log 25 = 2 ‘)

end.

TUGAS II : Case 0f…, prosedur if, while..do,repeat..until

program casePilih;
uses wincrt;
var pilih:char;
var nama : string ;
var a,g,n,p,angka,angka1, angka2, hasil1, nomor, nomor2 :integer;
var jadi :real;

begin
writeln(‘Definisi logaritma’);
writeln(‘pilih salah satu keterangan logaritma yang anda inginkan’);
write (‘dengan bentuk p log a = n, [1][2][3][4]:’);readln(pilih);
clrscr;
case pilih of
‘1’:writeln(‘p disebut bilangan pokok, syaratnya p>0 dan p tidak sama dengan 1’);
‘2’:writeln(‘a disebut numerus (bilangan yang dicari logaritmanya), syaratnya a>0’);
‘3’:writeln(‘n disebut hasil logaritma bisa positif, nol ataupun negatif’);
‘4’:writeln(‘p log a = n jika dan hanya jika p^n = a’);
else
write(‘Baca lagi dengan benar!!’);
end;

if (pilih=’4′) then ;
begin
writeln(‘dari bentuk p log a = n, keterangan n^2 dan koefisien dari n harus sama’);
writeln(‘menghitung nilai log : ‘);
write(‘masukkan angka :’);
readln(angka1);
write(‘masukan angka :’);
readln(angka2);
hasil1:=(angka1*angka2);
writeln(‘hasilnya adalah :’, angka1,’*’,angka2, ‘=’,hasil1);
writeln(‘berdasarkan definisi p^n = a maka p log a = n ‘);
writeln(‘hasil logaritma,bisa positif,nol, ataupun negatif.’);
end;

readln;
begin
angka:=-4;
while angka<6 do
begin
angka:= angka+1;
writeln (angka);
end;

begin
angka:=6;
angka2:=1;
repeat
angka:=angka+1;
writeln (angka);
until angka>8;
end;
end
end.

TUGAS lll : Menuoke

program menuOke_pengertian_logaritma;

uses wincrt;

var tanya,pilih:char;

procedure notasi_1;

var a,c,b,i:integer;

var hasil:longint;

begin

clrscr;

hasil:=1;

writeln(‘Bentuk eksponen ke notasi logaritma: a^c = b => a log b = c’);

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

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

write(‘mau pangkat berapa?(c):’);readln(c);

for i:=1 to c do

begin

hasil:=hasil*a;

end;

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

writeln(‘jadi, bentuk eksponen dari a^c = b, notasi logaritmanya a log b = c’);

end;

procedure notasi_2;

var a,hasil:integer;

begin

clrscr;

writeln(‘Bentuk logaritma ke notasi eksponen :a log b = c => a^c = b’);

writeln(‘(dengan c = a*a*a)’);

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

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

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

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

hasil:=a*a*a;

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

writeln(‘jadi, bentuk logaritma dari a log b = c, notasi eksponennya a^c = b ‘);

end;

begin

repeat

clrscr;

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

writeln(‘Program “Merubah bentuk eksponen ke notasi logaritma atau sebaliknya”‘);

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

writeln(‘1.eksponen => logaritma: a^c = b => a log b = c’);

writeln(‘2.logaritma => eksponen: a log b = c => a^c = b’);

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

write(‘Pilih “Program Merubah Bentuk logaritma ke eksponen atau sebaliknya”: ‘);

readln(pilih);

case pilih of

‘1’:Notasi_1;

‘2’:Notasi_2;

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(‘Terimakasih anda sudah mau mencoba program ini…’);

writeln;

writeln(‘cc_sm_12@rocketmail.com’);

writeln(‘… (._.) …’);

writeln(‘    (6 6)’);

end.

TUGAS IV : Funcdanproc dan Array..

program funcDanproc;
uses wincrt;
var nama :array [1..2]  of string;
var a,b:string;
var input:string;
var i:integer;
procedure garis;
begin
writeln (‘=========================================================’);
end;
function siqt(var p,q:string) : string;
begin
write(p,’ yaitu ‘ ,q);
end;
procedure
inputan (var b:string);
begin
writeln;
end;
begin
garis;
writeln (‘1.program merubah bentuk eksponen ke bentuk logaritma’);
garis;
write(‘masukan bentuk yang anda mau: ‘);
readln (a);
write(‘masukan bentuk yang anda mau: ‘);
readln (b);
inputan(b);
begin
garis;
writeln ( ‘<=> bentuk eksponen dari: ‘,siqt(a,b));
garis;
end;
garis;
writeln(‘2.program merubah bentuk logaritma ke bentuk eksponen’);
garis;
write(‘masukan bentuk yang anda mau: ‘);
readln (a);
write(‘masukan bentuk yang anda mau: ‘);
readln (b);
inputan(b);
begin
garis;
writeln ( ‘<=> bentuk logaritma dari: ‘,siqt(a,b));
garis;
end;
begin
for i:= 1 to 2 do
begin
writeln;
write(‘masukan program ke-‘,i,’ : ‘);
readln(nama[i]);
end;
writeln;
writeln;
writeln(‘@ program yang anda buat  ‘,nama[1],’ dan ‘,nama[2],’ ,sudah berhasil !!!’);
end
end.