Pascal

Program Record Pascal

Posted on Updated on


Minggu ke                  : 6

Nama program          : Program record

Fungsi                         :

  • Menggunakan record pada pemrograman pascal

Listing Program        :

uses crt;

type mahasiswa = RECORD

NPM     : String;

Nama    : String;

Thnmasuk: Integer;

ket     : String;

end;

var

mhs : Array[1..50] of mahasiswa;

x,y,z:Integer;

begin

clrscr;

writeln(‘————————————————‘);

writeln(‘                  PROGRAM RECORD                ‘);

writeln(‘————————————————‘);

write  (‘ banyak data mahasiswa yang akan dimasukkan: ‘);

readln (x);

writeln();

for y:=1 to x do

begin

with mhs[y] do

begin

write(‘ NPM mahasiswa   : ‘);

readln(NPM);

write(‘ Nama mahasiswa  : ‘);

readln(Nama);

write(‘ Tahun masuk     : ‘);

readln(Thnmasuk);

writeln();

end;

end;

clrscr;

writeln();

writeln(‘                        DAFTAR NAMA MAHASISWA                        ‘);

writeln(‘———————————————————————-‘);

writeln(‘| NO |    NPM    |           NAMA           |  TAHUN MASUK |    KET  |’);

writeln(‘———————————————————————-‘);

for y:=1 to x do

begin

gotoxy(1,y+5);write(‘|’);

gotoxy(3,y+5);write(y);

with mhs[y] do

begin

gotoxy(6,y+5);write(‘|’);

gotoxy(8,y+5);

write(NPM);

gotoxy(18,y+5);write(‘|’);

gotoxy(20,y+5);

write(Nama);

gotoxy(45,y+5);write(‘|’);

gotoxy(51,y+5);

write(Thnmasuk);

gotoxy(60,y+5);write(‘|’);

z := 2010 – Thnmasuk;

if z>3 then ket := ‘senior’ else

ket:=’junior’;

gotoxy(63,y+5);

write(ket);

gotoxy(70,y+5);write(‘|’);

end;

end;

writeln();

writeln(‘———————————————————————-‘);

readln;

end.

Output program:

tampilan program saat input data

menampilkan data record



Web development jakarta

Iklan

Program array pascal

Posted on Updated on


Minggu ke                  : 4

Nama Program          : program array

Fungsi program         :

  • Mencari elemen array yang terbesar
  • Mencari elemen array yang lebih besar dari 85
  • Mencari elemen array yang lebih kecil dari 50
  • Mencari elemen array yang habis dibagi 5

Listing program        :

uses crt ;

var

array1      : array [1..100] of integer ;

satu          : array [1..100] of integer ;

dua          : array [1..100] of integer ;

tiga           : array [1..100] of integer ;

a,b,x,y,z,p,q,r,max : integer ;

begin

clrscr ;

a := 1 ;

max := 0 ;

p := 0 ;

q := 0 ;

r := 0 ;

writeln ( ‘—————————————————–‘ ) ;

writeln ( ‘                   PROGRAM ARRAY                   ‘ ) ;

writeln ( ‘—————————————————–‘ ) ;

write ( ‘ masukan banyaknya elemen array (integer): ‘ ) ;

readln (x) ;

writeln (”) ;

while a <= x do

begin

write ( ‘ elemen ke-‘ ,a, ‘: ‘ ) ;

readln ( array1[a] ) ;

a := a + 1 ;

end ;

clrscr ;

writeln ( ‘—————————————————–‘ ) ;

writeln ( ‘                   PROGRAM ARRAY                   ‘ ) ;

writeln ( ‘—————————————————–‘ ) ;

writeln ( ‘ 1. menampilkan nilai tertinggi pada array’ ) ;

writeln ( ‘ 2. menampilkan nilai diatas 85’ ) ;

writeln ( ‘ 3. menampilkan nilai dibawah 50’ ) ;

writeln ( ‘ 4. menampilkan nilai yang habis dibagi 5’ ) ;

writeln (”) ;

write ( ‘ masukkan pilihan: ‘ ) ;

readln (y) ;

case y of

1 :

begin

clrscr ;

writeln ( ‘—————————————————–‘ ) ;

writeln ( ‘                   PROGRAM ARRAY                   ‘ ) ;

writeln ( ‘—————————————————–‘ ) ;

for b := 1 to x do

begin

if max >= array1[b] then max := max else

max := array1[b] ;

end ;

writeln ( ‘ nilai tertinggi pada array adalah ‘,max ) ;

writeln (”) ;

write ( ‘ array=[‘ ) ;

for b := 1 to x do

begin

write (array1[b]) ;

if b <> x then write (‘,’) ;

end ;

writeln (‘]’) ;

writeln ( ‘—————————————————–‘ ) ;

end ;

2 :

begin

clrscr ;

writeln ( ‘—————————————————–‘ ) ;

writeln ( ‘                   PROGRAM ARRAY                   ‘ ) ;

writeln ( ‘—————————————————–‘ ) ;

for b := 1 to x do

begin

if array1[b] > 85 then

begin

p := p + 1 ;

satu[p] := array1[b] ;

end ;

end ;

if p <> 0 then

begin

writeln ( ‘ ada ‘,p,’ elemen array dengan nilai diatas 85′ ) ;

write ( ‘ yaitu = ‘ ) ;

for b := 1 to p do

begin

write ( ‘ ‘,satu[b],’ ‘ ) ;

if b <> p then write (‘,’) ;

end ;

writeln (”) ;

end

else

begin

writeln ( ‘ tidak ada elemen array yang lebih dari 85’ ) ;

end ;

writeln (”);

write ( ‘ array=[‘ ) ;

for  b := 1 to x do

begin

write ( array1[b] ) ;

if b <> x then write (‘,’) ;

end ;

writeln ( ‘]’ ) ;

writeln ( ‘—————————————————–‘ ) ;

end ;

3 :

begin

clrscr ;

writeln ( ‘—————————————————–‘ ) ;

writeln ( ‘                   PROGRAM ARRAY                   ‘ ) ;

writeln ( ‘—————————————————–‘ ) ;

for b := 1 to x do

begin

if array1[b] < 50 then

begin

q := q + 1 ;

dua[q] := array1[b] ;

end ;

end ;

if q <> 0 then

begin

writeln ( ‘ ada ‘,q,’ elemen array dengan nilai dibawah 50′ ) ;

write ( ‘ yaitu = ‘ ) ;

for b := 1 to q do

begin

write (dua[b]) ;

if b <> q then write (‘,’) ;

end ;

writeln (”) ;

end

else

begin

writeln ( ‘ tidak ada elemen array yang lebih kecil dari 50’ ) ;

end ;

writeln (”);

write ( ‘ array=[‘ ) ;

for  b := 1 to x do

begin

write ( array1[b] ) ;

if b <> x then write (‘,’) ;

end ;

writeln ( ‘]’ ) ;

writeln ( ‘—————————————————–‘ ) ;

end ;

4 :

begin

clrscr ;

writeln ( ‘—————————————————–‘ ) ;

writeln ( ‘                   PROGRAM ARRAY                   ‘ ) ;

writeln ( ‘—————————————————–‘ ) ;

for b := 1 to x do

begin

z := array1[b] mod 5 ;

if z = 0 then

begin

r := r + 1 ;

tiga[r] := array1[b] ;

end ;

end ;

if r <> 0 then

begin

writeln ( ‘ ada ‘,r, ‘ elemen array dengan nilai yang habis dibagi 5’ ) ;

write ( ‘ yaitu = ‘ ) ;

for b := 1 to r do

begin

write (tiga[b]) ;

if b <> r then write (‘,’) ;

end ;

writeln (”) ;

end ;

writeln (”);

write ( ‘ array=[‘ ) ;

for  b := 1 to x do

begin

write ( array1[b] ) ;

if b <> x then write (‘,’) ;

end ;

writeln ( ‘]’ ) ;

writeln ( ‘—————————————————–‘ ) ;

end ;

else writeln ( ‘ input salah. harus 1 – 4’ ) ;

end ;

readln

end.

Output program:

tampilan awal program
tampilan awal program
input elemen array
input elemen array
pilih menu
pilih menu
jika input = 1 : menampilkan nilai tertinggi array
jika input = 1 : menampilkan nilai tertinggi array
jika input = 2: menampilkan nilai diatas 85
jika input = 2: menampilkan nilai diatas 85
tampilan jika input = 3: menampilkan nilai dibawah 50
tampilan jika input = 3: menampilkan nilai dibawah 50
jika input = 4: menampilkan leemen array yg habis dibagi 5
jika input = 4: menampilkan leemen array yg habis dibagi 5
jika input selain 1,2,3, dan 4
jika input selain 1,2,3, dan 4

 



Web development jakarta

program percabangan dan array pascal

Posted on Updated on


selanjutnya, program ini menggunakan struktur percabangan pada pascal dan array. digunakan untuk mengkonversi nilai yang diinput menjadi huruf dan menentukan apakah orang tersebut lulus atau tidak.

Minggu ke                  : 3

Nama program          :Program Percabangan dan Array

Fungsi program         :

  • Menggunakan statement percabangan pada pascal.
  • Menggunakan array pada pascal dan menampilkan elemen array.

Listing program        :

uses crt ;

var

a,b,c,d : Integer ;

nama    : array [1..5] of string ;

nilai   : array [1..5] of integer ;

predikat: array [1..5] of string ;

ket     : array [1..5] of string ;

begin

clrscr ;

for a := 1 to 5 do

begin

write ( ‘ nama mahasiswa : ‘ ) ;

readln ( nama[a] ) ;

write ( ‘ nilai          : ‘ ) ;

readln ( nilai[a] ) ;

if nilai[a] >= 90 then predikat[a] := ‘A’ else

if nilai[a] >= 75 then predikat[a] := ‘B’ else

if nilai[a] >= 50 then predikat[a] := ‘C’ else

if nilai[a] >= 40 then predikat[a] := ‘D’ else

predikat[a] := ‘E’ ;

if nilai[a] >= 90 then ket[a] := ‘lulus’ else

if nilai[a] >= 75 then ket[a] := ‘lulus’ else

if nilai[a] >= 50 then ket[a] := ‘lulus’ else

if nilai[a] >= 40 then ket[a] := ‘perbaikan’ else

ket[a] := ‘tidak lulus’ ;

writeln (”) ;

end ;

clrscr ;

writeln (”) ;

writeln ( ‘              DAFTAR NILAI SEMESTER 1            ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

writeln ( ‘      nama        nilai    predikat      ket     ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

for b := 1 to 5 do

writeln ( ‘     ‘+nama[b]+’        ‘,nilai[b],’        ‘+predikat[b]+’         ‘+ket[b]) ;

writeln ( ‘————————————————-‘ ) ;

readln

end.

Output program:

tampilan program saat input data
tampilan program saat input data
tampilan program saat menampilkan data
tampilan program saat menampilkan data

 



Web development jakarta

Program perulangan Pascal

Posted on Updated on


sebenarnya program ini sudah pernah saya posting sebelumnya, tapi gapapa untuk lebih memperjalas lagi, semoga bermanfaat.

Minggu ke                  : 2

Nama Program          : Program Perulangan

Fungsi                         :

  • Menggunakan statement perulangan pada pascal

Listing program        :

uses crt ;

var

a,b,c,d : integer ;

begin

b := 1 ;

write ( ‘masukan tinggi segitiga:’ ) ;

readln (a) ;

while b <= a do

begin

for c := 1 to b do

begin

write ( ‘*’ ) ;

end ;

b := b + 1 ;

writeln (”) ;

end ;

writeln (”) ;

d := a ;

while d >= 1 do

begin

for c := d downto 1 do

begin

write ( ‘*’ ) ;

end ;

d := d – 1 ;

writeln (”) ;

end ;

readln

end.

Output program:

tampilan awal program
tampilan awal program

 



Web development jakarta

Program Luas dan keliling pascal

Posted on Updated on


hmm,, posting kali ini, saya share tugas pascal saya dari dosen yang dikasih tiap minggu sesuai dengan materinya,, jadi program ini sangat cocok buat anda yang baru belajar pascal, bisa pelajari program = program ini dari minggu 1 sampai minggu terakhir.

Minggu ke                  : 1

Nama program          : Program Luas dan Keliling

Fungsi                         :

  • Membuat berbagai rumus luas dan keliling bangun datar menggunakan program pascal.
  • Menggunakan procedure/sub program pada pascal.

Listing Program        :

uses crt ;

var pil : integer ;

Procedure lingkaran ;

var x,y,z : real ;

begin

writeln ( ‘ ——– 1.lingkaran——– ‘ ) ;

write ( ‘masukan jari-jari: ‘ ) ;

readln (x) ;

y := 3.14 * x * x ;

z := 2 * x * 3.14 ;

writeln ( ‘luas lingkaran     = ‘ , y : 9 : 2 ) ;

writeln ( ‘keliling lingkaran = ‘ , z : 9 : 2 ) ;

end ;

Procedure persegi ;

var x,y,z : real ;

begin

writeln ( ‘ ——–2.persegi——– ‘ ) ;

write ( ‘masukan sisi: ‘ ) ;

readln (x) ;

y := x * x ;

z := x * 4 ;

writeln ( ‘luas persegi     = ‘ , y : 9 : 2 ) ;

writeln ( ‘keliling persegi = ‘ , z : 9 : 2 ) ;

end ;

Procedure persegi_panjang ;

var p,l,y,z : real ;

begin

writeln ( ‘ ——–3.persegi_panjang——– ‘ ) ;

write ( ‘masukan panjang: ‘ ) ;

readln (p) ;

write ( ‘masukan lebar: ‘ ) ;

readln (l) ;

y := p * l ;

z := 2 * ( p + l ) ;

writeln ( ‘ luas persegi panjang     =’ , y : 9 : 2 ) ;

writeln ( ‘keliling persegi panjang =’ , z : 9 : 2 ) ;

end ;

begin

clrscr ;

writeln ( ‘program luas dan keliling’ ) ;

writeln () ;

writeln ( ‘1 = lingkaran’ ) ;

writeln ( ‘2 = persegi’ ) ;

writeln ( ‘3 = persegi panjang’ ) ;

writeln () ;

write ( ‘masukan pilihan :’ ) ;

readln (pil) ;

writeln () ;

if pil = 1 then lingkaran

else if pil = 2 then persegi

else if pil = 3 then persegi_panjang

else write ( ‘input salah’ ) ;

readln

end.

output program:

tampilan awal program
tampilan jika input = 1
tampilan jika input = 1
tampilan jika input = 2
tampilan jika input = 2

tampilan jika input = 3
tampilan jika input = 3
tampilan jika input selain 1,2, dan 3
tampilan jika input selain 1,2, dan 3

 



Web development jakarta

Program latihan array pascal 1

Posted on Updated on


Fungsi program         :

  • Menggunakan statement percabangan pada pascal.
  • Menggunakan array pada pascal dan menampilkan elemen array.

Listing program        :

uses crt ;

var

a,b,c,d : Integer ;

nama    : array [1..5] of string ;

nilai   : array [1..5] of integer ;

predikat: array [1..5] of string ;

ket     : array [1..5] of string ;

begin

clrscr ;

for a := 1 to 5 do

begin

write ( ‘ nama mahasiswa : ‘ ) ;

readln ( nama[a] ) ;

write ( ‘ nilai          : ‘ ) ;

readln ( nilai[a] ) ;

if nilai[a] >= 90 then predikat[a] := ‘A’ else

if nilai[a] >= 75 then predikat[a] := ‘B’ else

if nilai[a] >= 50 then predikat[a] := ‘C’ else

if nilai[a] >= 40 then predikat[a] := ‘D’ else

predikat[a] := ‘E’ ;

if nilai[a] >= 90 then ket[a] := ‘lulus’ else

if nilai[a] >= 75 then ket[a] := ‘lulus’ else

if nilai[a] >= 50 then ket[a] := ‘lulus’ else

if nilai[a] >= 40 then ket[a] := ‘perbaikan’ else

ket[a] := ‘tidak lulus’ ;

writeln (”) ;

end ;

clrscr ;

writeln (”) ;

writeln ( ‘              DAFTAR NILAI SEMESTER 1            ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

writeln ( ‘      nama        nilai    predikat      ket     ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

for b := 1 to 5 do

writeln ( ‘     ‘+nama[b]+’        ‘,nilai[b],’        ‘+predikat[b]+’         ‘+ket[b]) ;

writeln ( ‘————————————————-‘ ) ;

readln

end.

Output program :




Web development jakarta

Program Membalik Kalimat Dengan Pascal

Posted on Updated on


di kesempatan kali in saya akan sharing sedikit tentang program yang saya buat dalam rangka latihan menuju tes <SENSOR>,,hehee…

program yang akan dibuat adalah program untuk membalik kata – kata dalam kalimat yang diinput , langsung aja cek listingnya..

Listing program:

uses crt;

var

s,t,u,v,w,x,y,z:string;

p,q,i,j,k:integer;

begin

clrscr;

writeln(‘masukan kalimat yang akan dibalik: ‘);

readln(s);

p:=length(s);

i:=1;

for q:=p downto 1 do

begin

insert(s[q],t,i);

inc(i);

end;

writeln(t);

readln();

end.

Output:
perlu diperhatikan bahwa dengan listing program diatas program akan membalik huruf-huruf pada kalimat yang diinput dan juga membalik kata – katanya,, kata pertama akan menjadi kata terakhir dalam output program, demikian juga sebaliknya.
saya juga membuat program untuk membalik klaimat tetapi dengan posisi kata dalam kalimatnya tidak ikut terbalik, demikian listingnya:
uses crt;
var
s,t,u,v,w,x,y,z:string;
p,q,i,j,k:integer;
pos : array[1..100] of integer;
begin
clrscr;
writeln(‘masukan kalimat yang akan dibalik: ‘);
readln(s);
p:=length(s);
i:=1;
for j:=1 to p do
begin
if s[j]=’ ‘ then
begin
pos[i] := j;
inc(i);
end;
end;
pos[i]:=p+1;
k:=1;
for p:=1 to i do
begin
if p = 1 then
begin
for q:= pos[p]-1 downto 1 do
begin
insert(s[q],t,k);
inc(k);
end;
end
else
begin
for q:=pos[p]-1 downto pos[p-1]+1 do
begin
insert(s[q],t,k);
inc(k);
end;
end;
insert(‘ ‘,t,k);
inc(k);
end;
writeln(t);
readln();
end.
output:
nah,, keliatan kan bedanya?? demikian artikel pemrograman saya semoga bermanfaat..^_^



Web development jakarta