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;

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:

Logo WordPress.com

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

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s

Ikuti

Kirimkan setiap pos baru ke Kotak Masuk Anda.

%d blogger menyukai ini: