pemrograman pascal
MODUL PEMROGRAMAN DENGAN MENGGUNAKAN BAHASA PASCAL
CONTOH PROGRAM DENGAN MENGGUNAKAN BAHASA PASCAL (FPC)
1. PENGGUNAAN MASUKAN (INPUT )
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
mulai
var
fileinp: text ;
A,B,C : real ;
begin baca A dan B
assign(fileinp, '[Link]');
reset(fileinp);
read(fileinp,A,B);
C=A+B
C := A + B ;
write(C) ;
end.
tulis C
Input Program (dari file '[Link]' )
1 2
Output Program (ke monitor/LCD) selesai
3
2. PENGGUNAAN KELUARAN (OUTPUT )
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
mulai
var
fileout: text ;
A,B,C : real ;
begin A=1, B=2, C = A + B
assign(fileout, '[Link]');
rewrite(fileout);
A := 1.0 ;
B := 2.0 ; tulis C
C := A + B ;
write(fileout,C) ;
close(fileout) ; selesai
end.
Output Program (ke file '[Link]' )
3.00000000000000E+000
Ahmad Zakaria
pemrograman pascal
3. PENGGUNAAN KELUARAN (OUTPUT ) DENGAN FORMAT
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
mulai
var
fileout: text ;
A,B,C : real ;
begin A=1, B=2, C = A + B
assign(fileout, '[Link]');
rewrite(fileout);
A := 1.0 ;
B := 2.0 ; tulis C
C := A + B ;
write(fileout,C:8:3) ;
close(fileout) ; selesai
end.
Output Program (ke file '[Link]' )
3.000
3. PENGGUNAAN KELUARAN (OUTPUT) INTEGER
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
mulai
var
fileout: text ;
I,J,K : integer ;
begin I=1, J=2, K = I + J
assign(fileout, '[Link]');
rewrite(fileout);
I := 1 ;
J := 2 ; tulis K
K := I + J ;
write(fileout,K) ;
close(fileout) ; selesai
end.
Output Program (ke file '[Link]' )
3
Ahmad Zakaria
pemrograman pascal
4. PENGGUNAAN KELUARAN (OUTPUT) INTEGER DENGAN FORMAT
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
mulai
var
fileout: text ;
I,J,K : integer ;
begin I=1, J=2, K = I + J
assign(fileout, '[Link]');
rewrite(fileout);
I := 1 ;
J := 2 ; tulis K
K := I + J ;
write(fileout,K:2) ;
close(fileout) ; selesai
end.
Output Program (ke file '[Link]' )
3
5. PENGGUNAAN PERNYATAAN BERSYARAT contoh 1
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
mulai
var
I,J,K : integer ;
begin I = 1, J = 2, K = 3
I := 1 ;
J := 2 ;
K := 3 ; tidak
J>I
if J > I then
begin ya
K := 4 ;
K=4
end ;
write(I:2,J:2,K:2) ;
end. tulis I, J, K
Output Program (ke Monitor/LCD)
1 2 4 selesai
Ahmad Zakaria
pemrograman pascal
6. PENGGUNAAN PERNYATAAN BERSYARAT contoh 2
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
mulai
var
I,J,K : integer ;
begin I=1, J=2, K = 3
I := 2 ;
J := 1 ;
K := 3 ; tidak
J>I
if J > I then
begin ya
K := 4 ;
K=4
end ;
write(I:2,J:2,K:2) ;
end. tulis I, J, K
Output Program (ke Monitor/LCD)
1 2 3 selesai
7. PENGGUNAAN LOOPING contoh 1
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
var
mulai
I : integer ;
begin
for I := 1 to 5 do
begin I=1 ya
I>5
write(I:2) ; I=I+1
end ;
end. tidak
tulis I
Output Program (ke Monitor/LCD) selesai
1 2 3 4 5
Ahmad Zakaria
pemrograman pascal
8. PENGGUNAAN LOOPING contoh 2
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
var
mulai
I : integer ;
begin
for I := 1 to 5 do
begin I=1 ya
I>5
write(I:2) ; I=I+1
end ;
end. tidak
Output Program (ke Monitor/LCD) tulis I
1
2
3
selesai
4
5
9. PENGGUNAAN LOOPING contoh 3
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
var
mulai
I : integer ;
begin
for I := 5 downto 1 do
begin I=5 ya
I<1
write(I:2) ; I=I-1
end ;
end. tidak
tulis I
Output Program (ke Monitor/LCD)
5 4 3 2 1
selesai
Ahmad Zakaria
pemrograman pascal
10. PENGGUNAAN LOOPING contoh 4
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
var
mulai
I : integer ;
begin
for I := 5 downto 1 do
begin I=5 ya
I<1
writeln(I:2) ; I=I-1
end ;
end. tidak
Output Program (ke Monitor/LCD) tulis I
5
4
3
selesai
2
1
11. PENGGUNAAN ARRAY 1 DIMENSI
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
var mulai
I : integer ;
A : array[1 .. 5] of real ;
begin I=1 ya
for I := 1 to 5 do I>5
begin I=I+1
A[I] := I ; tidak
writeln(A[I]:5:2) ;
end ; A[I] = I
end.
Output Program (ke Monitor/LCD)
tulis A[I]
1.00
2.00
3.00 selesai
4.00
5.00
Ahmad Zakaria
pemrograman pascal
12. PENGGUNAAN ARRAY 2 DIMENSI
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal}
mulai
var
I,J : integer ;
A : array[1 .. 2,1 .. 3] of real ;
begin I=1 ya
I>2
for I := 1 to 2 do I=I+1
begin
for J := 1 to 3 do tidak
begin
A[I,J] := I*J ; J=1 ya
writeln(A[I,J]:5:2) ; J>3
J=J+1
end ;
end ; tidak
end.
A[I,J] = I×J
Output Program (ke Monitor/LCD)
1.00 tulis A[I,J]
2.00
3.00
2.00
4.00 selesai
6.00
13. PENGGUNAAN SUBPROGRAM/PROCEDURE
Code Program Pascal Diagram Alir (Flow Chart)
uses wincrt; {versi windows}
uses crt; {turbo pascal} mulai
{prosedure}
procedure hitung ;
a = 1, b = 2, c = a + b
prosedure
var
a,b,c : real ;
begin
a := 1.0 ; tulis a, b, c
b := 2.0 ;
c := a + b ;
writeln(a:5:2,b:5:2,c:5:2) ; selesai
end;
{program utama}
begin mulai
hitung ;
program utama
end.
hitung
Output Program (ke Monitor/LCD)
1.00 2.00 3.00 selesai
Ahmad Zakaria