Program Pendaftaran Mahasiswa Baru

Program mahasiswa;
uses wincrt;
var no,nama,tempat,tgl,bln,thn,seko : string;
biaya_pend,biaya_ako,total:real;
tanggal,tahun,bulan,asal:integer;

Membangun Mental Juara

Oleh Akbar Zainudin

Trainer, Penulis buku best seller Man Jadda Wajada

Salah satu modal besar yang menjadi syarat sukses seseorang adalah bahwa dalam dirinya mesti mempunyai mental juara. Hidup selalu penuh dengan rintangan dan tantangan, tanpa mental juara yang kuat, orang akan sering dikalahkan oleh kehidupan. Tanpa mental juara yang kuat, bukannya maju dan berkembang, malah berhenti di tempat ataupun mundur ke belakang.

Bagaimana kita bisa membentuk sikap mental juara yang kuat dalam diri kita? Berikut ini beberapa hal yang bisa kita lakukan: 

Cara Membuat Tabel dengan HTML

           Tabel pada HTML dipergunakan untuk membuat dan menampilkan data dalam betuk baris dan kolom. Disini kita akan membahas apa saja yang digunakan untuk membuat Tabel  adalah:

Atribut Tabel tag <TD>

MAKALAH STRUKTUR DATA PROGRAM PEGAWAI DENGAN MENGGUNAKAN TPW

DISUSUN OLEH KELOMPOK 3

MAKALAH STRUKTUR DATA

PROGRAM PEGAWAI

Di susun untuk memenuhi salah satu tugas Mata Kuliah Struktur Data

Makalah Program Data Barang Menggunakan TPW

DISUSUN OLEH KELOMPOK 2                                                                       

                                                                             BAB I

                                   PENDAHULUAN

a.         Latar belakang

            Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland. Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.

MAKALAH PROGRAM PENJUALAN DENGAN MENGGUNAKAN TPW

DISUSUN OLEH KELOMPOK 1

KATA PENGANTAR

Puji syukur alhamdulillah pemakalah panjatkan kepada Allah ilahi robbi, yang dengan takdirnya menciptakan jagat raya ini dengan segala bentuk isinya. Tak ada kata yang patut di lupakan kecuali hanya rasa syukur yang berbunyi ” Alhamdulillahirobbil’alamin”.

Shalawat serta salam juga tak lupa pemakalah haturkan kepada Baginda Khatimun Ambiya’, Nabi Muhammad SAW, yang dengan pancaran Nur (cahaya) ilmunya, Dunia terasa lebih hidup, lebih terang dari Nur apapun.

KUMPULAN SOAL LATIHAN STRUKTUR DATA

1. Struktur pertama dalam pascal adalah

a. Char;

b. String

c. End.

d. Writeln

e. Uses crt;

Jawab   : E

Alasan   : Uses crt merupakan pengenal untuk suatu sistem operasi yang digunakan dalam pascal.

Contoh Program Menghitung Luas Segiempat

program menghitung_luas_segi_empat;
uses wincrt;
var S,L:real;
begin
     writeln;
     writeln('========================================');
     writeln('   Program Menghitung Luas Segi Empat   ');
     writeln('========================================');
     writeln('              Lia Septiani           ');
     writeln('========================================');
     writeln;
     write('Masukan Nilai Sisi  : ');readln(S);
     L:=S*S;
     writeln('Luas Segi Empat   : ',L:0:2);
end.

Contoh Program Menghitung Luas Segitiga

Program Luas segitiga

program menghitung_segi_tiga;
uses wincrt;
var A,T,L:real;
begin
     writeln ;
     writeln ('=====================================');
     writeln ('  Program Menghitung Luas Segitiga   ');
     writeln ('=====================================');
     writeln ('            Lia Septiani             ');
     writeln ('=====================================');
     writeln;
     write ('Masukan nilai Alas       : ');readln(A);
     write ('Masukan nilai Tinggi     : ');readln(T);
     L:=(A*T)/2;
     writeln ('Luas Segi Tiga           : ',L:0:2);
end.