Universitas Gunadarma - Sistem Informasi

Wednesday, March 30, 2011

PROGRAM SEDERHANA TURBO PASCAL

Untuk Program Yang lebih populer silahkan klik ini



INPUT :

USES CRT;
VAR
NAMA :STRING;
NPM :STRING;
BEGIN
CLRSCR;
GOTOXY (25,2);
WRITELN ("===========================")
GOTOXY (38,3);
WRITELN ("BIODATA");
GOTOXY (25,4);
WRITELN ("===========================")
GOTOXY(30,7);
WRITE ("NAMA"); READLN (NAMA);
GOTOXY(30,9);
WRITE ("NPM"); READLN (NPM);
WRITELN;
GOTOXY(25,13);
WRITELN ("ANDA BERNAMA : ", NAMA);
GOTOXY(25,15);
WRITELN ("NPM ANDA : ", NPM);
WRITELN;
READLN;
END.

Program di atas menggunakan statement write, writeln, readln, dan gotoxy. Kegunaan dan write dengan writeln itu berbeda. Write digunakan untuk menulis atau mencetak dengan diikuti oleh readln. Yang kegunaannya untuk memasukan nilai pada output. Yang kemudian akan diproses.
Dalam memulai tahap pembuatan program. Harus di mulai dengan begin. Dan diakhiri dengan end, disertai tanda titik dibelakng end. Barulah kita masukan statement statement diantara begin dan end. Jika tidak melakukan langkah tersebut maka program tidak akan jalan.


OUTPUT
=================================
BIODATA
=================================

NAMA :

NPM :


ANDA BERNAMA :

NPM ANDA :

Ini adalah output dari program di atas. Dengan program mengenai biodata. Demgam menekan ctrl + F9 kita mengeksekusi program tersebut. Dengan menulis di output dan dapat mencetak langsung di output tersebut





INPUT :

USES CRT;
BEGIN
CLRSCR;
GOTOXY(18,3);
WRITELN ("============================");
GOTOXY(18,4);
WRITELN ("== ==");
GOTOXY(18,5);
WRITELN ("== ==");
GOTOXY(18,6);
WRITELN ("== ==");
GOTOXY(25,5);
WRITELN("HALO SAYA INDRA DWI NUGROHO");
GOTOXY(18,7);
WRITELN("=============================");
READLN;
END.



Ini adalah program sederhana yang hanya dibuat dengan statement writeln dengan readln. (itupun sudah cukup). Tanda garis putus-putus tersebut berfungsi untuk menghasilkan bingkai pada output. Dan statement gotoxy digunakan untuk memposisikan writeln yang akan dibuat
Sama seperti semua program dimulai dengan begin dan diakhiri dengan end. Clrscr digunakan untuk membersihkan layer output yang mana habis digunakan sebelumnya. Statement ini boleh di gunakan ataupun tidak. Namun sebaiknya digunakan agar layer output bersih. Dan yang ada hanya poutput dari program yang baru kita kerjakan.


OUTPUT :


==================================
== ==



== HALOSAYA INDRA DWI NUGROHO ==
== ==
==================================

Ini adalah output dari program di atas. Dengan program mengenai biodata. Demgam menekan ctrl + F9 kita mengeksekusi program tersebut. Dan menghasilkan output “HALO SAYA INDRA DWI NUGROHO”.Dengan bingkai dari sama dengan.
FUNGSI-FUNGSI STATEMENT, ;



1. Variabel
• Digunakan untuk mengelompokan variable yang akan digunakan yang biasanya berisikan data integer, real,character, string.
2. String
• Digunakan untuk menyimpan suatu data berbentuk text. Yang bisa dikombinasikan dengan readln.
3. Begin
• Langkah untuk memulai suatu program yang keberadaannya mutlak.
4. CLRSCR
• Digunakan untuk membersihkan layar output. Statement ini boleh digunakan ataupun tidak. Hanya saja jika anda ingin membersihkan layar output anda, agar tidak bertumpukan dengan program anda yang lainya.
5. Write
• Digunakan untuk mencetak langsung pada output dan didampingi oleh readln. Agar program dapat dieksekusi.
6. Writeln
• Digunakan untuk langsung mencetak pada output tanpa didampingi oleh readln. Yang mana apabila tidak didampingi oleh readln program tersebut tetap dapat dieksekusi.
7. Readln
• Untuk membaca variable yang telah dituliskan. Dengan statement ini write dapat dieksekusi.
8. Gotoxy
• Digunakan untuk menempatkan output pada keberadaan x dan y. biasanya digunakan hanya untuk memperindah output.

No comments:

Post a Comment