Filed under Free Pascal

Simbol Diagram Alur (Flowchart)


1. Simbol untuk menyatakan MULAI atau SELESAI 2. Simbol Masukan, untuk membaca/ menanyakan/meminta data yang dijadikan niai suatu variabel. 3. Simbol Penugasan, untuk memberi nilai suatu varibel, perhitungan matematika yang hasilnya sebagai nilai variabel. 4. Simbol Keluaran, untuk mencetak hasil / keluaran. 5. Simbol Keputusan, untuk memutuskan atau atau percabangan yang diambil sesuai dengan kondisi … Baca lebih lanjut

Faktor Perseketuan Besar 2 Bilangan


Program Faktor_Perseketuan_Besar; uses crt; type larik = array [1..100] of integer; var Bil1,Bil2,i,j,sb,jfb1,jfb2,jfpb : integer; fb1,fb2,fpb : larik; begin  clrscr; REPEAT   BEGIN       WRITE (‘Masukan Bilangan Pertama (1..1000) : ‘);READLN(Bil1);   END;  UNTIL (Bil1 >= 1 ); REPEAT   BEGIN       WRITE (‘Masukan Bilangan Kedua   (1..1000) : ‘);READLN(Bil2);   END;  UNTIL (Bil2 … Baca lebih lanjut

Faktor Prima dan Faktorisasi Prima


Program FBPrima; uses crt; Const prima : array [1..25] of integer = (2,3,5,7,11,13,17,23,27,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97); type larik = array [1..100] of integer; var Bil,i,sb,jfb,p,fbp : integer; KBil : String[25]; fb : larik; begin  clrscr; REPEAT   BEGIN       CLRSCR;     WRITE (‘Masukan Bilangan (1..1000) : ‘);READLN(Bil);   END;  UNTIL (Bil >= 1 );  jfb := 0; … Baca lebih lanjut

Menentukan Bilangan Prima – FPC


Program BPrima; uses crt; type larik = array [1..100] of integer; var Bil,i,sb,jfb : integer; KBil : String[25]; fb : larik; begin clrscr; REPEAT BEGIN CLRSCR; WRITE (‘Masukan Bilangan (1..1000) : ‘);READLN(Bil); END; UNTIL (Bil >= 1 ); jfb := 0; for i:= 1 to Bil do begin sb := Bil Mod i; if sb … Baca lebih lanjut

Faktor Bilangan – FPC


Program FPC faktor bilangan untuk mencari faktor bilangan, program ini sudah dicoba di OS Linux ubuntu, program ini diberi nama file Fbilangan.pas. Untuk mencompile dan menjalankan langkahnya : $fpc FBilangan.pas   {mengkompile} $./FBilangan   {menjalakan program} Skrip FBilangan.pas sebagai berikut : Program Faktor_bilangan; uses crt; type larik = array [1..100] of integer; var Bil,i,sb,jfb : integer; fb … Baca lebih lanjut

Membuat Program Free Pascal di Ubuntu 10.10


Untuk menginstall Free Pascal di Ubuntu 10.10 langkahnya sebagai berikut : Pastikan komputer anda koneksi internet Pilih perintah : System => Administration => Sysnaptic Package Manager => (masukan pass root)=> anda akan masuk pada program  Sysnaptic Package Manager Pada Quick search : ketik FPC Akan muncul file 2 Aplikasi ubuntu sesuai kunci FPC, pilih file … Baca lebih lanjut

Sisabagi FPC


Program Sisabagi; uses crt; var D, S  : Integer; SS    : STRING[1]; BINER : STRING[10]; BEGIN D := 250; BINER := ”; S := D MOD 2; D := (D-S) div 2; if (S = 1) then SS:=’1′ else SS:=’0′; BINER := SS+BINER; S := D MOD 2; D := (D-S) div 2; if (S … Baca lebih lanjut

Procedure FPC


Program Garis; uses crt; VAR i : Integer; {Procedure} PROCEDURE garis(n: Integer); Begin For i:= 1 To n Do write(‘=’); writeln(”); end; {Program Utama} BEGIN clrscr; garis(10); writeln(‘Garis 10’); garis(20); writeln(‘Garis 20’); END. ========= Program Kotak; uses crt; VAR i, j : Integer; {Procedure} PROCEDURE kotak1(x,y: Integer); Begin For i:= 1 To x Do write(‘=’); … Baca lebih lanjut

Free Pascal Ubuntu 10.10


Untuk memakai free pascal di Ubuntu 10.10 anda harus install dulu aplikasi FPC bisa dengan melakukan langkah sebagai berikut : Menu System => Administration => Synaptic Package Manager Pada quick search : FPC Pilih FPC (mark for instalation) Klik Apply Klik Apply untuk memulai download aplikasi (pastikan anda sudah konek internet) Tunggu sampai selesai Untuk … Baca lebih lanjut

for to dan for downto – pascal


Program ulang_08; uses crt; var i,kiri,bawah,kanan,atas : integer; xa1,ya1,xa2,ya2 : integer; begin clrscr; writeln(‘Menampilkan * Obat Nyamuk’); xa1 := 1; ya1 :=1; xa2 := 80; ya2 :=49; for i :=1 to 12 do begin for kanan:=xa1 to xa2 do begin gotoxy(kanan,ya1);write(‘>’); end; for bawah:=ya1 to ya2 do begin gotoxy(xa2,bawah);write(‘v’); end; xa1 := xa1 + 2; … Baca lebih lanjut

Perintah FOR – Pascal


Program Pascal dengan menggunakan perintah FOR : ———————————————— Program ulang_01; uses crt; var i : integer; begin clrscr; writeln(‘menampilkan * diulang 10x horizontal’); for i:= 1 to 10 do write(‘*’); writeln(”); writeln(‘Menampilkan * diulang 10x vertikal’); for i:=1 to 10 do writeln(‘*’); end. ———————————————— Program ulang_02; uses crt; var i,j : integer; begin clrscr; writeln(‘Menampilkan … Baca lebih lanjut

kartu2.pas


Kartu 2 Nama Program : kartu2.PAS / C / CPP Batas Run-time : 1 detik / test-case Batas Memori : 16 MB Nama Berkas Masukan : Standard input (keyboard) Nama Berkas Keluaran : Standard output (layar) Pak Dengklek kembali bermain dengan kartu ayam-bebeknya. Pada permainan ini, Pak Dengklek menggabungkan beberapa set kartu ayam bebek, mengocoknya, … Baca lebih lanjut

kartu1.pas


{ Kartu 1 Nama Program : kartu1.PAS / C / CPP Batas Run-time : 1 detik / test-case Batas Memori : 16 MB Nama Berkas Masukan : Standard input (keyboard) Nama Berkas Keluaran: Standard output (layar) Pak Dengklek baru saja membeli beberapa set kartu permainan ayam-bebek. Satu set kartu permainan ayam-bebek terdiri atas 18 kartu … Baca lebih lanjut

Menentukan bilangan genap atau ganjil dengan free pascal


Program menentukan bilangan Genap atau Ganjil, dengan memasukan bilangan : Program JenisBil; var x, sisa : integer; ket : string; Begin Write (‘Masukan semua Bilangan : ‘); Readln (x); sisa := x mod 2; if sisa = 0 then ket := ‘Genap’ else ket := ‘Ganjil’; write (‘Jadi jenis bilangan adalah :’); write (ket); end.

Luas Segitiga dengan FPC


Menghitung Luas segitiga Alas = 10 Tinggi = 9 Program Lsegitiga; var Alas, Tinggi, Luas : Real; Begin Alas := 10; {memasukan harga 10 pada variabel Alas} Tinggi := 9; {Memasukan harga 9 pada variabel tinggi} Luas := Alas*Tinggi/2; {Menghitung Luas Segitiga} { Tampilan dalam bilangan Exponen } writeln (Luas); {tampilan dalam format dua angka … Baca lebih lanjut