NuSinau

Category: Pascal

  • Program Mencari Nilai Mata Uang

    Menjawab pertanyaan mbak/mas albab : maaf, mau tanyak.. untuk program mencari nilai mata uang gmn ya mas? pke struktur if else. misalnya uang yang kita masukin 100.000 outputnya : 1 lembar uang 100 rb dan 0 lembar uang 50 rb. itu gmn ya mas? trimakasiih sblmnya. kira-kira begini penyelesaiannya :

  • Program dengan Array of String

    Menjawab pertanyaan mas/mbak takirey lagi nih tentang cara membuat program dengan menggunakan array of string. Dengan asumsi program user dapat melakukan input data ke dalam array, kemudian seluruh array akan ditampilkan. Kira-kira begini penyelesaiannya : uses wincrt; var x : array[1..3] of string; a : integer; begin for a := 1 to 3 do begin…

  • Program Bilangan Genap

    Sesuai dengan pertanyaan mas/mbak takirey tentang bagaimana menyimpan bilangan genap ke dalam suatu array sebanyak input user. Kira-kira begini penyelesaiannya : uses wincrt; var genap : array[1..100] of integer; a, b, jum : integer; begin a := 0; b := 2; write(‘Jumlah bilangan genap : ‘);readln(jum); while a jum do begin inc(a); genap[a] := b;…

  • 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','…

  • Menghitung Hambatan

    Menghitung Hambatan 1 : uses wincrt; var hambatan1,hambatan2,t : real; a : char; begin write (‘hambatan 1 : ‘);readln (hambatan1); write (‘hambatan 2 : ‘);readln (hambatan2); write (‘kode pemasangan (p/s) : ‘);readln (a); if (a=’p’)or(a=’P’) then begin t := 1/((1/hambatan1)+(1/hambatan2)); end else begin t := hambatan1 + hambatan2; end; writeln; writeln (‘Hambatan total :’,t:1:2 );…

  • Program Counter Digital

    Program Counter Digital

  • Program Faktorial

    Contoh program faktorial dengan pascal Program Faktorial_pascal; uses crt; function Faktorial(a:integer):longint; begin if (A=1)then Faktorial:=1 else Faktorial:=a*faktorial(a-1); end; var x:integer; begin clrscr; writeln(‘Faktorial Sequence’); writeln; write(‘Berapa Faktorial : ‘);readln(x); writeln(x,’ faktorial ‘,’= ‘,faktorial(x)); writeln; write(‘Tekan Sembarang Tombol untuk keluar…’); readln; end.

  • Perintah With..Do dalam Pascal

    With..Do adalah perintah untuk memasukkan sekelompok data kedalam sebuah variable. Pada umumnya perintah ini digunakan untuk memasukkan data – data kedalam sebuah file bertipe (type file). Contoh program: Uses wincrt; Type Saya = record Nama : string [15]; Umur : byte; Alamat : string [20]; End; Var DataSaya : saya; Begin Clrscr ; With DataSaya…

  • Program GJE (Gauss Jordan Exchange) dengan Pascal

    Pada perkuliahan Aljabar Linear, ada sebuah penyelesaian matriks dengan menggunakan GJE. Perhitungannya cukup rumit, butuh ketelitian. Karena seringnya saya ceroboh dalam menghitung. Akhirnya saya putuskan untuk membuat programnya saja. Daripada susah-susah ngitung, mending buat programnya. Jadi tinggal masukin matriksnya aja lalu enter dan muncul hasilnya, kan cara menghitungnya dan jalan rumusnya dah ngerti. Haha!! Setelah…