perulangan dengan statement for digunakan untuk mengulang statemen atau suatu blok statement berulang kali. Perulangan dengan statement for dapa berupa perulangan positif dan perulangan negaif.
# Perulangan For positif
contoh :
perulangan positif untuk satu statement :
Uses Crt;
Var
i : Integer;
Begin
For i := 1 To 5 Do
Writeln ('LIKE THIS’);
readln;
END.
Maka bila program diatas dicompile hasilnya :
LIKE THIS
LIKE THIS
LIKE THIS
LIKE THIS
LIKE THIS
Penjelasan : Berati statemen LIKE THIS akan diulang sebanyak 5 kali yaitu dengan menghitung nilai i dari i ke 1 sampai nilai i terakhir yaitu i ke 5.
# Perulangan For negatif
Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke kecil.
Statement yang digunakan adalah For-DownTo-Do
contoh :
Uses Crt;
Var
i : Integer;
Begin
For i := 10 DownTo 1 Do
Write (i:3);
readln;
End.
Hasil :
10 9 8 7 6 5 4 3 2 1
# Perulangan For tersarang
Perulangan For tersarang adalah perulangan For yang berada pada perulangan yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya.
Contoh :
uses crt;
Var
a,b : Integer;
Begin
clrscr;
For a := 1 To 3 Do
Begin
For b := 1 To 2 Do
Write (a :4,b:2);
Writeln;
End;
readln;
End.
Hasil :
1 1 1 2
2 1 2 2
3 1 3 2
# Perulangan While - Do
Penyeleksian kondisi digunakan untuk agar program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Perulangan While – Do tidak dilakukan jika kondisi tidak terpenuhi.
Contoh :
Uses Crt;
Var i : Integer;
Begin
i := 0;
While < i="5;"> 60 Then
Writeln('Lulus')
Else
Writeln('Tidak lulus');
readln;
End.
Hasil :
Jika kita Memasukan 40 pada varibel nilai, Maka program diatas akan mencetak Tidak lulus.
# Case - Of
Struktur Case – Of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector. Statement yang mempunyai case label yang bernilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainya tidak.
Bentuk struktur dari Case - Of:
Case Variabel Kondisi Of
Case – Label 1; Statement 1;
Case – Label 2; Statement 2;
Case – Label 3; Statement 3;
Case – Label 4; Statement 4;
........
........
Case – Label n ; Statement n ;
End ;
Daftar Case label dapat berupa konstanta, range dari konstanta
yang bukan bertipe real.
Contoh program ;
Program nilai;
uses crt;
Var
nil : Char ;
Begin
clrscr;
Write ('Nilai Numerik yang didapat :');
Case nil Of
'A': Writeln ('Sangat Baik’);
'B': Writeln('Baik’);
'C': Writeln('Cukup');
'D': Writeln('Kurang');
'E': Writeln('Sangat Kurang');
End;
readln;
End.
hasil :
Nilai Numerik yang didapat : B Input dan hasilnya Baik
TUGAS 5 BUAT PROGRAM KONVERSI SUHU
