Selasa, 26 November 2013

PEMROGRAMAN PASCAL DAN CONTOH SEDERHANA

PASCAL, merupakan suatu bahasa komputer tingkat tinggi yang dibuat sekitar tahun 1970 oleh Niklaus Wirth dan digunakan untuk pendidikan komputer. Nama Pascal diambil dari seorang ahli matematika yang bernama Blaise Pascal yang menemukan mesin hitung pertama. Bahasa Pascal dirancang untuk menyelesaikan masalah dari berbagai kalangan pemakai, mulai dari para mahasiswa, pendidik, dan ilmuwan. Salah satu kompiler pascal yang terkenal dan tercepat adalah Turbo PASCAL yang dibuat oleh perusahaan Borland.
(http://www.borland.com).

ΓΌ Bagaimana Struktur program pascal yang paling sederhana ?

Struktur program pascal yang paling sederhana adalah :

uses ...;
var ...;
begin

Catatan :
1.      Dalam membuat program pascal, jangan lupa memberikan tanda (;) setiap akhir sintaks. Kecuali “BEGIN” .
2.      Clrscr, berfungsi untuk menghapus layar program sebelumnya.

Dibawah ini, saya akan memberikan beberapa contoh program yang dibuat untuk tugas pemrograman pascal (1KA01), semoga bermanfaat..


Contoh Program Pascal “PENGULANGAN SEDERHANA” :
J  Program Pengulangan ;
             Uses crt;
             Var A, B: integer;
             Begin
             Clrscr;
             FOR A := 1 TO 4 DO
             Begin
             FOR B := 1 TO A DO
             Write ( A, ‘  ‘) ;
             Writeln;
             Readln;
             End.

Output
1
2  2
3  3  3
4  4  4  4

J  Program Pengulangan ;
             Uses crt;
             Var A, B: integer;
             Begin
             Clrscr;
             FOR A := 1 TO 5 DO
             Begin
             FOR B := 1 TO A – 1 DO
             Write ( B, ‘  ‘) ;
             Writeln;
             Readln;
             End.

Output :
1
1  2
1  2   3
1  2   3   4



J  Program Pengulangan ;
             Uses crt;
             Var A, B: integer;
             Begin
             Clrscr;
             FOR A := 1 TO 4 DO
             Begin
             FOR B := 1 TO 4 DO
             Write ( A, ‘  ‘) ;
             Writeln;
             Readln;
             End.

Output :
1        1   1   1
2        2   2   2
3        3   3   3
4        4   4   4


J  Program Pengulangan ;
             Uses crt;
             Var A, B: integer;
             Begin
             Clrscr;
             FOR A := 1 TO 5 DO
             Begin
             FOR B := 1 TO 4 DO
             Write ( B, ‘  ‘) ;
             Writeln;
             Readln;
             End.

Output
                    1   2   3   4
                    1   2   3   4
                    1   2   3   4
                    1   2   3   4


Tidak ada komentar:

Posting Komentar