Contoh Listing Program Sederhana Dengan Turbo Pascal

Program Negatif Positif

Program Negatif_Positif;

Uses crt;

Var

Nama:string;

X:integer;

Begin

Clrscr;

Writeln(‘Program Negatif Positif’);

Writeln(‘Oleh Ronny Tri Asmara (S1) STMIKBI BPP’);

Writeln(‘*********************************’);

Write(‘Masukkan Nama Anda : ‘);

Readln(Nama);

Writeln(‘Halo ‘,Nama)

Write(‘Silakan Masukkan Sebuah Angka : ‘);

Readln(X);

If (X<0) Then

Begin

Write(‘Bilangan Tersebut NEGATIF’);

End

Else

Begin

Write(‘Bilangan Tersebut POSITIF’);

End;

Readln;

End.

Program diatas menentukan sebuah nilai variabel dengan menyatakan nilai tersebut NEGATIF atau POSITIF. Jika anda memasukkan sebuah angka contohnya 29, maka program tersebut akan menyatakan POSITIF. Begitupun sebaliknya jika anda memasukkan angka dengan sebuah garis didepannya contoh -29, maka program tersebut akan menyatakan NEGATIF.

Catatan: Aplikasi Turbo Pascal yang saya gunakan adalah Turbo Pascal untuk sistem operasi MS-DOS. Jika anda menggunakan Turbo Pascal For Windows maka anda harus mengganti dahulu indeks yang digunakan dari Uses crt; menjadi Uses wincrt;

About these ads

Perihal Ronny Tri Asmara
University Student | Computer Technician | Programmer | Webmaster | Blogger | Pusamania | Metalheads

Tinggalkan Komentar

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: