MEMBUAT PROGRAM RECORD ARRAY DI PASCAL

1. Buka Aplikasi Turbo Pascal Brada

2. Ketikkan coding seperti dibawah ini 

uses crt;

( menampilkan program di layar )

type

data_mhs=record

( tipe dari variabel data_mhs adalah record )

Nama : string [16];

Kelas : string [8];

( variabel Kelas sebagai string dengan maksimal 8 karakter yang dapat di input )

Npm : string [10];

( variabel Npm sebagai string dengan maksimal 10 karakter yang dapat di input )

end;

( Menutup type )

var

mhs : array [1..5] of data_mhs;

( variabel mhs sebagai array dari data_mhs )

x,a,uts,uas : integer;

( variabel x,a,uts,uas sebagai bilangan bulat )

total : real;

( variabel total sebagai bilangan real )

begin

( mulai )

clrscr;

( bersihkan layar )

write('Silahkan Masukkan Jumlah Data Anda = ');

readln(a);

( baca sebagai a dari angka yang di input )

for x := 1 to a do

( untuk x = 1 ke nilai dari variabel a )

with mhs [x] do

( dengan variabel mhs pada [x] )

begin

writeln;

( cetak kosong ( enter ) )

writeln('record ke : ',x);

                               ( cetak record ke : nilai dari x )

write('Nama : ');

( cetak Nama : )

readln(Nama);

( membaca karakter yang di input sebagai nilai dari variabel Nama )

write('Kelas : ');

( mencetak Kelas : )

readln(Kelas);

( baca inputan sebagai nilai dari variabel Kelas )

write('Npm : ');

( mencetak Npm : )

readln(Npm);

( membaca karakter yang di input sebagai Npm )

write('Nilai UTS : ');

( mencetak Nilai UTS : )

readln(uts);

( membaca karakter yang di input sebagai nilai dari variabel uts )

write('Nilai UAS : ');

( mencetak Nilai UAS : )

readln(uas);

( membaca karakter yang di input sebagai nilai dari variabel uas )

write('total : ',(uts+uas));

( mencetak total : hasil dari penjumlahan nilai dari variabel uts dan uas )

writeln;

( cetak kosong dan setelah itu enter )

end;

( tutup begin )

writeln;

writeln;

for x := 1 to a do

( untuk x = 1 ke nilai dari variabel a )

with mhs[x] do

( dengan variabel mhs pada [x] )

begin

writeln('---------------------');

( mencetak ------------------ , terus enter )

writeln('--------Output-------');

( mencetak -------Output--------- , terus enter )

writeln('Nama : ',Nama);

( mencetak Nama : nilai dari variabel Nama )

writeln('Kelas : ',Kelas);

( mencetak Kelas : nilai dari variabel Kelas )

writeln('Npm : ',Npm);

( mencetak Npm : nilai dari variabel Npm )

writeln('Nilai UTS : ',uts);

( mencetak UTS : nilai dari variabel uts )

writeln('Nilai UAS : ',uas);

( mencetak UAS : nilai dari variabel uas )

writeln('total : ',(uts+uas) div 2);

writeln;

end;

( tutup begin )

readln;

                               end.  ( tutup begin )

Keterangan :
yang di dalam kurung itu adalah penjelasn Coding program tersebut


3. Dan Jalankan Program dengantekan CTRL + F9 Atau Pilih RUN Maka hasilnya akan seperti gambar :

 

MEMBUAT PROGRAM MENU DENGAN APLIKASI TURBO PASCAL

MEMBUAT PROGRAM MENU DENGAN APLIKASI TURBO PASCAL DAN PROGRAM BIODATA, DERET, LUAS LINGKARAN, PENILAIAN MAHASISWA DAN EXIT

1. Buka Aplikasi Turbo Pascal
2. MAsukan Coding seperti contoh gambar di bawah ini :

 

3. Selesai Memasukan coding coba jalankan program dengan cara klik run
4. Saat menjalankan program menu maka User akan di minta pilih menu dengan cara  klik tombol 1 - 5 lalu enter setelah memilih maka program yang di pilih akan di jalankan

5. Dan coba pilih menu 1 dengan menekan 1 lalu enter maka hasilnya akan seperti gambar di bawah :
6. Menu 1 ( Biodata )

 

7. Menu 2 ( Deret )

8. Menu 3 ( Luas Lingkaran )

9. Menu 4 ( Mencari Nilai )

10. Menu 5 Yaitu Exit maka Program akan kembali ke Codingan