Transcript Minggu V Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman I Variabel   Variabel adalah identifier yang berisi data yang dapat diubah-ubah nilainya didalam program.  Dengan.

Minggu V
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
1
Variabel

 Variabel adalah identifier yang berisi data yang dapat diubah-ubah nilainya
didalam program.
 Dengan keyword Var
 Contoh :
Uses wincrt;
Var
Luas, Panjang, Lebar, Tinggi : Integer;
Keterangan : String;
Begin
Write ('Masukan Panjang : ');
ReadLn (Panjang);
Write ('Masukan Lebar : ');
ReadLn (Lebar);
Write ('Masukan Tinggi : ');
ReadLn (Tinggi);
Luas := Panjang * Lebar * Tinggi;
Keterangan := 'Luas Persegi Panjang adalah ';
WriteLn (Keterangan, Luas);
End .
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
2
Constanta

 Data konstanta nilainya sudah ditentukan dan pasti, tidak dapat dirubah
didalam program.
 Dengan Keyword Const
 Contoh :
Uses wincrt;
Const
Potongan = 0.2 ;
Gaji = 25000 ;
Namaperusahaan = 'PT ABC' ;
Begin
Writeln ( 'Potongan =', Potongan ) ;
Writeln ( 'Gaji =', Gaji ) ;
Writeln ( 'Nama =', Namaperusahaan) ;
End .
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
3
Start
Input
Nilai
Y
Nilai >=80
Percabangan If - Else

Output
Nilai_Huruf
=A
T
Y
Output
Nilai_Huruf
=B
Y
Output
Nilai_Huruf
=C
Y
Output
Nilai_Huruf
=D
Nilai >=65
T
Nilai >=41
T
Nilai >=26
T
Output
Nilai_Huruf
=E
Stop
• Awal
• Dengan Input Nilai
• Mengecek apakah nilai yang diinputkan tsb lebih
besar sama dengan 80… jika ya maka output
Nilai Huruf = A jika tidak
• Mengecek apakah nilai yang diinputkan tsb lebih
besar sama dengan 65.. Jika ya maka output
Nilai Huruf = B jika tidak
• Mengecek apakah nilai yang diinputkan tsb lebih
besar sama dengan 41.. Jika ya maka output
Nilai Huruf = C jika tidak
• Mengecek apakah nilai yang diinputkan tsb lebih
besar sama dengan 26.. Jika ya maka output
Nilai Huruf = D jika tidak
Gerlan A. Manu, ST.,MKom - Algoritma
4
• Pemrograman
Output Nilai
Huruf = E
I
• Akhir
Latihan Percabangan

 Kelulusan mahasiswa ditentukan berdasar nilai ujian
yang didapatkan. Jika nilai ujian lebih dari atau sama
dengan 70, mahasiswa dinyatakan lulus dan jika
tidak, dinyataan tidak lulus. Buatlah flowchart yang
membaca nilai ujian dan menentukan status
kelulusan dengan menampilkan pesan yang sesuai di
layar.
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
5
Latihan Percabangan
 Dalam sebuah warnet dengan tarif 4000 per jam.. jika
pelanggan mengakses internet 2-3:59 jam maka
mendapat potongan 10%, jika 4-5:59 jam maka
mendapat potongan 20%, jika 6 jam keatas maka
mendapat potongan 30%. Buatlah Flowchartnya!
 (Bonus Tugas)
4000
Bayar
Potongan
Bayar Akhir
0.1
2
8000
800
7200
0.2
4
6
6
16000
3200
12800
24000
0.3
Gerlan A. Manu, ST.,MKom - Algoritma
7200
16800
Pemrograman
I
Latihan Percabangan
 Buatlah flowchart untuk menentukan nilai dari
sejumlah uang dalam bentuk huruf, misalnya
Input : 1 maka Output nya Satu,
Input 10 maka Output nya Sepuluh, Input 11
maka Outputnya Sebelas, Input 100 maka Output
nya Seratus dst…(Bonus MID)
7
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
Perulangan While..do
Start
 While (kondisi) Do
(Statemen)
 Kondisi adalah sebuah
ekspresi boolean,jika
ekspresi boolean bernilai
true statement di jalankan.
 Dan perulangan akan
berhenti jika kondisi
bernilai false
 Contoh : menghitung
jumlah n bilangan yang
diinputkan
8
Input
Batas
Hasil = 0
I = 0
I < Batas
T
Output
Hasil
Y
Stop
I = I +1
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
Hasil = Hasil + I
Perulangan Repeat..Until
Start
 Repeat (statemen) Until
(Kondisi)
 Kondisi adalah sebuah
ekspresi boolean jika
ekspresi boolean bernilai
false statement di jalankan.
 Dan perulangan akan
berhenti jika kondisi
bernilai true.
 Contoh : Menulis angka dari
1 hingga batas tertentu
9
Input
Batas
CC = 1
CC > Batas
Y
Stop
T
Output
CC
Gerlan A. Manu, ST.,MKom - Algoritma
CC = Succ( CCPemrograman
)
I

uses wincrt;
var
cc,batas : integer;
begin
clrscr;
write ('Masukkan batas angka ');
readln (batas);
cc := 1;
repeat
write (cc);
cc := succ(cc);
until (cc>batas);
end.
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
10
Perulangan For
Start
Input
Batas
 For (kondisi) Do
(Statemen)
 Kondisi : (nilai awal) to
(nilai akhir)
 Dan perulangan akan
berhenti jika mencapai
nilai akhir
 Contoh : menghitung
jumlah n bilangan yang
diinputkan
Hasil = 0
I = 1 to Batas
T
Output
Hasil
Y
Stop
Hasil = Hasil + I
11
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I

uses wincrt;
var
i : integer;
batas : integer;
hasil : integer;
begin
clrscr;
write ('Masukkan integer positif : ');
readln (batas);
hasil := 0;
For i:=1 to batas do
begin
hasil := hasil + i;
end;
write ('Jumlah 1 sampai ', batas, ' = ');
write (hasil);
readln;
end.
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
12
Tugas

 Buatlah flowchart(uji coba) dan program(uji coba)
untuk menentukan :
 Deret bilangan berikut:
1,2,4,8,16,32,64,128,256,… (Program akan berhenti jika
pada pertanyaan “Lanjut [Y/T] ?" diisi huruf T)
 Deret bilangan berikut : 1,3,9,27,81,243,…. (Program
berhenti jika pada pertanyaan “Lanjut [Y/T] ?" diisi huruf T)
 Tentukan nilai akar X1 dan X2 dari persamaan kuadrat
ax2 – bx + c = 0 dengan rumus
 b  b 2  4ac
X1,2 =
2a
Gerlan A. Manu, ST.,MKom - Algoritma
Pemrograman I
13