"Semoga Bermanfaat :)"
Salam Pencari Ilmu !!
Jumat, 29 September 2017
Soal Jawaban Teori Bahasa dan Otomata
Berikut saya sajikan link contoh soal dan jawaban tentang Teori Bahasa dan Otomata
https://goo.gl/KJ1Rtq
"Semoga Bermanfaat" :)
Salam Pencari Ilmu !!
https://goo.gl/KJ1Rtq
"Semoga Bermanfaat" :)
Salam Pencari Ilmu !!
Minggu, 14 Mei 2017
Prosedur dan Fungsi dari Luas(Segitiga, lingkaran, bujur sangkar) dan Volume(Kerucut, bola, kubus) serta Flowchart dari Keduanya
Salam Pencari Ilmu...
Kali ini saya akan berbagi tentang prosedur dan fungsi dari luas(segitiga, lingkaran, bujur sangkar) dan volume(kerucut, bola, kubus) serta flowchart dari keduanya.
Semoga bermanfaat dan mohon tinggalkan komentar bila ada yang perlu dikoreksi.
Selamat Belajar... :)
Berikut Fungsi dari Luas
Segitiga, Lingkaran dan Bujur Sangkar
program hitungluas;
uses crt;
var
pilih : integer;
hasil : real;
ulang : char;
function menu :
integer;
var pil:integer;
begin
writeln('====================');
writeln('Program
Hitung Luas');
writeln('====================');
writeln('1. Hitung
Luas Segitiga ');
writeln('2. Hitung
Luas Lingkaran');
writeln('3. Hitung
Luas Bujur Sangkar');
writeln('==============================');
write ('Pilihan Anda: '); readln (pil);
writeln('==============================');
menu := pil;
end;
function segitiga :
real;
var a, t : real;
begin
write('Alas Segitiga :
');readln(a);
write('Tinggi Segitiga
: '); readln(t);
segitiga := 0.5*a*t;
end;
function lingkaran :
real;
var
pi, r : real;
begin
write('Jari-jari
Lingkaran: ');
read(r);
pi := 3.14;
lingkaran := pi*r*r;
end;
function bujur_sangkar
: real ;
var s : real;
begin
write('Masukkan nilai
sisi : ');
readln(s);
bujur_sangkar := s*s;
end;
begin
repeat
clrscr;
pilih := menu;
case pilih of
1 : hasil := segitiga
;
2 : hasil :=
lingkaran;
3 : hasil :=
bujur_sangkar ;
else writeln('Pilihan
Anda Salah!');
writeln('==============================');
end;
if (pilih < 4) and
(pilih > 0) then
begin
writeln('==============================');
writeln('Hasil
Perhitungan: ',hasil:5:2);
writeln('==============================');
end;
write('Coba lagi?
(y/n) : ');
readln(ulang);
until (ulang = 'n') or
(ulang = 'N') ;
end.
Berikut Prosedur dari Luas
Segitiga, Lingkaran dan Bujur Sangkar
program
prosedur_luas_slb;
uses
wincrt;
var
s,r,a,t,luas:real;
procedure
segitiga;
begin
writeln
('Luas Segitiga');
write
('Masukkan Nilai Alas ='); readln (a);
write
('Masukkan Nilai Tinggi ='); readln (t);
Luas :=
1/2*(a*t);
writeln
('Luas Segitiga =',Luas:2:3);
end;
procedure
lingkaran;
begin
writeln
('Luas Lingkaran');
write
('Masukkan jari-jarinya ='); readln (r);
Luas :=
3.14 *r*r ;
writeln
('Luas Lingkaran =', Luas:0:2);
end;
procedure
bujur_sangkar;
begin
writeln
('Luas Bujur Sangkar');
write
('Masukkan Nilai Sisi ='); readln (s);
Luas :=
s*s;
writeln
('Luas Bujur Sangkar =', Luas:0:0);
end;
Var
pilihan:char;
akhir:boolean;
Begin
writeln('PROGRAM
MENGHITUNG LUAS');
writeln('1.
Menghitung Luas Segitiga');
writeln('2.
Menghitung Luas Lingkaran');
writeln('3.
Menghitung Luas Bujur Sangkar');
writeln('==========================================');
writeln('|
Untuk mengakhiri program ketik huruf x |');
writeln('==========================================');
writeln;
Repeat
akhir:=false;
write('ketikan
pilihan anda = ');
readln(pilihan);
writeln;
case
pilihan of
'1' : Begin
segitiga;
writeln;
end;
'2' : Begin
lingkaran;
writeln
end;
'3' : Begin
Bujur_sangkar;
writeln;
end;
'x' : Begin
akhir:=true;
end;
else begin
writeln('PILIHAN
SALAH !!! MOHON COBA LAGI ??');
end;
end;
until(akhir);
end.
Berikut Fungsi dari Volume Kerucut, Bola dan Kubus
program
hitungvolume;
uses crt;
var
pilih :
integer;
hasil :
real;
ulang :
char;
function
menu : integer;
var
pil:integer;
begin
writeln('====================');
writeln('Program
Hitung volume');
writeln('====================');
writeln('1.
Hitung Volume kerucut ');
writeln('2.
Hitung Volume Bola');
writeln('3.
Hitung Volume Kubus');
writeln('==============================');
write ('Pilihan Anda: '); readln (pil);
writeln('==============================');
menu :=
pil;
end;
function
kerucut : real;
var r, t: real;
begin
write('Masukkan
jari-jari kerucut: ');readln(r);
write('Masukkan
tinggi kerucut: '); readln(t);
kerucut :=
(3.14*r*r*t)/3;
end;
function
bola : real;
var
r : real;
begin
write('Masukkan
Jari-jari Lingkaran: ');readln(r);
bola :=
4/3*(3.14*r*r*r);
end;
function
kubus: real ;
var s: real;
begin
write('Masukkan
nilai sisi : ');readln(s);
kubus :=
s*s*s;
end;
begin
repeat
clrscr;
pilih :=
menu;
case pilih
of
1 : hasil :=
kerucut ;
2 : hasil
:= bola;
3 : hasil
:= kubus ;
else
writeln('Pilihan Anda Salah!');
writeln('==============================');
end;
if (pilih
< 4) and (pilih > 0) then
begin
writeln('==============================');
writeln('Hasil
Perhitungan: ',hasil:5:2);
writeln('==============================');
end;
write('Coba
lagi? (y/n) : ');
readln(ulang);
until
(ulang = 'n') or (ulang = 'N') ;
end.
Berikut Prosedur dari Volume Kerucut, Bola, dan Kubus
program
prosedur_volume;
uses
wincrt;
var
s,r,t,volume:real;
procedure
kerucut;
begin
writeln
('Volume Kerucut');
write
('Masukkan Jari-jari kerucut ='); readln (r);
write ('Masukkan
Tinggi Kerucut ='); readln (t);
volume :=
(3.14*r*r*t)/3;
writeln
('Luas Kerucut =',volume:6:2);
end;
procedure
bola;
begin
writeln
('Volume Bola');
write
('Masukkan jari-jarinya ='); readln (r);
volume :=
4/3*(3.14*r*r*r);
writeln
('Volume Bola =', volume:8:2);
end;
procedure
kubus;
begin
writeln
('Volume Kubus');
write
('Masukkan Nilai Sisi ='); readln (s);
volume :=
s*s*s;
writeln
('Volume Kubus =', volume:5:2);
end;
Var
pilihan:char;
akhir:boolean;
Begin
writeln('PROGRAM
MENGHITUNG VOLUME');
writeln('1.
Menghitung Volume Kerucut');
writeln('2.
Menghitung Volume Bola');
writeln('3.
Menghitung Volume Kubus');
writeln('==========================================');
writeln('|
Untuk mengakhiri program ketik huruf x |');
writeln('==========================================');
writeln;
Repeat
akhir:=false;
write('ketikan
pilihan anda = ');
readln(pilihan);
writeln;
case
pilihan of
'1' : Begin
kerucut;
writeln;
end;
'2' : Begin
bola;
writeln
end;
'3' : Begin
kubus;
writeln;
end;
'x' : Begin
akhir:=true;
end;
else begin
writeln('PILIHAN
SALAH !!! MOHON COBA LAGI ??');
end;
end;
until(akhir);
end.
Sekian....
See u next time :)
Minggu, 09 April 2017
Penggunaan For, While dan Repeat untuk menghitung rata-rata.
Dibawah ini akan dipaparkan beberapa contoh penggunaan for, while dan repeat untuk menghitung rata-rata meliputi pseudocode, program (pascal) dan hasil screenshotnya.
Mari simak dan selamat belajar ... :)
Algoritma Menghitung_rerata
{menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
DEKLARASI
k : integer {Pencacah banyak bilangan}
n : integer {Banyak bilangan}
x : integer {Bilangan bulat yang dibaca}
jumlah : integer {Pencatat jumlah bilangan}
rerata : real {Rata-rata bilangan}
DESKRIPSI
read (n)
jumlah ← 0
for k ← 1 to n do
read (x)
jumlah ← jumlah + x
endfor
rerata ← jumlah/n
write (rerata)
b. Program
Program Menghitung_rerata;
uses wincrt;
var
k, n, x, jumlah : integer;
rerata : real;
begin
write ('Banyak data:');
readln (n);
jumlah := 0 ;
for k := 1 to n do begin
write ('Data ke-', k, ':');
readln (x);
jumlah := jumlah+x;
end;
rerata := jumlah/n;
writeln ('Rata-rata :', rerata:6:3);
readln;
end.
c. Hasil screeshoot
Algoritma Menghitung_rerata
{menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
DEKLARASI
k : integer {Pencacah banyak bilangan}
n : integer {Banyak bilangan}
x : integer {Bilangan bulat yang dibaca}
jumlah : integer {Pencatat jumlah bilangan}
rerata : real {Rata-rata bilangan}
DESKRIPSI
read (n)
jumlah ← 0
k ← 1
while k < n do
read (x)
jumlah ← jumlah + x
endwhile
rerata ← jumlah/n
write (rerata)
b. Program
Program Menghitung_rerata;
uses wincrt;
var
k, n, x, jumlah : integer;
rerata : real;
begin
write ('Banyak data:');
readln (n);
jumlah := 0 ;
k := 1;
while k <= n do
begin
write ('Data ke-', k, ':');
readln (x);
jumlah := jumlah+x;
k := k + 1;
end;
rerata := jumlah/n;
writeln ('Rata-rata :', rerata:6:3);
readln;
end.
c. Hasil screeshoot
Algoritma Menghitung_rerata
{menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
DEKLARASI
k : integer {Pencacah banyak bilangan}
n : integer {Banyak bilangan}
x : integer {Bilangan bulat yang dibaca}
jumlah : integer {Pencatat jumlah bilangan}
rerata : real {Rata-rata bilangan}
DESKRIPSI
read (n)
jumlah ← 0
k ← 1
repeat
read (x)
jumlah ← jumlah + x
k ← k + 1
until k > n
rerata ← jumlah/n
write (rerata)
b. Program
Program Menghitung_rerata;
uses wincrt;
var
k, n, x, jumlah : integer;
rerata : real;
begin
write ('Banyak data:');
readln (n);
jumlah := 0 ;
k := 1;
repeat
begin
write ('Data ke-', k, ':');
readln (x);
jumlah := jumlah+x;
k := k + 1;
end;
until k > n;
rerata := jumlah/n;
writeln ('Rata-rata :', rerata:6:3);
readln;
end.
c. Hasil screeshoot
Sekian beberapa contoh penggunaan for, while dan repeat untuk menghitung rata-rata meliputi pseudocode, program (pascal) dan hasil screenshotnya.
Semoga bermanfaat dan semangat belajar :)
Mari simak dan selamat belajar ... :)
1. Penggunaan For
a. PseudocodeAlgoritma Menghitung_rerata
{menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
DEKLARASI
k : integer {Pencacah banyak bilangan}
n : integer {Banyak bilangan}
x : integer {Bilangan bulat yang dibaca}
jumlah : integer {Pencatat jumlah bilangan}
rerata : real {Rata-rata bilangan}
DESKRIPSI
read (n)
jumlah ← 0
for k ← 1 to n do
read (x)
jumlah ← jumlah + x
endfor
rerata ← jumlah/n
write (rerata)
b. Program
Program Menghitung_rerata;
uses wincrt;
var
k, n, x, jumlah : integer;
rerata : real;
begin
write ('Banyak data:');
readln (n);
jumlah := 0 ;
for k := 1 to n do begin
write ('Data ke-', k, ':');
readln (x);
jumlah := jumlah+x;
end;
rerata := jumlah/n;
writeln ('Rata-rata :', rerata:6:3);
readln;
end.
c. Hasil screeshoot
2. Penggunaan While
a. PseudocodeAlgoritma Menghitung_rerata
{menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
DEKLARASI
k : integer {Pencacah banyak bilangan}
n : integer {Banyak bilangan}
x : integer {Bilangan bulat yang dibaca}
jumlah : integer {Pencatat jumlah bilangan}
rerata : real {Rata-rata bilangan}
DESKRIPSI
read (n)
jumlah ← 0
k ← 1
while k < n do
read (x)
jumlah ← jumlah + x
endwhile
rerata ← jumlah/n
write (rerata)
b. Program
Program Menghitung_rerata;
uses wincrt;
var
k, n, x, jumlah : integer;
rerata : real;
begin
write ('Banyak data:');
readln (n);
jumlah := 0 ;
k := 1;
while k <= n do
begin
write ('Data ke-', k, ':');
readln (x);
jumlah := jumlah+x;
k := k + 1;
end;
rerata := jumlah/n;
writeln ('Rata-rata :', rerata:6:3);
readln;
end.
3. Penggunaan Repeat
a. PseudocodeAlgoritma Menghitung_rerata
{menghitung rata-rata n yang dibaca dari peranti masukan, n > 0}
DEKLARASI
k : integer {Pencacah banyak bilangan}
n : integer {Banyak bilangan}
x : integer {Bilangan bulat yang dibaca}
jumlah : integer {Pencatat jumlah bilangan}
rerata : real {Rata-rata bilangan}
DESKRIPSI
read (n)
jumlah ← 0
k ← 1
repeat
read (x)
jumlah ← jumlah + x
k ← k + 1
until k > n
rerata ← jumlah/n
write (rerata)
b. Program
Program Menghitung_rerata;
uses wincrt;
var
k, n, x, jumlah : integer;
rerata : real;
begin
write ('Banyak data:');
readln (n);
jumlah := 0 ;
k := 1;
repeat
begin
write ('Data ke-', k, ':');
readln (x);
jumlah := jumlah+x;
k := k + 1;
end;
until k > n;
rerata := jumlah/n;
writeln ('Rata-rata :', rerata:6:3);
readln;
end.
Sekian beberapa contoh penggunaan for, while dan repeat untuk menghitung rata-rata meliputi pseudocode, program (pascal) dan hasil screenshotnya.
Semoga bermanfaat dan semangat belajar :)
Langganan:
Postingan (Atom)