Pemrograman Komputer

LABORATORIUM TEKNIK KIMIA NAMA : M.khadik asrori
FAKULTAS TEKNOLOGI INDUSTRI NPM : 10330100011
UPN “VETERAN” JAWA TIMUR ROMB/GROUP : 2/D
NPM/TEPRAK : 1033010015/
Nurul amalia
Praktikum : Pemrograman Komputer
Percobaan : IF-THEEN-ELSE, CASE OF
Tanggal : 26 MEI 2011
Pembimbing : Ir.Sintha Soraya Santi,MT LAPORAN RESMI
________________________________________
SOAL:

1. Jelaskan perbedaan antara penggunaan statemen perulangan for-to-do, while-do, repeatuntil, dan for-downto-do! Dan juga buatlah contoh program beserta flowchart yang menjelaskan perbedaan penggunaannya!
NB:
Program yang dibuat tidak boleh sama dengan yang ada di modul dan tiap praktikan harus berbeda.

JAWABAN:
1. Statemen for-to-do
Perulangan positif adalah perulangan dengan penghitung dari kecil ke besar atau pertambahan positif. Perulangan positif dapat dibentuk dengan menggunakan pernyataanFor - To- Do
Contoh:
PROGRAM FOR_TO_DO;
uses wincrt;
Var
I:integer;
Begin
clrscr;
For I:= 1 to 5 do
writeln ('liea dwi rahayu');
End.




Hasil:
























Flowchart:




































Statemen while-do
Pernyataan while-do atau lebih dikenal dengan pernyataan while adalah pernyataan yang akan mengulang/mengeksekusi pernyataan lain selama beberapa kondisi masih bernilai true. Berikut adalah struktur dari pernyataan while-do.

While ( condition ) Do ( Statement );

Contoh :
program program_looping_while;
uses wincrt;
var a,b:shortint;
begin
write(' Masukkan nilai : ');
readln(b);
writeln;
a := 1;
While a <= b Do
Begin
Writeln('Kalimat ini diulang sejumlah nilai yang anda masukkan');
a := a + 1;
End;
end.

Hasil:


 
FLOWCHART:








































































Statemen repeat until
Perulangan menggunakan repeat until sebenarnya hampir sama dengan perulangan menggunakan while-do hanya bedanya jika menggunakan while, perulangan akan dilakukan selama kondisi bernilai benar tapi jika menggunakan repeat perulangan akan berhenti jika suatu kondisi terpenuhi. Berikut adalah struktur statement perulangan repeat-until.

Repeat
( Statement );
…
Until ( Condition );

Contoh :
Program
program looping_dengan_repeat;
uses wincrt;
var a,b : integer;
begin
write('Masukkan sembarang angka (dibawah 25) : ');
readln(b);
writeln;
a := 0;
repeat
writeln('Kalimat ini diulang sejumlah angka yang anda masukkan');
a := a+1;
until a = b;
end.


Hasil:
































Flowchart:




































Statemen for-down to-do
Perulangan dengan for adalah jenis perulangan yang menggunakan counter maksudnya perulangan jenis ini menggunakan kelipatan satu. Yaitu perulangan naik satu (for-to) dan perulangan turun satu (down-to)

Contoh program
Program down_to_do;
Uses wincrt;
Var
i : Integer;
Begin
For i := 15 DownTo 1 Do ;
Write (i:5);
End.

Hasil:










Flowchart: