Beranda » Bahasa Pemrograman » Contoh Listing Program Sederhana Dengan Turbo Pascal

Contoh Listing Program Sederhana Dengan Turbo Pascal

Kalender

Oktober 2011
M S S R K J S
« Sep   Nov »
 1
2345678
9101112131415
16171819202122
23242526272829
3031  

Arsip Bulanan

Follow me on Twitter

Lagu Blog

Total Pengunjung

  • 163,163 Pengunjung

Keanggotaan Blog

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

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

Supported By

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: