NAMA FILE : YUL1.PAS

NAMA PROGRAM : SATU

INPUT / DEKLARASI :

1. Variabel :

y = integer

Banyak = integer

2. Fungsi :

Uses crt = Clrscr,

LOGIKA PROGRAM :

Ø Program Satu ;

Memberikan judul program denga nama 'satu'

Ø Uses Crt;

Menghidupkan fungsi yaitu pada clrscr yang fungsinya membersihkan layar tampilan

Ø Var

Banyak, y : integer ;

Var merupakan suatu deklarasi variabel dimana memberikan type data integer untuk 'banyak' dan 'y'

Ø Begin

Perintah untuk memulai suatu program

Ø Clrscr;

Perintah untuk membersihkan layar tampilan

Ø Write ('berapa perulangannya :' );

Readln ('banyak');

Mencetak tulisan "berapa perulangannya" dengan sekaligus menginput data yang harus dimasukkan berupa type data integer

Ø FOR y : = 1 to banyak do

Perintah perulangan atau juga disebut sebagai perintah looping yaitu denganmemasukkan nilai y = 1 sampai ' banyak ' perulangan tergantung nilai pada inputan pada data ' banyak '

Ø Begin

Write (' YULAN SETIANSYAH '); writeln (' kelas 1 IA06 ');

End;

Cetakan data yang akan diulang dari effect perintah looping diatas yaitu ' YULAN SETIANSYAH kelas 1IA06 ' sebanyak nilai ' banyak ' dengan inputannya berurutan kebawah

Ø Readln;

Menampilkan program bila program diaktifkan

Ø End.

Mengakhiri suatu program

NAMA FILE : YUL2.PAS

NAMA PROGRAM : DUA

INPUT / DEKLARASI :

1. Variabel :

y = integer

Banyak = integer

2. Fungsi :

Uses crt = Clrscr,

LOGIKA PROGRAM :

Ø Program Dua ;

Memberikan judul program denga nama 'dua'

Ø Uses Crt;

Menghidupkan fungsi yaitu pada clrscr yang fungsinya membersihkan layar tampilan

Ø Var

Banyak, y : integer ;

Var merupakan suatu deklarasi variabel dimana memberikan type data integer untuk 'banyak' dan 'y'

Ø Begin

Perintah untuk memulai suatu program

Ø Clrscr;

Perintah untuk membersihkan layar tampilan

Ø y := 0;

Write ('berapa perulangannya :' );

Readln ('banyak');

Mencetak tulisan "berapa perulangannya" dengan sekaligus menginput data yang harus dimasukkan berupa type data integer dimana disana terdapat suatu kondisi bila y = 0

Ø While y < banyak do

Perintah perulangan atau juga disebut sebagai perintah looping yaitu denganmemasukkan nilai y = 0 sampai ' banyak ' perulangan tergantung nilai pada inputan pada data ' banyak ',jadi perulanga tersebut dimulai dari angka nol sampai banyak data

Ø Begin

Writeln (' y ') ; y := y + 1;

End;

Disini merupakan cetakan dari perinta looping tersebut dimana dimaulai dari angka nol sampai looping itu berhenti bila suatu kondisi itu telah memenuhi syarat yang telah ditentukan yaitu berhenti pada 19 < 20 dan tampilannya akan berurutan kebawah

Ø Readln;

Menampilkan program bila program diaktifkan

Ø End.

Mengakhiri suatu program

NAMA FILE : YUL3.PAS

NAMA PROGRAM : LIMA

INPUT / DEKLARASI :

1. Variabel :

y = integer

2. Fungsi :

Uses crt = Clrscr,

LOGIKA PROGRAM :

Ø Program Lima ;

Memberikan judul program denga nama 'lima'

Ø Uses Crt;

Menghidupkan fungsi yaitu pada clrscr yang fungsinya membersihkan layar tampilan

Ø Var

y : integer ;

Var merupakan suatu deklarasi variabel dimana memberikan type data integer untuk 'banyak' dan 'y'

Ø Begin

Perintah untuk memulai suatu program

Ø Clrscr;

Perintah untuk membersihkan layar tampilan

Ø Write (' nilai UTS : ' ) ; readln(y) ;

Mencetak tuulisan ' nilai UTS ' sekaligus menginput data yang bertype data integer karena y bertype data integer

Ø Write (' Grade Anda : ' ) ;

Case y of

0 . . 30 : write ('D') ;

31 . . 59 : write ('C') ;

60 . . 79 : write ('B') ;

80 . . 100 : write ('A') ;

end;

Mencetak tulisan ' Grade Anda ' sekaligus memberi komentar berupa hasil dari nilai y yang termasuk dalam pilihan yang telah ditentukan posisinya misalnya bila nilai yang di input adalah 65 maka akan tercetak nilai 'B' karena nilai 65 masuk pada nilai antara 60 sampai dengan 79 bernilai B

Ø Readln;

Menampilkan program bila program diaktifkan

Ø End.

Mengakhiri suatu program

LISTING PROGRAM

PROGRAM 1

program satu;

uses crt;

var

banyak,y:integer;

a:string;

begin

clrscr;

writeln;writeln;

write (' berapa perulangan :

');readln(banyak);

write (' kata apa yang ingin diulang :

');readln(a);

WRITELN;

for y:=1 to banyak do

begin

write (' ');

write (a);Writeln(' kelas 1 IA06');

end;

readln;

end.

PROGRAM 2

uses crt;

var

banyak,y:integer;

begin

clrscr;

writeln('');writeln('');

y:=0;write (' berapa banyak :

');readln(banyak);

while y< banyak do

begin

write ( ' ');write(' ');

write ( y );y:=y+1;

end;

readln;

end.

PROGRAM 3

program lima;

uses crt;

var

y:integer;

begin

clrscr;

writeln ('');write (' ');

write (' nilai UTS : ');readln(y);write('

');

write (' Grade Anda : ');

case y of

0..39 :write ('D');

40..59 :write ('C');

60..79 :write ('B');

80..100:write ('A');

end;

readln;

end.