Perulangan Pascal

1. Jelaskan statement perulangan pada pascal dan sebutkan statementnya?

2. Buatlah contoh program sederhana?

3.  Buatlah program menggunakan statement kondisi switch case?

Jawab:

1. Syntax atau perintah yang digunakan untuk mengulangan statement atau blok statement berulang kali sesuai dengan jumlah yang di tentukan.

• For to do (Perulangan positif): adalah perulangan dengan penghitung dari kecil ke besar atau pertambahan positif.
• For down to do (Perulangan negatif): adalah perulangan dengan penghitung dari besar ke kecil atau pertambahan negatif.
• While do: untuk melakukan proses perulangan suatu pernyataan atau blok pernyataan terus menerus selama kondisi ungkapan logika pada while masih bernilai logika benar.
• Repeat until: untuk mengulang pernyataan-pernyataan atau blok pernyataan sampai kondisi yang di seleksi di until terpenuhi.

2. Var

    I : Integer;

    Begin

    For I := 1 to 5 Do writeln (‘NURUL’);

    End.

3. Switch Case

uses crt;

var

pilihan : byte;

a,b,c,Luas : real;

nama,kls,npm: string;

begin

clrscr;

gotoxy(10,2); writeln(‘ <<<< Pilihan >>>> ‘);

gotoxy(10,4); writeln(‘ 1. Biodata Diri ‘);

gotoxy(10,6); writeln(‘ 2. Luas Segitiga ‘);

gotoxy(10,8); writeln(‘ 3. Exit ‘);

gotoxy(10,2); write(‘ Pilih Nomer (1-3)  ? ‘); readln(pilihan);

clrscr;

case pilihan of

1 : begin

Write(‘Nama            :’); readln(nama);

Write(‘NPM             :’); readln(npm);

Write(‘Kelas             :’); readln(kls);

Readln;

End;

2 : begin

Write(‘alas segitiga ? ‘); readln (a);

Write(‘tinggi segitiga ? ‘); readln (b);

Luas := 0,5 * a * b;

Writeln;

Writeln(‘Luas segitiga = ‘ , Luas : 9 : 2);

Readln;

End;

3 : begin

End;

End;

End.