Program Pascal Membuat Program Kontreversi Waktu

Membuat Program Kontreversi Waktu

Program Konversi_Waktu;
Uses Wincrt;
Var j,m,d,h:integer;
begin
Writeln('Program Konversi Waktu');
Writeln('======================');
Writeln;
Write('Masukkan Jumlah Jam : ');readln(j);
Write('Masukkan Jumlah Menit : ');readln(m);
Write('Masukkan Jumlah Detik : ');readln(d);
Writeln;
h:=(j*3600)+(m*60)+d;
Writeln('Jadi Hasil Konversi : ',h,' Detik');
end.

Program Pascal Membuat Program Kontreversi Suhu

Membuat Program Kontreversi Suhu

Program Konversi_Suhu;
Uses WinCrt;
var f,c:real;
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 Adalah: ',c:4:2);
end.

Program Pascal Membuat Program Menghitung Jarak

Membuat Program Menghitung Jarak

Program Menghitung_Jarak;
Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.

Program Pascal Membuat deret angka 1 sampai 10

Membuat deret angka 1 sampai 10

program deratangka1sampai10;
uses wincrt;
var i,batas:integer;
begin
{write('Masukkan integer positif,=');
readln(batas);}
for i:=1 to 10 do
write(i);
end.

Membuat Program Jenis Bilangan Bulat

Membuat Program jenis bilangan bulat

program jenis_bilangan_bulat;
uses wincrt;
var
x : integer;
begin
write ('Masukkan sembarang angka=');read(x);
if x >0 then
write ('positif')
else
if x <0 then
write('negatif')
else
write ('nol')
end.

Program Pascal Membuat program Huruf A sampai Z

Membuat program Huruf A sampai Z

program hurufAsampaiZ;
uses wincrt;
var i,batas:char;
begin
write('Masukkan huruf a sampai z=');read(batas);
for i:= 'a' to batas do
write(i,' ');
end.

Program Pascal Membuat Program Binatang

Membuat program Binatang

program binatang;
uses wincrt;
var baris,kolom:integer;
begin
clrscr;
for baris:=1 to 8 do
begin
for kolom:=1 to baris do
write('KUCING');
writeln;
end;
readln;
end.

Program Pascal Membuat program Hadiah Belanja

Membuat program Hadiah Belanja

program hadiahBelanja;
Uses wincrt;
var
x:integer;
begin
write('masukkan harga=');read(x);
if x<=49.999 then
write ('maaf sampeyan dereng beruntung')
else
if x<=99.999 then
write ('selamat sampeyan mendapatkan mie goreng')
else
if x<=149.999 then
write ('selamat sampeyan mendapatkan gelas cantik')
else
if x<=199.999 then
write ('selamat sampeyan mendapatkan piring cantik')
else
if x<=5000.000 then
write ('selamat mendpatkan sampeyan payung cantik')
end.

Program Pascal Membuat program Grade

Membuat program Grade

Program nilai_mahasiswa;
uses wincrt;
Var
Nilai : Real ;
Grade : Char ;
nama : string ;
Begin
write('NAMA ANDA: ',nama);
read(nama);
Write('NILAI YANG ANDA PEROLEH : ');
Read(Nilai);

Program Pascal Membuat program GanjilGenap

Membuat program GanjilGenap

program Ganjilgenap;
uses wincrt;
var bil:integer;
begin
for bil:=6 to 16 do
if bil mod 2=1 then
write(bil,' ');
readln;
end.

Program Pascal Membuat program deretEDCBA

Membuat program deretEDCBA

program deretEDCBA;
uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='e' downto 'a' do
write(i,' ');
end.

Program Pascal Membuat program DeretAngka2

Membuat program DeretAngka2

program deretangka2;
uses wincrt;
var i,batas:integer;
begin
write('masukkan integer positif=');
readln(batas);
for i:=batas downto 1 do
write(i,' ');
end.

Program Pascal Membuat program Deretan angka sampai 10

Membuat program Deretan angka sampai 10

program deratangka1sampai10;
uses wincrt;
var i,batas:integer;
begin
{write('Masukkan integer positif,=');
readln(batas);}
for i:=1 to 10 do
write(i);
end.

Program Pascal Membuat Program deretABCDE

Membuat Program deretABCDE

program deretABCDE;uses wincrt;var i,batas:char;begin{write('masukkan integer positif=');readln(batas);}for i:='a' to 'e' dowrite(i,' ');end.

Program Pascal Membuat program bilngankelipatan5

Membuat program bilngankelipatan5

program bilangankelipatan5;
uses wincrt;
var bil,batas:integer;
begin
write('Masukkan integer positif,=');
readln(batas);
for bil:=5 to batas do
if bil mod 5=0 then
write(bil,' ');
end.

Program Pascal Membuat Program keliling lingkaran

Membuat Program keliling lingkaran

program genap;
uses wincrt;
var
x : integer;
begin
write('masukkan sembarang angka =');read (x);
if x mod 2=0 then
write('genap')
else
write('ganjil')
end.

Program Menghitung Jumlah Hari Dengan Pemograman Delphi

Silahkan klik gambar di bawah ini untuk mendonwload soucecode nya:

unit UnitJumHari;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
Label3: TLabel;
Label4: TLabel;
Shape1: TShape;
Bevel1: TBevel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
Function DaysPerMonth(YearIn, MonthIn: Integer): Integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Function TForm1.DaysPerMonth(YearIn, MonthIn: Integer): Integer;
Const
DaysInMonth: array[1..12] of integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[MonthIn];
If (MonthIn = 2) and IsLeapYear(YearIn) then
Inc(Result);
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
s1,s2:Integer;
Begin
s1:=strToint(edit1.text);
s2:=StrToInt(edit2.text);
Memo1.Lines.Clear;
Memo1.Lines.Add(IntToStr(DaysPerMonth(s1,s2)));
Memo1.Lines.Add('Hari');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;
end.

Silahkan klik gambar di bawah ini untuk mendonwload soucecode nya:

Source Code Program Turbo Pascal Klinic Sederhana

Source Code Turbo Pascal Klinic Sederhana

Kali ini saya membuat contoh program yang telah saya buat sebelumnya,, Nah,, untuk yang satu ini saya buat program untuk di bidang Kesehatan.
Tanpa Pikir panjang lagi Lets Go kita baca, trus di coba biar tambah wawasan dikit,,
hehehehe,,,,,

Coba praktekan latihan berikut ini:
Berikut deskripsi kebutuhan user dari program pembayaran pada sebuah klinik;

Berikut adalah pengolahan data sebuah klinik

• Nomor pasien :
• Nama pasien :
• Jenis kelamin :
• Keluhan:
• Dokter :
• Biaya dokter :
• Obat :
• Biaya obat:
• Lama inap:
• Kamar inap:
• Biaya kamar:
• Discount:
• Total bayar:
• Catatan dari user;

• Jika keluhan = umum, maka dokter = dr.ilham wijaya dan biaya dokter =100000(100ribu) 

• Jika keluhan = gigi, maka dokter = dr. Artalya dan biaya dokter = 110000(110ribu) 

• Jika keluhan = anak, maka dokter = dr. Salim Hakim dan biaya dokter = 125000(125ribu) 

• Jika keluhan = kandungan, maka dokter = dr. Kartini, SKM dan biaya dokter = 95000(95ribu) 

• Jika obat “a” maka biaya obat = 50000(50ribu) 

• Jika obat “b” maka biaya obat = 65 ribu 

• Jika obat “c” maka biaya obat = 75 ribu 

• Jika obat “d” maka biaya obat = 100 ribu 

• Jika kamar inap =” vip” maka biaya kamar= 150 ribu permalam 

• Jika kamar inap = “kelas 1” maka biaya kamar = 125 ribu 

• Jika kamar inap = “kelas 2” maka biaya kamar = 110 ribu 

• Jika kamar inap = “sal” maka biaya kamar = 75 ribu 

• Discount = 5% dari transaksi 

• Jika Pasien rawat jalan, maka biaya kamar tidak ada 

Berikut listing program dari contoh kasus ini.

program datars;
uses crt;
var bdok,bob,bkm,dsc,tby,tbr:real;
np:string[10];
nap:string[30];
jkl:string[10];
klh:string[17];
dok:string[30];
kin:string[10];
ob:string[3];
lin:byte;
begin
clrscr;
write('Nomor Pasien=');
readln(np);
write('Nama Pasien=');
readln(nap);
write('Jenis Kelamin=');
readln(jkl);
write('Keluhan=');
readln(klh);
write('Type Obat=');
readln(ob);
writeln('* Jika rawat jalan, isi kamar inap"jalan" ');
Writeln('** Pilihan jenis kamar inap adalah"vip","k1","k2","sal",dan"jalan"');
writeln('*** Jika rawat jalan, isi lama inap"1"');
write('Kelas kamar=');
readln(kin);
write('Lama Inap=');
readln(lin);
if klh='umum' then begin
dok:='dr.ilham';
bdok:=100000*lin;
end
else
if klh='gigi' then begin
dok:='dr.Artalya';
bdok:=110000*lin;
end
else
if klh='anak' then begin
dok:='dr.Salim';
bdok:=125000*lin;
end
else begin
dok:='dr.Kartini';
bdok:=95000*lin;
end;
write('Dokter=',dok);
readln;
write('Biaya Dokter=',bdok:2:0);
readln;
if ob='a' then begin
bob:=50000;
end
else
if ob='b' then begin
bob:=65000;
end
else
if ob='c' then begin
bob:=75000;
end
else begin
bob:=100000;
end;
write('Biaya Obat=',bob:2:0);
readln;
if kin='vip' then begin
bkm:=150000*lin;
end
else
if kin='k1' then begin
bkm:=125000*lin;
end
else
if kin='k2' then begin
bkm:=110000*lin;
end
else
if kin='sal' then begin
bkm:=70000*lin;
end
else begin
bkm:=0;
end;
write('Biaya Kamar=',bkm:2:0);
readln;
tby:=bdok+bob+bkm;
dsc:=tby*0.05;
tbr:=tby-dsc;
writeln('Total Bayar=',tbr:2:0);
readkey;
end.

Demikianlah penjelasan yang bisa saya jabarkan tentang  "Program Turbo Pascal Klinic Sederhana" semoga bisa menambah pengetahuan kita ya,,,,

Source Code Program Pascal Pohon (Tree) Dinamis

Source Code Program Pascal Pohon (Tree) Dinamis

Program ini saya posting kan karna saya mendapat insting dari pencarian di dunia Maya... hahahhahaa, dan mudah mudahan saya bisa menyelesaikan Program Pohon (Tree) Dinamis ini.

Berikut ini adalah script programmnya menggunakan turbo pascal :

uses wincrt;
Type pohon=^node;
node=record
data:integer;
kiri,kanan:pohon;
     end;
var 
     T:pohon;
     info:integer;
{------------------------------}
Procedure Buat_BST(info :integer;var T:pohon);
var
     b:pohon;
begin
if T=nil then
begin
new(b);b^.data:=info;b^.kiri:=nil;b^.kanan:=nil;
T:=b;
end
else
begin
if T^.data<info then
   Buat_Bst(info,T^.kanan);
if T^.data>info then
   Buat_Bst(info,T^.kiri);
end;
end;
{------------------------------}
Procedure Baca_BST_pre(b:pohon);
begin
if (b<>nil) then
begin
write(b^.data);
Baca_BST_pre(b^.kiri);
Baca_BST_pre(b^.kanan);
end;
end;
{------------------------------}
Procedure Baca_BST_in(b:pohon);
begin
if (b<>nil) then
begin
Baca_BST_in(b^.kiri);
write(b^.data);
Baca_BST_in(b^.kanan);
end;
end;
{------------------------------}
Procedure Baca_BST_post(b:pohon);
begin
if (b<>nil) then
begin
Baca_BST_post(b^.kiri);
Baca_BST_post(b^.kanan);
write(b^.data);
end;
end;
{------------------------------}
begin
clrscr;
new(T);T^.kiri:=nil;T^.kanan:=nil;
writeln('Memasukkan data ke dalam tree');
repeat
write('Nilai data : ');readln(info);
if info<>0 then Buat_BST(info,T);
until info=0;
writeln;
readln;
writeln('Pembacaan secara Pre order');
baca_BST_pre(T);
writeln;
readln;
writeln('Pembacaan secara In order');
baca_BST_in(T);
writeln;
readln;
writeln('Pembacaan secara Post order');
baca_BST_post(T);
end.

Semoga Source Code Program Pascal Pohon (Tree) Dinamis  ini dapat bermanfaat, dan bisa anda Gunakan. Terima kasih.

Pengertian Dan Fungsi Looping Pada Pascal

Kali ini saya mempostingkan hal yang masih berkaitan dengan Bahasa Pemrograman Turbo Pascal.
OK tanpa basah kering kita baca artikel ini, semoga bisa menambah wawasan kita ya,,,,,,
Cekidot...!!!

Apa Itu Looping
Pada Pemograman looping diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali dengan menggunakan kode atau perintah tertentu.

Tanpa menggunakan looping listing program yang kita tulis bisa jadi panjang dan logika pemograman jadi agak susah.

Selanjutnya bagaimana cara penerapan fungsi looping pada pascal?


Cara Penerapan Fungsi Looping Pada Pascal
Looping pad pascal menggunakan beberapa perintah seperti;

• • for...to.. do;

For biasa digunakan untuk perulangan positif dengan penghitung (counter) dari kecil kebesar atau dengan kata lain pertambahannya positif. Bentuk Umum ; For variabel := nilai awal To nilai akhir Do Statement; dan For variabel := nilai awal DownTo nilai akhir Do Statement;

• • while..do;
• • dan repeat until

Pada kesempatan kali ini contoh listing yang saya berikan adalah penerapan fungsi looping dengan perintah "for". Pda postingan berikutnya saya akan membahas contoh penerapan fungsi loopng pada pascal dengan perintah (while..do dan repeat..until)


Berikut contoh list programnya;

uses crt;
var i: integer;
a:string[30];
begin
clrscr;
write('kata='); readln(a);
for i:=1 to 5 do
begin
writeln(a);
end;
readln;
end.

Contoh listing program diatas adalah pengulangan kata yang diinput sebanyak 5 kali. Logikanya programnya seperti ini;

• • deklarasikan variable
• • input kata
• • cetak kata yang diinput
• • lakukan pengulangan sampai 5 kali
• • selesai

Demikian share dari saya untuk saat ini. Semoga semakin menambah pemahaman kita tentang"Fungsi Looping Pada Pascal".

Program Gaji Turbo Pascal Sederhana

Pascall Wallpapers HD By PAMBAH Corporation

Pada postingan kali ini saya mau membahas salah satu contoh Program Applikasi Sederhana.
Pada contoh berikut saya tampilkan contoh kasus dan Listing Program Pascal.
Uraian Contoh Kasus ;

Berikut adalah data pengolahan gaji karyawan;

• • Nomor Induk Karyawan
• • Nama Karyawan
• • Status
• • Jumlah Anak
• • Jabatan
• • Gaji Pokok
• • Tunjangan Istri
• • Tunjangan Anak
• • Tunjangan jabatan
• • Jamsostek
• • Pajak
• • Gaji Bersih

Catatan;
Tunjangan istri

• • jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok
• • Selain itu tidak dapat tunjangan

Tunjangan anak

• • Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk

masing-masing anak

• • Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.
• • selain itu tidak dapat tunjangan

Tunjangan jabatan

• • Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000
• • Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000
• • Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000
• • Selain itu tidak ada tunjangan

Hitungan untuk gaji bersih
Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)

Berikut Listing Programnya.
Silakan dipelajari atau dimodifikasi.

program Gaji;
uses crt;
var gp,gb,pjk,js,tis,ta,tjb:real;
nik:string[10];
nk:string[27];
sts:string[9];
jb:string[15];
ja:byte;
begin
clrscr;
write('Nomor Induk Karyawan=');
readln(nik);
write('Nama Karyawan=');
readln(nk);
write('Status=');
readln(sts);
write('Jumlah Anak=');
readln(ja);
write('Jabatan=');
readln(jb);
write('Gaji Pokok=');
read(gp);
if sts='menikah' then begin
tis:=0.1*gp;
end
else begin
tis:=0;
end;
if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin
ta:=0.05*gp*3;
end
else begin
ta:=0;
end;
if jb='manager' then begin
tjb:=2000000;
end
else
if jb='supervisor' then begin
tjb:=1500000;
end
else
if jb='mandor' then begin
tjb:=1000000;
end
else begin
tjb:=0;
end;
pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);
writeln('Tunjangan Istri=', tis:3:2);
writeln('Tunjangan Anak=', ta:3:2);
writeln('Tunjangan Jabatan=', tjb:3:2);
Writeln('Pajak=', pjk:3:2);
writeln('Jamsostek=', js:3:2);
writeln('Gaji Bersih=', gb:3:2);
readkey;
end.

Demikian dulu pembahasan tentang 'Contoh Program Sederhana Pascal'.

Selamat belajar dan mencobanya ya,,
Semoga Berhasil.

Unduh Gratis Kumpulan Source Code Program Delphi 7

Kumpulan Source Code Program Delphi 7 Free Download

Maaf Kepada Viewver Blog Ini, Kali Ini saya selaku admin disini, ini bisa terselasikan juga jika sobat ingin juga melihat blog saya yang Fenomenal Program Ini, pertama kali share saya akan bagikan buat sobat Contoh Source Code Program Delphi 7 Sekedar informasi blog ini hanya menyediakan program jadi yang sobat bisa langsung download, jika sobat ingin bertanya tentang program saya minta maaf saya hanya membantu sobat dalam mengerjakan tugas kuliah, karena saya mengerti betapa pentingnya program dan sulitnya membuat program bagi para Jurusan teknik informatika khususnya yang mengenai mata kulia bahasa pemrograman, Nah tanpa membuang-buang waktu buat yang membutuhkan source code bahasa pemrograman delphi ini silahkan di download sobb,, cekidot

[ Kumpulan Contoh ]

Source Code Program Delphi 7

• Download = Program Aplikasi Administrasi Surat.
• Download = Program Aplikasi Apotik.
• Download = Program Aplikasi Billing Warnet.
• Download = Program Aplikasi Games Boogle.
• Download = Program Aplikasi Games Classieux.
• Download = Program Aplikasi Games MinezWeeper.
• Download = Program Aplikasi Games RCouster 1.
• Download = Program Aplikasi Games RCoaster 2.
• Download = Program Aplikasi Games Solitaire.
• Download = Program Aplikasi Games Tetris.
• Download = Program Aplikasi Klinik.
• Download = Program Aplikasi Koperasi Simpan Pinjam.
• Download = Program Aplikasi Manajemen Warnet.
• Download = Program Aplikasi Pendapatan Counter HP.
• Download = Program Aplikasi Penjualan Kaset 1.
• Download = Program Aplikasi Penjualan Kaset 2.
• Download = Program Aplikasi Perpustakaan.
• Download = Program Aplikasi Sistem Pembayaran Listrik, Air dan Telphone.
• Download = Program Aplikasi SMS.

Silahkan Anda Sedot Sepuas Mungkin , jika Anda masih Berminat.
Lihat Lihat Aja Dalam Daftar Isi Saya Oke, Thnanks For Viewver My BLog Program

Kumpulan Source Code Program Delphi 7 Free Download

Daftar Isi / Site Map

Wellcome To Archive , yo view all post in this blog

Loading guys....