Tugas 1:

program Logaritma ;

uses wincrt ;

var nama : string ;

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

var jadi  : real ;

begin

writeln (‘assalamualaikum’);

readln ;

writeln (‘salam hangat dari saya’);

readln ;

clrscr ;

write (‘silakan masukkan nama anda : ‘);

readln (nama);

write (‘Ooh. Nama anda ‘);

write (nama);

writeln (‘, terima kasih telah bergabung’);

readln ;

clrscr ;

writeln (‘penggunaan logaritma dalam perhitungan’);

readln ;

writeln (‘mengalikan dan membagi bilangan’);

readln ;

writeln (‘soal pertama’);

writeln (‘dengan menggunakan logaritma hitunglah perkalian di bawah ini : ‘);

readln ;

write (‘masukkan angka 1 : ‘);

readln (angka);

write (‘masukkan angka 2 : ‘);

readln (angka2);

write (‘hasilnya adalah : ‘);

hasil :=(angka*angka2);

writeln (hasil:2:2);

writeln (‘perhitungan tersebut sangat bermanfaat jika disajikan dalam bentuk tabel’);

readln ;

writeln (‘hasil dari perhitungan tersebut kemudian dicari di tabel logaritma’);

readln;

writeln (‘soal kedua’);

writeln (‘dengan menggunakan logaritma hitunglah pembagian di bawah ini : ‘);

readln ;

write (‘masukkan angka 1 : ‘);

readln (nomor);

write (‘masukkan angka 2 : ‘);

readln (nomor2);

write (‘hasilnya adalah : ‘);

jadi :=(nomor/nomor2);

writeln (jadi:2:2);

readln ;

writeln (‘hasil dari perhitungan tersebut kemudian dicari di tabel logaritma’);

readln;

readln ;

writeln (‘sekian dan terima kasih’);

end.

Tugas 2:

program matematika;

uses wincrt;

var pilih:char;

var a1,b1,a2,b2,a3,p:real;

var hasil1,hasil2,hasil3:real;

procedure sifatpertama ;

begin

clrscr ;

writeln(‘1. Sifat pertama: log(a*b) = log a+log b’);

writeln(‘Sehingga: ‘);

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

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

hasil1:=a1+b1;

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

writeln(‘Maka,log a(a*b) = log a+log b’);

writeln;

end;

procedure sifatkedua ;

begin

clrscr ;

writeln(‘2. Sifat kedua:log(a:b) =log a-log b’);

writeln(‘Sehingga: ‘);

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

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

hasil2:=a2-b2;

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

writeln;

end;

procedure sifatketiga ;

begin

clrscr ;

writeln(‘3.sifat ketiga:log a^p=p*log a,(p bilangan rasional positif)’);

writeln(‘Sehingga:’);

write(‘masukkan nilai a a^p:’);readln(a3);

write(‘masukan nilai p a^p:’);readln(p);

hasil3:=p*a3;

writeln(‘hasil pemangkatan dan penarikan akar:’,hasil3:0:1);

writeln;

end;

begin

writeln(‘penggunaan logaritma dalam perhitungan’);

write(‘Pilih salah satu Sifat logaritma berbagai perhitungan [1][2][3]: ‘);readln(pilih);

clrscr;

case pilih of

‘1’: sifatpertama ;

‘2’: sifatkedua ;

‘3’: sifatketiga;

else

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

end;

end.

Tugas 3

program menuoke;

uses wincrt;

var tanya,pilih:char;

procedure mengalikanLogaritma;

var a,b,hasil:integer;

begin

clrscr;

writeln(‘MENGALIKAN BILANGAN MENGGUNAKAN LOGARITMA’);

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

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

readln(a);

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

readln(b);

hasil:=log(a*b);

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

end;

procedure membagiLogaritma;

var a,b:intrger;

var hasil:real;

begin

clrscr;

writeln(‘MEMBAGI BILANGAN MENGGUNAKAN LOGARITMA’);

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

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

readln(a);

writeln(‘masukan bilangan ke-2’);

readln(b);

hasil:=log(a/b);

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

end;

procedure pemangkatanLogaritma;

var a,b,i:integer;

var hasil:longint;

begin

clrscr;

hasil:=1;

writeln(‘PEMANGKATAN LOGARITMA’);

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

writeln(‘masukan bilangan;’);

readln(a);

writeln(‘dipangkatkan berapa?:’);

readln(b);

for i:=1 to b do

begin

hasil:=hasil*a;

end;

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

end;

begin

repeat

clrscr;

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

writeln(‘penggunaan logaritma dalam perhitungan’);

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

writeln(‘1.perkalian logaritma’);

writeln(‘2.pembagian logaritma’);

writeln(‘3.pemangkatan logaritma’);

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

write(‘masukkan pilihan anda:…….’);

readln(pilih);

case pilih of

‘1’:perkalian logaritma ;

‘2’:pembagian logaritma;

‘3’:pemangkatan logaritma;

else

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

writeln;

end;

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

readln(tanya);

until tanya=’t’;

clrscr;

writeln(‘TERIMAKASIH ANDA TELAH MENGGUNAKAN PROGRAM INI’);

writeln(‘oktovia.nita@gmail.com’);

writeln(‘sampai jumpa’);

end.

 

Tugas 4:

program funcDanproc_dan_PesanLokasiArray ;
uses wincrt;
var input:longint ;
var nama :string;
var angka, angka2: longint;

var nama1:array[1..5]of longint;
var i,aha,log:longint;

procedure garis1;
begin
writeln(‘***************************’);
end;

function hasil (var a:longint) : longint ;
begin
hasil :=angka+angka2;
end;

procedure inputan(var a:longint);
begin
for i :=1 to 5 do
begin
write (‘Masukkan nilai untuk log ke-‘,i,’ = ‘);
readln (nama1[i]);

end;

writeln;

write (‘Pilih salah satu log ke berapa yang anda minta log ke- : ‘);
readln (aha) ;
writeln (‘Maka log ke-‘,aha,’ adalah ‘,nama1[aha]);
writeln (‘Jika ditulis maka di dapat Log ‘,nama1[aha]);
write (‘Log ‘,nama1[aha],’ jika dikalikan dengan Log ‘);
readln (log);
writeln (‘Maka Log (‘,nama1[aha],’ x ‘,log,’) = ‘,’Log ‘,nama1[aha],’ + ‘,’Log ‘,log);

end;

begin
garis1 ;
writeln (‘Program Perkalian logaritma’);
garis1;
writeln ;
writeln (‘Masukkan perkalian logaritma yang Anda Mau : ‘);
write (‘Angka Pertama : ‘);
readln (angka);
write (‘Angka Kedua : ‘);
readln (angka2);
writeln (‘Didapat Log (‘,angka,’ x ‘,angka2,’) = ‘,’Log’,angka,’ + ‘,’Log’,angka2);
readln ;
clrscr ;
inputan (input);
end.