-
Program Konversi Suhu
Saya mencoba membuat program konversi suhu menggunakan procedure. Didalam program ini terdapat percabangan case of else dan perulangan repeat until. Coba pahami kegunaannya. Program Konversi_Suhu; Uses WinCrt; var f,c,r : real; a,ul : char; procedure farein_celcius; begin Writeln(‘Program Konversi Fareinheit Ke Celcius’); Writeln(‘======================================’); Writeln; Write(‘Masukan Suhu dalam Farenheit: ‘);readln(f); c:=5/9*(f-32); Writeln; Writeln(‘Jadi Suhu Dalam Celcius…
-
Membuat Piramid Bintang
Program piramid bintang dengan pascal kiriman Saipul Bahrie program bintang_piramid; uses wincrt; var c,a,b,n : integer; begin write (‘masukkan angka : ‘);readln(n); writeln; if n mod 2 = 0 then for a := 1 to (n div 2) do begin for b := 1 to (n div 2)-a do write (‘ ‘); for c :=…
-
Perulangan
Jika dibandingkan dengan computer, manusia mempunyai kekurangan. Salah satu kekurangannya adalah manusia tidak mampu melaksanakan suatu perintah berulangkali tanpa mengenal lelah dan bosan. Sedangkan computer sebaliknya, computer mampu melaksanakan suatu perintah berulangkali tanpa mengenal lelah dan bosan. Di dalam algoritma pengulangan/ loop dapat dilakukan sejumlah kali, atau sampai kondisi berhenti pengulangan tercapai. * Struktur Pengulangan…
-
Contoh Looping
Dibuat program memasukkan password, misal password = ‘kunci’. selama password tidak sama dengan (<>) ‘kunci’, program akan terus meminta password. uses wincrt; var username, password : string ; begin repeat write(‘username : ‘);readln(username); write(‘password : ‘);readln(password); writeln(”); until (username = ‘user’)and (password =’pass’); writeln(username, ‘ , selamat datang’); end.