PROGRAM BIAYA ANGSURAN DENGAN PASCAL

program biaya angsuran;
Sintaks Program :
program biaya;
uses wincrt;
var
   tmpt, nama, jurusan :string;
   no, total,tgl,bulan,tahun, bayar, sisa : real;
begin
   writeln('Formulir Angsuran Biaya');
   write  ('No          : ');readln(no);
   write  ('Nama        : ');readln(nama);
   write  ('TTL         : ');
   gotoxy(15,4);readln(tmpt);
   gotoxy(24,4);write(',');
   gotoxy(25,4);readln(tgl);
   if tgl > 31 then
   donewincrt;
     
   gotoxy(27,4);write('-');
   gotoxy(28,4);readln(bulan);
   if bulan > 12 then
   donewincrt;
   gotoxy(30,4);write('-');
   gotoxy(31,4);readln(tahun);
   if tahun > 1996 then
   donewincrt;
   write  ('Jurusan     : ');readln(jurusan);
   total:=700000;
   writeln('Total Biaya : Rp.',total:0:2);
   write  ('Bayar       : Rp.');readln(bayar);
   sisa := total-bayar;
   write  ('Sisa BAyar  : Rp.',sisa:0:2);
end.

Gambar program setelah dijalankan :

DaftarKelompok :
Muslihudin
Ega Herdiana
Muhamad Ramdan
Ahmad Sabit
Helmi Fauzi
Irham Mediawan
Tendi Edrisa
Fathul Bari Abdul Aziz

MANPAAT BELAJAR TURBO 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();
}

Cara Membuat Tabel Di HTML

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

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 :

semoga bermanpaat :)

soal struktur data

SOAL LATIHAN STRUKTUR DATA :

1. Struktur pertama dalam pascal adalah

a. Char;

b. String

c. End.

d. Writeln

e. Uses crt;

Alasan : karena kalau tidak pake uses wincrt programnya akan eror

2. Untuk melihat hasil dari program yang dikerjakan tekan tombol

a. Crtl+f5

b. Ctrl+f9

c. Ctrl+f2

d. Ctrl+f12

e. Ctrl+f4

Alasan :cara cepat untuk melihat hasil program

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

a. 4

b. 2

c. 128

d. 7

e. 3

Alasan : karena CYAN campuran dari tiga warna

4. Perintah dasar sederhana dalam program pascal adalah

a. Readln

b. End

c. Write

d. Writeln

e. Uses crt;

Alasan : karena write merupakan program aling sederhana

5. Tipe data bahasa pascal untuk TRUE FALSE adalah

a. String

b. Char

c. Boolean

d. Byte

e. Real

Alasan : karena BOOLEAN merupakn bagian dari true false

6. Siapakah penemu pascal

a. Greyson change

b. Prof. Niklaus Wirth

c. Kondrazuse

d. Prof. Niklaus Smirth

e. Dr. Hercules

Alasan : ya karena penemunya itu hehe

7. Struktur bahasa pemrograman pascala paling pertama adalah

a. Var;

b. Begin

c. End;

d. Uses crt;

e. Writeln;

Alasan :karena sintak yg pertama ditulis adalah uses crt

8. Tipe data pascal untuk karakter adalah

a. Char

b. Boolean

c. Integer

d. Real

e. Byte

Alasan :karena karakter kepanjangan dari char

9. Kapan terbentuknya pascal

a. 1981

b. 1971

c. 1961

d. 1991

e. 1987

Alasan :terbentuknya pascal ditahun sekian

10. Apakah kepanjangan dari USES

a. Unit secure

b. Unit syntax

c. Unit system

d. Up software

e. Unit semiconductor

Alasan :itu jawabannya yg benar

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

a. 9program_satu

b. Program_satu

c. Program satu

d. Begin

e. Array

Alasan :karena program satu merupakan dari pascal yg penulisannya identifier

12. Tipe bilangan bulat dalam bahasa pascal dikenal dengan

a. Byte

b. Integer

c. Char

d. String

e. Boolean

Alasan :karena integer merupakan ciri bilangan bulat dalam pascal

13. Istilah “perulangan” dalam pemrograman pascal dikenal sebagai

a. Repeating

b. Again

c. Function

d. Replay

e. Looping

Alasan :karena looping digunakan untuk perulangan dalam pascal

 14. Perintah untuk menutup program pada Pascal adalah

a. END.

b. Program

c. Uses crt;

d. Finish

e. END;

Alasan :end digunakan untuk menutup program pascal sebelum di tutup

15. Menggambarkan program secara logika merupakan fungsi dari

a. flowchart

b. DxDiag

c. Begin

d. SI

e. Sistem Operasi

Alasan : karena flowchart digunakan untuk menmbahkan gambar pada program pascal

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

a. Deklarasi label

b. Deklarasi Konstanta

c. Deklarasi tipe

d. Deklarasi Variabel

e. Deklarasi Prosedur

Alasan :karena deklarasi konstanta digunakan untuk mengidentifikasi data yg sudah pasti

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal kecuali

a. Deklarasi perubah

b. Deklarasi proses

c. Deklarasi konstanta

d. Deklarasi tipe

e. Deklarasi prosedure

Alasan :karena deklarasi proses bukan bagian dari deklarasi pascal

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

a. Real

b. Boolean

c. Integer

d. Longint

e. Byte

Alasan :karena bilangan yg mengandung bilangan pecahan adalah real

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

a. Writeln

b. Readln

c. Begin

d. Write

e. Clrscr

Alasan :karena clrscr digunakan untuk menghapus dalam program pascal

20. Bentuk dari suatu statement IF berada didalam lingkungan statement IF yang lainnya, disebut IF dalam kondisi

a. IF bersarang

b. IF bercabang

c. IF tunggal

d. IF-THEN

e. IF do while-until

Alasan : karena IF bersarang terdapat dalam IF

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 :Karena array mempunyai tipe yg sama

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

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

Alasan :karena read merupakan sintak untuk mencetak di layar monitor

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

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

Alasan :readln untuk mencetak di layar monitor pindah baris

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 :duka pa ttrang hehe

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

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

Alasan :karena variabel adalah suatu program yg terpisah dlam pascal