Belajar Pascal Yok :) ...

Asikan belajar pascal? *Agak Maksa* Meskipun opini sebagian orang mengatakan bahwa pascal itu sering membuat pusing, namun tak ada salahnya jika kita mencoba untuk mempelajarinya, karena sejatinya setiap ilmu dapat kita kuasai jika kita mau mempelajarinya secara terus menerus (istiqomah).

Nah, berikut ini akan kita pelajari lebih lanjut cara membuat beberapa program di Pascal.

1.         Membuat tampilan bintang berulang (*).

Program Tampil;

Uses wincrt;

Var

       I,J : Integer;

Begin

       For I : 1 To 4 Do

Begin

       For J := 1 To I Do

       Write (‘*’);

       Writeln;

       End;

End.

 

2.              Membuat Deret 1,3,9,27…

Program Deret;

Uses wincrt;

Var

   I,N,A : Integer;

Begin

   Write (‘n: ‘);

   Readln (N);

   Clrscr;

   A :=1;

   Writeln (A);

   For I:=1 To N-1 Do

   Begin

                   A:=A*3;

                   Writeln (A);

                   End;

   End.

 

3.              Membuat Perhitungan Pangkat

Program Pangkat;

Use wincrt;

Var

   A,B,C,I : Integer;

Begin

   Write (‘Nilai : ‘);

   Readln (A);

   Write (‘Nilai Pangkat: ‘);

   Readln (B);

   Clrscr;

   C:=1;

   For I:=1 To B Do

                   Begin

                   C:=A*C;

                   End;

                   Writeln (C);

End.

 Sekian, kita lanjut kapan-kapan lagi ya :) Semoga bermanfaat untuk kita semua, jangan lupa tinggalkan pesan di buku tamu yaa.... Terimakasih Kunjungannya :)