NuSinau

Tag: percabangan

  • Pengertian If..Else dan Contoh Programnya

    Percabangan if..else digunakan untuk pengujian sebuah kondisi. Jika kondisi yang diuji tersebut terpenuhi, maka program akan menjalankan pernyataan-pernyataan tertentu. Jika kondisi yang diuji salah, program akan menjalankan pernyataan yang lain. Contoh :

  • Menentukan Bentuk Padat, Cair, Gas Benda

    Program untuk menentukan bentuk padat, cair, atau gas benda : uses wincrt; var a: integer; ket: string; begin write ('suhu  : '); readln (a); if a <= 0 then ket :='padat' else if (a > 0) and (a < 100) then ket :='cair' else if a >=100 then ket :='gas'; writeln('Air pada suhu tersebut berbentuk','…

  • 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 :=…