CONTOH TPW

Ini adalah salah satu contoh dari program Turbo Pascal win:
Berikut adalah contoh script kecil dalam program penjumlahan.


Data dalam bentuk pas dapat didownload disini 
Data dalam bentuk exe dapat didownload disini
Data dalam bentuk bak dapat didownload disini


Semoga bermanfaat dan menginspirasi.



Program Hitung;
  uses wincrt;
  var bil1,bil2:byte;
  var hasil:integer;
  var Nama:string;

begin
  write('Masukan Nama Anda:');
  readln(Nama);
  clrscr;{Ini untuk Membersihkan Layar}
  writeln('Hai ',Nama,' Anda Masuk Pada Program Penjumlahan');
  writeln ('Program Penjumlahan');
  write('Masukan Bilangan Pertama:');
  readln(bil1);
  write('Masukan Bilangan Kedua:');
  readln(bil2);
  writeln('Hasil Dari Penjumlahan Ini Adalah= ',bil1+bil2);
  writeln;
  write('Itu Adalah Penjumlahan Sekolah Dasar')

end.