Tugas struktur data:2

1.Program type data sederhana

Program Contoh_Integer;
Uses Wincrt;
Var y : Integer;
            p ,x: Real;
Begin
y := 8;
p := 6;
x := y + p;
Writeln(‘Nilai X adalah :’,x:4:1);
End.

Contoh program boolean

Program Boolean;

      Uses Wincrt;
var  tj : boolean;
            lahir,nama : String;
            jawab : char;

Begin
Write(‘Masukkan nama : ‘);readln (nama);
Write(‘Pernahkah melahirkan(y/t):’);readln(jawab);

If ( jawab=‘ t’)then

Else

Writeln(‘berarti anda wanita’);

If(jawab=‘y’)then

Else

Writeln(‘berarti anda pria’);

End.

Contoh program real

Program real_menghitung_nilai_c;

Uses wincrt;

Var p,c,q,var1,var2:real;

Begin

      write(‘masukkan nilai p’);readln(p);

      write(‘masukkan nilai q’);readln(q);

      writeln;

      var1:=(5/2)*p;

      var2:=(5*q/5);

      c:=var1*var2;

Writeln(‘jadi nilai c adalah’);

End.

2.Program operasi type data sederhana dalam bahasa pascal

Contoh program operator not.

      program operator_not;

      uses wincrt;

      var

                  A:boolean;

      begin

                  clrscr;

                  A:=false

                  A:=not A;

                  writeln (A);

                  readln;

      end.

Contoh program menggunakan operator not

Program operator_not;

Uses wincrt;

Begin

Clrscr;

Writeln(‘true and true=‘,true and true);

Writeln(‘true and false=‘,true and false);

Writeln(‘false and true=‘,false and true);

Writeln(‘false and false=‘,false and false);

Readln;

end.

Contoh program menggunakan operator or

Program operator_or;

Uses wincrt;

Begin

Clrscr;

Writeln(‘true or true=‘,true or true);

Writeln(‘true or false=‘,true or false);

Writeln(‘false or true=‘,false or true);

Writeln(‘false or false=‘,false or false);

Readln;

And.

Contoh program menggunakan operator xor

Program operator_xor;

Uses wincrt;

Begin

Clrscr;

Writeln(‘true xor true=‘,true xor true);

Writeln(‘true xor false=‘,true xor false);

writeln(‘false xor true=‘,false xor true);

Writeln(‘false xor false=‘,false xor false);

Readln;

End.

Contoh program aritmatika

Program contoh_aritmatika_perkalian;

Uses wincrt;

Var a,b:integer;

                  c:real;

Begin

Writeln(‘program aritmatika’);

Writeln(‘==============‘);

Writeln(‘masukkan nilai a:’);readln(a);

Writeln(‘masukkan nilai b:’);readln(b);

Writeln(‘perkalian’);

C:=a*b;

Writeln(‘hasil perkalian a dan b adalah’);

Readln;

End.

Array (Larik)

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

Array juga mempunyai definisi lain yaitu struktur data yang statis yang mempunyai 1 nama tetapi memiliki banyak tempat. Setiap tempat harus dibedakan, untuk membedakannya dibutuhkan penunjuk, pentunjuk dapat berupa karakter(char) atau integer. Sekali disimpan dalam penunjuk yang sama(berbentuk indeks), maka isinya tidak akan hilang kecuali indeksnya diisi oleh nilai yang lain.

       Suatu array dapat dibedakan atas 2 (dua) bagian, yaitu :

Array Berdimensi Satu

Array berdimensi satu dapat dikatakan sebagai suatu daftar yang linier atau sebuah kolom. Bentuk deklarasi dari array jenis ini dalam bahasa Pascal adalah:

      VAR nama_array : ARRAY [index] OF jenis_elemen;

Array Multi Dimensi

Array dimensi dua ini dapat dianggap sebagai sebuah matriks yang jumlah kolomnya  lebih dari satu. Bentuk deklarasi :

      VAR nama_array : ARRAY  [indeks_baris,indeks_kolom] OF jenis;

      Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.

Contoh program array

RECORD

Sebuah record merupakan koleksi satuan data yang heterogen, yakni terdiri dari berbagai type. Satuan data tersebut sering disebut sebagai field dari record. Field dipanggil dengan menggunakan namanya masing-masing. Suatu field dapat terdiri atas beberapa sub field.

Sebuah record memberi informasi tentang berbagai kondisi dari obyek pada permasalahan yang nyata sehari-hari.Setiap field memberi uraian tentang satu atribut dari obyeknya. Sebuah record biasanya diberi identifikasi oleh key-nya. Key atau kunci adalah salah satu atau lebih field yang dipilih untuk tujuan penyampaian  informasi yang terjadi di dalam record yang bersangkutan.