Program Operasi Sederhana TPW 1.5

Berawal  dari tugas yang di berikan oleh Dosen pengajar Algoritma dan Pemrogaman 1, saya mencoba untuk menshare tugas tersebut ke blog saya, itung-itung buat nambah postingan dan juga menambah pegunjung blog saya, hehe

Oke kita mulai saja, "kemarin tepatnya pada tanggal 20 desember 2011 dosen meminta kami untuk membuat program operasi sederhana seperti, tambah,kurang, kali, bagi menggunakan Turbo Pascal For Windows 1.5, nah berikut programnya :

1. Buka TPW anda lalu Klik FILE-NEW.

    ( Setelah itu di apain ni, sabar-sabar hehe . )

2. lalu ketikan program berikut tapi satu-satu ya, setelah program diakhiri dengan End. anda tidak diperbolehkan megetik lagi, (End. menandakan program telah berakhir) di bawah ini ada 4 program yaitu tambah, kali, bagi.

program penambahan;

uses    wincrt;

var     n1,n2,hasil:real;

begin

writeln ('selamat datang di program operasi penambahan');

writeln ('=========================================');

writeln;

write   ('angka pertama =');

readln  (n1);

write   ('angka kedua =');

readln  (n2);

hasil:=n1+n2;

writeln ('jadi hasil operasinya adalah =', hasil:0:0);

end.

program pengurangan;

uses    wincrt;

var     n1,n2,hasil:real;

begin

writeln ('selamat datang di program operasi  Pengurangan');

writeln ('=========================================');

writeln;

write   ('angka pertama =');

readln  (n1);

write   ('angka kedua =');

readln  (n2);

hasil:=n1-n2;

writeln ('jadi hasil operasinya adalah =', hasil:0:0);

end.

program perkalian;

uses    wincrt;

var     n1,n2,hasil:real;

begin

writeln ('selamat datang di program operasi perkalian');

writeln ('=========================================');

writeln;

write   ('angka pertama =');

readln  (n1);

write   ('angka kedua =');

readln  (n2);

hasil:=n1*n2;

writeln ('jadi hasil operasinya adalah =', hasil:0:0);

end.

program pembagian;

uses    wincrt;

var     n1,n2,hasil:real;

begin

writeln ('selamat datang di program operasi Pembagian');

writeln ('=========================================');

writeln;

write   ('angka pertama =');

readln  (n1);

write   ('angka kedua =');

readln  (n2);

hasil:=n1/n2;

writeln ('jadi hasil operasinya adalah =', hasil:0:0);

end.

3. Setelah program selesai diketik misalnya program tambahan selesai maka anda klik Compile (Alt + F9) ini bertujuan untuk mengoreksi program apa program kita salah atau tidak, kalau berhasil maka akan muncul tulisan "Succesfully Completed".

4. lalu Run (Ctrl + F9) untuk menampilkan  program kita ke layar.

saya rasa sekian untuk postingan hari ini semoga bermanfaat, salam sukses dari saya Muharir.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email