PROGRAM FORMULIR PENDAFTARAN TOUR DENGAN PASCAL

Saya ingin berbagi info yang dapat pada perkuliahan Struktur Data pada 16 Desember 2013 tepat nya

ialah pada hari senin . jika biasanya sebuah program FORMULIR PENDAFTARAN di buat dengan

bahasa pemerograman seperti VB,Java,Foxpor,C++ dll , namun kali ini program tersebut di buat

dengan menggunakan bahasa pemerograman pascal mengapa saya menggunakan bahas pascal

untuk membuat sebuah program ini karena bahasa pascal merupakan bahasa yang tidak terlalu sulit

untuk dipelajari seorang pemula , saya saja bisa apalagi anda , namun apakah anda tahu

apa itu manfaat bahasa pemerograman pascal anda bisa mengunjungi artikel

manfaat mempelajari bahasa pemeroraman pascal  . lanjut lagi . untuk membuat

sebuah program tersebut anda memerlukan sebuah software yaitu TPW 1.5 . jika anda telah memiliki

software tersebut dan telah anda install pada laptop atau PC anda maka sekaranglah waktunya anda

mengetikan listing program di bawah ini, atau anda bisa COPY Paste supaya lebih cepat .

program pendaftaran_peserta_tour; uses wincrt; var no, tot_biaya,b_daftar,b_akomodasi,tanggal, bln, thn : longint;     nm, tempat :  char; begin writeln('      Formulir Pendaftaran Peserta tour  '); writeln; write('No                    : ');readln(no); write('Nama                  : ');readln(nm); write('Tempat, Tanggal Lahir : ');readln(tempat); gotoxy(35,5);read(tanggal); if tanggal > 30 then begin write('tanggal yang anda masukkan salah!'); readkey; donewincrt; end; gotoxy(38,5);read(bln); if bln > 12 then begin write('bulan yang anda masukkan salah!'); readkey; donewincrt; end; gotoxy(41,5);read(thn); if thn > 1996 then begin write('tahun yang anda masukkan salah!'); readkey; donewincrt; end; write('biaya pendaftaran             : Rp. ');readln(b_daftar); write('biaya akomodasi               : Rp. ');readln(b_akomodasi); writeln('===================================='); tot_biaya:=b_daftar + b_akomodasi; write('Sisa Pembayaran       : Rp. ',tot_biaya); end.

jika anda telah mengetikan program di atas pada TPW anda maka coba anda RUN dan lihat layout nya,
inilah contoh layout pada program di atas yang saya jalankan pada komputer saya

Program tersebut memiliki ketentuan – ketentuan yaitu

1. tanggal akan mencakup 1 – 30 , namun jika anda salah dalam memasukan tanggal maka akan muncul
layout seperti ini

2. bulan  akan mencakup 1 – 12 , namun jika anda salah dalam memasukan bulan maka akan muncul layout
seperti ini

3.tahun memiliki ketentuan yaitu hanya akan dapat menerima inputan dari tahun kurang dari 1996  ,
namun jika anda salah dalam memasukan tahun maka akan muncul layout seperti ini

namun program di atas masih dapat anda kembangkan lagi menjadi program yang layak dan berguna,
anda dapat menggabungkan program pascal di atas dengan berbagai tambahan lain .

Sumber : http://zoharaberbagiinfo.blogspot.com/2013/12/program-formulir-pendaftaran-tour.html#ixzz2niza1B4Y

Read More

0

MANFAAT BELAJAR BAHASA PEMOGRAMAN PASCAL

"Manfaat Belajar bahasa pemograman pascal"

PENDAHULUAN
     Manfaat turbo pascal ini tidak terbatas untuk membantu sistem administrasi dikantor-kantor saja, tetapi merambah kebeberapa bidang. Sehingga aplikasinya sangat dibutuhkan untuk membantu berbagai disiplin ilmu.Untuk itulah dibutuhkan software yang menjebatani komputer dengan kebutuhan dan tujuan pemograman komputer friendly. sebuah software akan memudahkan untuk membuat aplikasi seperti : bahasa C, C++, C#, Clipper, LISP, ADA, ALGOL, Modula 2, Smalltalk,Prolog, Perl, PHP, ASP, JSP, J#, J++, Cobol, Basic, Fortran, Java, Paskal, dan lain sebagainya.
     Bahasa pemrograman adalah sesuatu yang mutlak harus dipahami jika inginmembuat suatu aplikasi. Berdasarkan hal tersebut maka perlu kiranya kita belajar sebuah bahasa pemrograman yang lebih sederhana dan relatif lebih mudah untuk dipelajari oleh seorang pemula. Bahasa pascal adadalah salah satu jenis bahasa tingkat tinggi yang relatif lebih mudah untuk dipelajari.
    Bahasa pemograman pascal adalah salah satu bahasa tingkat tinggi yang merupakan bahasa pemograman prosedural yang banyak dipakai untuk mengenalkan pemograman bagi pemula, selain itu bahasa pascal relatif mudah untuk dipelajari, sehingga daapat diadakan sebagai dasar acuan untuk belajar bahasa pemograman telah banyak literatur mengenai bahasa pemograman pascal dengan berbagai versi. yang semakin memudahkan mempelajarinya. Program dalam bahasa pemograman pascal cukup banyak variannya seperti delfi yang merupakan visual pascal juga masih banyak lagi. pascal juga memliki beberapa versi yang beredar dipasaran seperti UCSD pascal, Ms-Pascal, apple pascal, free pascal, turbo pascal dan sebagainya..bahasa pascal juga membantu anda yang masih belajar pemograman dan untuk yang masih kuliah bisa mempergunakan bahasa pemograman pascal..semoga bermanpaat .

Kode pemograman luas persegi panjang, luas segitiga dan luas lingkaran

Berikut ini merupakan logika pemrograman untuk program penghitung luas persegi panjang.

Langkah pertama adalah menerima inputan panjang dan lebar persegi panjang dari user
Langkah kedua adalah menghitung nilai luas persegi panjang dengan mengalikan nilai panjang dan nilai lebar persegi panjang yang diinputkan oleh user
Langkah ketiga adalah menampilkan nilai luas persegi panjang yang telah dihitung
Berikut ini merupakan source code program luas persegi panjang di C++
/*
* File:   LuasPersegiPanjang2.cpp
* Author: indrabt
*
* Created on July 2, 2010, 4:44 PM
*/
#include <stdlib.h>
#include <iostream>
using namespace std;
/*
*
*/
int main(int argc, char** argv)
{
int p, l, luas;
cout << “masukkan nilai panjang : “;
cin >> p;
cout << “masukkan nilai lebar : “;
cin >> l;
luas = p * l;
cout << “luas persegi panjang : ” << luas<<”\n”;
return (EXIT_SUCCESS);
}
Statement int p, l, luas digunakan untuk mendeklarasikan variabel p, l, dan luas dengan tipe data integer. Variabel p digunakan untuk menyimpan nilai panjang persegi panjang yang diinputkan oleh user. Variabel l digunakan untuk menyimpan nilai lebar yang diinputkan oleh user. Sedangkan variabel luas digunakan untuk menyimpan nilai perhitungan luas persegi panjang.
statement cout <<”masukkan nilai panjang :” digunakan untuk mencetak masukkan nilai panjang pada layar konsole. Sedangkan cin >> p digunakan untuk menyimpan nilai panjang persegi panjang yang dimasukkan oleh user ke dalam variabel p. Sedangkan statement cout << “masukkan nilai lebar :” digunakan untuk mencetak kalimat masukkan nilai lebar pada layar console. Statement cin >> l digunakan untuk menyimpan nilai lebar persegi panjang yang diinputkan oleh user ke dalam variabel l.  Langkah berikutnya adalah menghitung luas persegi panjang yang dilakukan oleh statement luas = p * l. Langkah terakhir adalah menampilkan luas persegi panjang telah dihitung. Hal ini dilakukan oleh statement cout << “luas persegi panjang : ” << luas<<”\n”.
rocedure segitiga (var a: integer; var b: integer);
var luas: real;
begin
luas:= a*b*0.5;
ShowMessage('luas segitiga adalah' + floattostr(luas));
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strToint(edit1.text);
b:=strToint(edit2.text);
begin
segitiga(a,b);
end;
end;

end.

Luas Lingkaran
Untuk Program yang statis (tidak ada proses input, nilai jari-jari ditentukan di dalam kode program) :


#include <iostream>
#include <conio>
#define phi 3.14

main()
{
 float r=15;
        float luas=phi*r*r;
        float keliling=phi*r*2;

 cout<<"Program volume dan luas Lingkaran\n";
 cout<<"\nJari-jari\t= "<<r;
 cout<<"\n--------------------------";
 cout<<"\nLuas\t\t= "<<luas;
 cout<<"\nKeliling\t= "<<keliling;

  getch();
}

Read More

0

Membuat Tabel dengan HTML

Tabel digunakan untuk menampilkan data dalam betuk baris dan kolom. Adapun Elemen-Elemen yang digunakan untuk membuat Tabel yaitu:

dan untuk Atribut Tabel Tag :

Mengatur Border
Border adalah garis yang mengelilingi sebuah tabel.
Contoh:
<html>
<head><title>Muslihpedia</title></head>
<body>
<BODY><CENTER>
<P>Cara Menggunakan Tag<b>&lt;
TABLE BORDER="1"&gt;</b><P>
<TABLE BORDER="1">
<TR>
<TD>Baris #1 Kolom #1</TD>
<TD>Baris #1 Kolom #2</TD>
</TR>
<TR>
<TD>Baris #2 Kolom #1</TD>
<TD>Baris #2 Kolom #2</TD>
</TR>
</TABLE></body></html>

Tampilan Setelah Dijalankan :

Menggabungkan  Kolom
Contoh :
<html>
<head><title>Muslihpedia</title></head>
<BODY>
<TABLE BORDER="1" CELLPADDING="1" CELLSPACING="1">
<TR>
<TD COLSPAN=2>Kolom A & B</TD>
</TR>
<TR>
<TD>Kolom C</TD>
<TD>Kolom D</TD>
</TR>
</TABLE></BODY>
</html>
Tampilan Setelah Dijalan :

Menggabungkan Baris
Contoh
<html>
<head><title>Muslihpedia</title></head>
<BODY>
<TABLE BORDER="1" CELLPADDING="1" CELLSPACING="1">
<TR>
<TD ROWSPAN="2">Kolom A & C</TD>  <!-- Menggabung baris -->
<TD>Kolom B</TD>
</TR>
<TR>
<TD>Kolom D</TD>
</TR>
</TABLE>
</BODY>
</html>

Tampilan Setelah Dijalankan :

Perataan Tabel
Posisi tabel dapat diatur pertaannya dengan menyertakan atribut ALIGN pada tag <TABLE>
Contoh:
<html><body>
<TABLE BORDER ALIGN="center">
<TR>
<TH>ALIGN="center"</TH>
<TD>Kolom #A Tengah</TD>
<TD>Kolom #B Tengah</TD>
</TR>
</TABLE><BR>
<TABLE BORDER ALIGN="right">
<TR>
<TH>ALIGN="right"</TH>
<TD>Kolom #A Kanan</TD>
<TD>Kolom #B Kanan</TD>
</TR>
</TABLE><BR>
<TABLE BORDER ALIGN="left">
<TR>
<TH>ALIGN="Left"</TH>
<TD>Kolom #A Kiri</TD>
<TD>Kolom #B Kiri</TD>
</TR>
</TABLE>
</body></html>

Mengatur Isi Sel
Teks dalam sel dapat diatur (align) dengan: Rata kiri, rata tengah, dan rata kanan
Atribut yang digunakan adalah :
Align={“left” | “center” | “right”} pada tag <TD>
Atau
Align={“left” | “center” | “right” | “justify”} pada tag <P> dalam tag <TD>
Contoh:
<html>
<BODY>
<TABLE BORDER="1" CELLSPACING="1" WIDTH="100%">
<TR bgcolor="silver">
<td>Text Rata Kiri</td>
<td>Text Rata Tengah</td>
<td>Text Rata Kanan</td>
<td>Text Rata Kiri-Kanan</td>
</TR>
</TR>
<TR>
<TD ALIGN="left" bgcolor="yellow">Kata-kata dalam sel ini rata KIRI</TD>
<TD ALIGN="center">Kata-kata dalam sel ini rata TENGAH</TD>
<TD ALIGN="right" bgcolor="green"><font color="yellow">Kata-kata dalam sel ini rata KANAN</TD>
<TD><p Align="Justify">Kata-kata dalam sel ini rata KIRI-KANAN</TD>
</TR>
</TABLE>
</BODY>
</html>
Tampilan Setelah Dijalankan :

Read More

0