Contoh-Contoh Program Turbo Pascal 2

By: Unknown on 07:40

Assalamu'alaikum, pada postingan kali ini saya akan melanjutkan dari postingan sebelumnya, yaitu Contoh-Contoh Program Turbo Pascal 1 .

Pada postingan ini saya akan memberi sedikit pengetahuan saya tentang Program Perulangan Pada Turbo Pascal, Program Perulangan Terdiri dari : For - Do , Repeat - Until , dan While - Do
Berikut ini Contoh Programnya :

1. Program For - Do

Program ForDo;
Uses crt;
Var
   A : Integer;

Begin
clrscr;
    For A:=1 to 5 Do
       Begin
        Write(A);
        Writeln(' Fajar');
       End;
Readln;
End.

Bila dijalankan akan Muncul tampilan :

1 Fajar
2 Fajar
3 Fajar
4 Fajar
5 Fajar

2. Program Repeat - Until

Program RepeatUntil;
Uses crt;
Var
   B :Integer;

Begin
clrscr;
    B:=1 ;
    Repeat
      Writeln('Program Repeat-Until');
    B:=B+1;
    Until (a>5);
Readln;
End.

Jika Program diatas di jalankan, maka akan menghasilkan :

Program Repeat-Until
Program Repeat-Until
Program Repeat-Until
Program Repeat-Until
Program Repeat-Until

3. Program While - Do

Program WhileDo;
Uses crt;
Var
   C :Integer;

Begin
clrscr;
    C:=0 ;
    While a<5 Do
    Begin
        Write(C);
        Writeln(' While-Do');
        C:=C+1 ;
    End;
Readln;
End.

Bila dijalankan Program diatas, akan muncul tampilan :

0 While-Do
1 While-Do
2 While-Do
3 While-Do
4 While-Do

Mungkin Sampai disini saja Postingan kali ini, Semoga Dapat bermanfaat bagi kalian para pembaca, Nantikan terus postingan selanjutnya.
Wassalamu'alaikum