definisi record pascal

 Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array).


Cara pendeklarasian dari record adalah sbb:
• Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai),
• Mendefinisikan variabel untuk dilakukan operasi.

SYNTAX

type

nama_record = record
identifier_1 : tipe_data_1;
:
:
identifier_n : tipe_data_n;
end;
var variabel : nama_record;


Contoh.

type

Data_mahasiswa = record
Nama : string;
Usia : integer;
Kota : String;
Kodepos : integer;
end;
Var
x: Data_mahasiswa;

prosedur pada pascal

Baik, kali ini kita masuk kebagian procedure dan fungsi di pascal. Tapi sebelum membahas lebih jauh kita kenali dulu kira-kira apa sih perbedaan procedure dan fungsi di pascal. Perbedaannya yaitu. Prosedur diawali dengan dengan kata procedure untuk mendeklarasikannya Contoh : procedure hitung_angka ;  kalau fungsi di awali dengan kata function Function hitung_bilangan: integer; Procedure tidak mengembalikan nilai ke program utama, sedangkan fungsi akan mengembalikan nilai ke program utama, itu sebabnya fungsi harus ada tipe datanya...

contoh pascal record

Nah, setelah tau definisi Record Pascal, sekarang saya akan memberi contoh penggunaannya dalam bentuk record mahasiswa. Yang dimana, mahasiswa angkatan 2010 keatas adalah SENIOR, sedangkan mahasiswa 2010 dan seterusnya adalah JUNIOR. Contoh : 2011, 2012, 2013, 2014 (JUNIOR). ============================================= Program RecordMahasiswa; uses wincrt; type mahasiswa = RECORD NPM     : String; Nama    : String; Thnmasuk: Integer; ket     : String; end; var mhs : Array[1..50]...

contoh pengguna fungsi pada turbo pascal

Buka halaman kerja baru. Untuk program ini, berikan kode program sebagai berikut : Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard. Tampilan program yang sudah berjalan. Jika nilai nilai yang dimasukan untuk nilai 1 = 54 dan nilai 2 = 48 Berikut keterangan dan logika dari tiap kode pada program Program Fungsi; (judul...

    Buka halaman kerja baru.
    Untuk program ini, berikan kode program sebagai berikut :

    Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard.
    Tampilan program yang sudah berjalan.

Jika nilai nilai yang dimasukan untuk nilai 1 = 54 dan nilai 2 = 48




Berikut keterangan dan logika dari tiap kode pada program

Program Fungsi;

(judul program)

uses crt;

(unit yang digunakan dalam program)

function besar (a,b : integer): integer;

(memulai proses function dengan nama ‘besar’, dimana nilai variabel a dan b yang ada dip roses tersebut bertipe integer / bilangan bulat)

begin

(awal dari blok statement function ‘besar’)

if a>b then

(memulai printah kondisi, dimana jika nilai dari variabel a lebih besar dari nilai variabel b, maka akan menjalankan perintah di bawah)

besar := a

(nilai procedure ‘besar’ akan sama dengan nilai variabel a)

else

(selain kondisi di atas, maka akan menjalankan perintah di bawah)

besar := b;

(nilai procedure ‘besar’ akan sama dengan nilai variabel b)

end;

(akhir dari blok statement function ‘besar’)

var

(pendeklarasian variabel)

a,b: integer;

(Pendeklarasian data variabel bertipe integer / bilangan bulat)

begin

(awal dari blok statement)

clrscr;

(membersihkan layar)

write(‘Nilai Bilangan 1 = ‘); readln(a);

(mencetak kalimat ‘Nilai Bilangan 1 = ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘a’)

writeln;

(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)

write(‘Nilai Bilangan 2 = ‘); readln(b);

(mencetak kalimat ‘Nilai Bilangan 2 = ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘b’)

writeln;

(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)

write(‘Bilangan Terbesar = ‘, besar (a,b):5);

(mencetak kalimat ‘Nilai Terbesar = ‘ lalu memasukan nilai procedure ‘besar’, dimana nilainya didapat dari nilai variabel a dan b yang telah dimasukan sebelumnya dengan penempatan nilai variabel setelah 5 x spasi )

readln;

(menunggu penekanan enter)

end.

perulangan while do

Hooaammzz, -_- . Next :D Kali ini kita akan membahas tentang perulangan WHILE-DO. Perulangan while – do adalah perulangan bersyarat yang paling umum digunakan. Perintah ini akan terlebih dahulu memeriksa kebenaran nilai yang diujikan, kemudian menjalankan dan mengulang perintah selama hasil pengujian nilai bernilai “Benar”. Terkadang jika salah dalam pembuatan statemen ini, perulangan while – do dapat mengakibatkan perulangan yang tidak dapat berhenti atau dapat dikenal dengan istilah infinite loop, hal ini dapat mengakibatkan terkurasnya

contoh while do

Setelah mengetahui definisi dari while do, sekarang saya akan memberi contoh soal sebagai berikut : Ada katak masuk kedalam sumur sedalam 31.2 m. 5 hari pertama katak bisa naik 3 m tiap pagi dan merosot 1 m tiap malam, 10 hari berikutnya katak bisa naik 2 m tiap pagi dan merosot 1.25 m tiap malam, selanjutnya naik 2 m tiap pagi dan merosot 1.5 m tiap malam, berapa hari katak tersebut dapat keluar dari sumur? ====================================== Program KodokTampan; Uses wincrt; Var ds,t,jt:real;     i,n:integer;    ...

Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do
Begin
clrscr;
Write('Masukan Kedalaman Sumur = ');readln(ds);
i:=1;
n:=3;
t:=1;
while ds > 0 do
Begin
     if (i>5) and (i <=15) then
     begin
     n:=2;
     t:=1.25;
     end
     else if i > 10 then
     begin
     n:=2;
     t:=1.5;
     end;
jt:=n-t;
ds:=ds-jt;
Writeln(i:4,' hari', n:8,' m', t:8:2, ds:8:2);
i:=i+1;
end;
Writeln;
Writeln('==============================================');
    Writeln('= Created, Ardiansyah || 20142205026 ||TI.11 =');
Writeln('==============================================');
    write('Mau ulang lagi? [Y/T]: ');
    Readln(ulang);
end; 
end.
=============================================
Hasil Output nya :

contoh pascal fungsi if then

 Next, pada kali ini kita akan membahas penggunaan fungsi If Then..

Yang dimana pernyataan If digunakan untuk menguji sebuah kondisi. Bila kondisi yang diuji terpenuhi, program akan menjalankan pernyataan-pernyataan tertentu; dan bila kondisi yang diuji salah, program akan berhenti dan tidak menjalankan apapun.

Pada contoh kali ini saya akan memberikan contoh soal,
Program untuk mengetahui Informasi harga besar angsuran jika dikredit selama 10 Tahun.
Adapun daftarnya sebagai berikut :


Program Tunai_Kreditt;

uses wincrt;
var
tipe,jenis:char;

begin
clrscr;
write('Pilih Tipe Rumah [A,B,C,D]= ');readln(tipe);
write('Jenis Pembayaran [T/K]    = ');readln(jenis);
Writeln;
if tipe ='A' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 50.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 500.000');
end;
end;
if tipe ='B' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 65.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 650.000');
end;
end;
if tipe ='C' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 75.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 700.000');
end;
end;
if tipe ='D' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 85.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 850.000');
end;
end;

readln;
end.

======================================
Berikut hasil outputnya :