Soal dan Latihan Pascal I

Program Contoh_1;
Begin
Writeln('Saya Pascal');
End.
Hasil Run

Saya Pascal


Contoh Penggunaan Constanta

Const Panjang = 7;
Lebar = 5;
Begin
Writeln('Panjang = ',Panjang);
Writeln('Lebar = ',Lebar);
Writeln('Panjang x Lebar = ',Panjang*Lebar);
End.


Contoh Penggunaan Variabel-1

Var Panjang : Integer;
Lebar : Integer;
Begin
Panjang := 7;
Lebar := 5;
Writeln('Panjang = ',Panjang);
Writeln('Lebar = ',Lebar);
Writeln('Panjang x Lebar = ',Panjang*Lebar);
End.

Contoh Penggunaan Variabel-2

Var Panjang, Lebar : Real;
Begin
Panjang := 7.0;
Lebar := 5.4;
Writeln('Panjang = ',Panjang:5:2);
Writeln('Lebar = ',Lebar:5:2);
Writeln('Panjang x Lebar = ',Panjang*Lebar:5:2);
End.



Contoh Penggunaan Variabel-3

Var Nilai : Array[1..3] of Real;
Begin
Nilai[1] := 1;
Nilai[2] := 2;
Nilai[3] := 3;
Writeln ('Isi Variabel Nilai ke 1 : ',Nilai[1]:10:3);
Writeln ('Isi Variabel Nilai ke 3 : ',Nilai[3]);
Readln;
End.



Contoh Penggunaan Variabel-4

Var Ada : Boolean;
Begin
Writeln;
Ada := True;
Writeln ('Isi Variabel Ada : ',Ada);
Writeln ('Isi Variabel Not Ada : ',Not Ada);
End.


Contoh Penggunaan Label


Label
100;
Begin
Writeln(‘Bahasa’);
Goto 100;
Writeln(‘Copyright @2007’);
100:
Writeln(‘Pascal’);
End.


Hasil Run

Bahasa
Pascal


Contoh Penggunaan Prosedur

Procedure Tambah(X,Y : Integer; Var hasil : Integer);
Begin
Hasil := X + Y;
End;

Var
Z : Integer;
Begin
Tambah(2,3,Z);
Writeln(‘2 + 3 = ‘,Z);
End.



Hasil Run

2 + 3 = 5


Contoh Penggunaan Fungsi

Function Tambah(X,Y : Integer) :Integer;
Var Hasil : Integer;
Begin
Hasil := X + Y;
Tambah := Hasil;
End;
Var Z : Integer;
Begin
Z := Tambah(2,3);
Writeln(‘2 + 3 = ‘,Z);
End.



Hasil Run

2 + 3 = 5

Contoh Penggunaan Pengulangan For..to… Do
Var I : Integer;
Bagin
For I := 1 To 3 Do
Begin
Write(I);Writeln(‘ Pascal’);
End;
End;

Hasil Run

1 Pascal
2 Pascal
3 Pascal



Contoh Penggunaan Pengulangan For..Downto… Do
Var I : Integer;
Bagin
For I := 3 Downto 1 Do
Begin
Write(I);Writeln(‘ Pascal’);
End;
End;

Hasil Run

3 Pascal
2 Pascal
1 Pascal



Contoh Penggunaan Penyeleksian (If…Then…Else…)
Var
I,J : Integer;
Begin
I := 4; J:= 6;
If I > J Then
Keterangan := ‘I Lebih Besar dari J’
Else
Keterangan := ‘I Lebih Kecil dari J’;
Writeln (Keterangan);
End.


Hasil Run

I Lebih Kecil dari J


Latihan :
Soal 1
Buatlah Program Pengulangan untuk membuat tampilan sebagai berikut:
*****
****
***
**
*
Soal 2
Buatlah program untuk membuat pemecahan masalah sebagai berikut :
Siswa akan diberikan nilai Grade A Jika Nilai Akhir Ujian > 80
Siswa akan diberikan nilai Grade B Jika 80>=Nilai Akhir Ujian >=60
Siswa akan diberikan nilai Grade C Jika Nilai Akhir Ujian <60
Tentukan masukan, proses dan keluaran berdasarkan permasalahan tersebut...!