Tugas 1 Struktur Data

1. Pendefinisian Variabel

Variabel adalah suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses. (Variabel yang dimaksudkan disini sama seperti halnya arti variabel pada aljabar).

2. Kondisi (if...then...else) dan (case..of..)

Percabangan if..else digunakan untuk pengujian sebuah kondisi. Jika kondisi yang diuji tersebut terpenuhi, maka program akan menjalankan pernyataan-pernyataan tertentu. Jika kondisi yang diuji salah, program akan menjalankan pernyataan yang lain.

Statemen CASE-OF digunakan untuk memilih jika terdapat lebih dari dua kondisi yang setiapnya memerlukan penanganan yang berbeda.

3. Perulangan (for...to...do...) (while...do...) (repeat...until...)

FOR…DO dipergunakan ketika nilai yang akan digunakan sudah diketahui dengan nilai yang ada di dalamnya selalu ditambah atau dikurangi satu ketika mengalami perulangan.

Sintaks:

FOR variable := startindex (TO/DOWNTO) endindex DO BEGIN

statement;

END;

Dari sintaks di atas, terdapat dua jenis perubahan yang dapat digunakan, yaitu TO dan DOWNTO. TO akan menghasilkan nilai incremental atau penambahan satu setiap kali terjadi perulangan. Sedangkan DOWNTO akan menghasilkan nilai decremental atau pengurangan satu setiap kali terjadi perulangan.

WHILE…DO dapat digunakan tanpa harus ada perubahan pada nilai kondisi. Selama kondisi masih bernilai TRUE, maka perulangan akan dilakukan terus.

Sintaks:

WHILE (condition) DO BEGIN

statement;

END;

REPEAT…UNTIL berfungsi hampir sama dengan WHILE…DO. Pada REPEAT…UNTIL, looping akan berhenti justru ketika kondisi bernilai TRUE. Selain itu kondisi akan diuji pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu kali walaupun kondisi yang ada masih FALSE.

Sintaks:

REPEAT

statement;

UNTIL (condition);

Dari penggalan program di atas, dapat dilihat bahwa REPEAT…UNTIL tidak memerlukan BEGIN dan END untuk menjalankan suatu blok statement.
Berikut contoh script dan hasilnya
1. IF THEN ELSE

var

a:integer;

begin

writeln('Berapa kali Anda membolos kuliah? ');

readln(a);

if a>=5 then

writeln('Anda tidak boleh mengikuti ujian')

else

writeln('Anda boleh mengikuti ujian');

readln;

end.

2. CASE OF

var

bulan:integer;

Begin

write('Bulan ke..=');

readln(bulan);

case bulan of

1:Writeln('Januari');

2:Writeln('Februari');

3:Writeln('Maret');

4:Writeln('April');

5:Writeln('Mei');

6:Writeln('Juni');

7:Writeln('Juli');

8:Writeln('Agustus');

9:Writeln('September');

10:Writeln('Oktober');

11:Writeln('November');

12:Writeln('Desember');

End;

readln;

End.

 
2. FOR TO DO

var

baris,kolom,jml :integer;

begin

write ('Jumlah Baris : ');readln(jml);

for baris:=1 to jml do

begin

write ('#': jml);

for kolom := 2 to (2 *baris -1 ) do

begin

write('#');

end;

readln;

end;

end.

3. WHILE DO

Var

kata: string;

begin

kata:='';

writeln('Tuliskan satu kata (tulis "stop" untuk selesai):');

readln(kata);

while (Kata<>'stop')do

begin

writeln('Kamu menuliskan:');

writeln(kata);

writeln;

writeln('Tuliskan satu kata (tulis "stop" untuk selesai):');

readln(kata);

end;

end.

4. REPEAT UNTIL

VAR

  condition,colour : string[10];

  BEGIN

  REPEAT

  WRITE('Tuliskan sebuah warna : ');

  READLN(colour);

  WRITE('Apakah warna tersebut terlihat jelas : [ya/tidak] ');

  READLN(condition);

  UNTIL ((colour = 'merah') and (condition = 'ya')) or

        ((colour = 'hijau') and (condition = 'ya'));

  END.