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

Latihan Soal dan Jawaban Stuktur Data

1.   Struktur pertama dalam pascal adalah.....

a. Char;

b. String

c. End.

d. Writeln

e. Uses Crt;

Alasan : Karena Uses crt merupakan pengenal untuk suatu sistem operasi yang digunakan.

             

2.   Untuk melihat hasil dari program yang di kerjakan tekan tombol....

a. Ctrl+F5

b.Ctrl+F9

c. Ctrl+F2

d. Ctrl+F12

e. Ctrl+F4

Alasan : Ctrl + F9 adalah langkah cepat untuk melihat hasil program "Run".

 

3.    Berapa kode yang digunakan  untuk membuat tulisan berwarna “CYAN”....

a.4

b. 2

c. 128

d. 7

e. 3

Alasan : 3 kode yang digunakan untuk membuat tulisan berwarna "CYAN".

 

4.   Perintah dasar sederhana dalam program pascal adalah.....

a. Readln

b. End

c. Write

d. Writeln

e. Uses crt;

Alasan : Dengan adanya sintak write di program, maka kita dapat melihat Layout program (hasil cetak program di layar).

 

5.   Tipe data bahasa pascal untuk TRUE FALSE  adalah....

a. String

b. Char

c. Boolean

d. Byte

e. Real

 Alasan : Boolean adalah type data yang hanya mengenal BENAR / SALAH atau dengan kata lain TRUE / FALSE.

 

6.   Siapakah penemu program pascal....

a. Greyson Change

b. Prof. Niklaus Wirth

c. Kondrazuse

d. Prof. Niklaus Smirth

e. Dr.  Hercules

Alasan : Nama Pascal diambil dari nama seorang matematikawan Perancis, Blaise Pascal. Beliau membuat bahasa pemrograman Pascal untuk menjadi alat bantu belajar pemrograman bagi para mahasiswanya dan melengkapi kekurangan-kekurangan bahasa pemrograman pada saat itu.

 

7.   Struktur bahasa pemrograman pascal paling pertama adalah....

a. Var;

b. Begin

c. End;

d. Uses crt;

e. Writeln;

Alasan : Begin adalah bagian pertama struktur bahasa pemrograman Pascal yang menandakan awal membuat suatu program.

 

8.   Tipe data pascal untuk karakter adalah....

a. Char

b. Boolean

c. Integer

d. Real

e. Byte

 Alasan : Char adalah type data untuk karakter, dengan valuerange  adalah ASCII.

9.   Kapan terbentuknya pascal....

a. 1981

b. 1971

c. 1961

d. 1991

e. 1987

Alasan :  Bahasa pemrograman pascal diperkenalkan pada tahun 1971  oleh profesor Niklaus Wirth dari Technical University of Zurich, Switzerland.

 

10. Apa kepanjangan dari USES....

 a. Unit Secure

b. Unit Syntax

c. Unit System

d. Up Software

e. Unit Semiconductor

Alasan : Uses merupakan pengenal untuk suatu sistem operasi yang digunakan.

 

11. Berikut ini adalah penulisan identifier yang benar dalam pemrograman pascal adalah....

a. 9Program_Satu

b. Program_Satu

c. Program Satu

d. Begin

e. Array

Alasan : Pada penulisan identifier harus diawali hurup, tidak boleh angka terlebihdahulu (angka diletakan di tengah atau akhir), atau pun menggunakan karakter selain underscore  "_", juga tidak boleh ada spasi.

 

12. Tipe bilangan bulat dalam bahasa pascal dikenal sebagai....

a. Byte

b. Integer

c. Char

d. String

e. Boolean

Alasan : Integer adalah type data bilangan bulat dengan valuerange  adalah -32768 .. 32767.

 

13. Istilah “perulangan” dalam pemrograman pascal dikenal dengan....

a. Repeating

b. Again

c. Function

d. Replay

e. Looping

Alasan : Perintah looping digunakan untuk membuat program ketika dibutuhkan program yang diulang-ulang. looping pada pascal yaitu "for - do", "while - do", dan  "repeat - until". 

 

14. Perintah untuk menutup program pada Pascal adalah...

a. END.

b. Program

c. Uses crt;

d. Finish

e. END;

Alasan : END. adalah bagian akhir struktur pemrograman pascal yang menandakan penutup program.

 

15. Menggambarkan program secara logika merupakan fungsi dari...

a. Flowchart

b. DxDiag

c. Begin

d. SI

e. Sistem Operasi

Alasan : Flowchart merupakan alur dari suatu program, atau gambaran  program secara logika. 

 

16. Deklarasi yang digunakan untuk mengidentifikasikan data yang nilainya sudah ditentukan dan pasti, tidak  dapat  dirubah dalam program disebut deklarasi....

a. Deklarasi label

b. Deklarasi Konstanta

c. Deklarasi tipe

d. Deklarasi Variabel

e. Deklarasi Prosedur

Alasan :  Pada deklarasi konstanta, dalam program, seorang programmer  dapat mengidentifikasikan data yang nilainya sudah ditentukan dan pasti dan tidak dapat dirubah.

 

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal, kecuali....

a. Deklarasi perubah

b. Deklarasi proses

c. Deklarasi konstanta

d. Deklarasi tipe

e. Deklarasi prosedur

Alasan : Deklarasi proses tidak termasuk deklarasi dalam pascal. Deklarasi dalam pascal yaitu deklarasi perubah, deklarasi  konstanta, deklarasi tipe, deklarasi prosedur, dll. 

 

18. Bilangan  yang  mengandung pecahan, palingsedikit  harus ada satu digit  sebelum dan sesudah titik  desimal termasuk dalam tipe data...

a. Real

b. Boolean

c. Integer

d. Longint

e. Byte

Alasan : Real adalah type data yang mengandung bilangan pecacah dengan Valuerange 2.9 x 10^-39 s/d 1.7 x 10^38.

 

19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah....

a. Writeln

b. Readln

c. Begin

d. Write

e. Clrscr

Alasan : Prosedur clrscr digunakan untuk membersihkan layar pada saat Program dijalankan (halaman baru).  Perintah clrscr ditulis “clrscr;”.

 

20. Bentuk dari suatu  statement IF  berada  di dalam lingkungan statemen IF  yang  lainya, disebut IF dalam kondisi....

a. IF bersarang

b. IF bercabang

c. IF tunggal

d. IF-THEN

e. IF do while-until

Alasan : IF bersarang merupakan bentuk dari suatu statemen IF yang Berada didalam statemen IF yang lainya.

 

21. Tipe data terstruktur yang  terdiri  dari  sejumlah komponen  komponen yang mempunyai tipe sama, disebut tipe data...

a. Array

b. Byte

c. Longint

d. Integer

e. Boolean

Alasan : Array merupakan typedata terstruktur yang mempunyai type Data, variable, dan Ukuran yang Sam.

 

22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut...

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

Alasan : write akan menampilkan atau cetak dilayar monitor tanpa pindah baris. Contoh : write(‘HELLO WORLD’);.

 

23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah bariskebawah, disebut...

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

Alasan : writeln akan menampilkan atau cetak dilayar monitor lalu Pindah baris kebawah. Contoh : writeln(‘HELLO WORLD’);.

 

24.  Suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses, disebut....

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

Alasan : variabel nilainya tidak tentap atau nilainya dibubuhkan Sendiri atau nilainya hasil dari suatu proses.

 

25.  Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram ( program bagian ), disebut...

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

 Alasan : Prosedur merupakan program terpisah dalam blok sendiri  yaitu sebagai subprogram dimana nantinya bias di panggil di   program utama. Prosedur ini memudahkan untuk pengembangan program supaya lebih cepat.

Read More

0