my work

LAPORAN ANALISA

FILE

Nama              :NURSILA

Kelas               :1B

PROGRAM STUDI DI LUAR DOMISILI D2

 TEKNIK INFORMATIKA

AKADEMI KOMUNITAS KOTA SINGKAWANG

POLITEKNIK NEGERI PONTIANAK

2015

PROGRAM HIMPUNAN

program himpunan;

uses crt;

(*file:himpunan.pas*)

(*pendefinisian dan pemanfaatan himpunan:set*)

(*kamus*)

type

hari=(senin,selasa,rabu,kamis,jumat,sabtu,minggu);

weekday=set of hari;

var

h:hari;

h0,h1,h2:hari;

w:weekday;

(*algoritma*)

begin

(*instruksi berikut salah:type set tidak dapat ditulis/baca*)

(*writeln('hari = ',h); *)

(* assignment:boleh*)

h1:=selasa;

(*prosedure terdefinisi*)

h2:=succ(h1);

h0:=pred(h1);

(*pemanfaatan untuk mengontrol pengulangan*)

(*akan di bahas pada pengulangan*)

for h:=senin to minggu do

begin

writeln('selamat pagi...');

writeln('ordinal: ',ord(h));

end;

(*intruksi case:akan bahas pada analisa kasus*)

case h1 of

senin:

writeln('senin');

selasa:

writeln('selasa');

rabu:

writeln('rabu');

kamis:

writeln('kamis');

jumat:

writeln('jumat');

sabtu:

writeln('sabtu');

minggu:

writeln('minggu')

else

readln;

writeln('tidak terdefinisi');

readln;

end;

end.

Hasil run

 

Analisa

program himpunan;

uses crt;

pemberian nama pada program dan pemanggilan unit library pada pascal

type

hari=(senin,selasa,rabu,kamis,jumat,sabtu,minggu);

weekday=set of hari;

menggunakan variabel weekday yang di setting dengan hari

var

h:hari;

h0,h1,h2:hari;

w:weekday;

penggunaaan variabel h menggunakan tipe data hari dan variabel w menggunakan tipe data weekday

begin

h1:=selasa;

(*prosedure terdefinisi*)

h2:=succ(h1);

h0:=pred(h1);

memulai

for h:=senin to minggu do

begin

melakukan pengulangan dari hari senin sampai minggu

writeln('selamat pagi...');

writeln('ordinal: ',ord(h));

end;

menginputkan kalimat selamat pagi pada setiap ordinal hari yang di inputkan kecuali selasa,

case h1 of

senin:

writeln('senin');

selasa:

writeln('selasa');

rabu:

writeln('rabu');

kamis:

melakukan percabangan dengan case of pada hari yang di inputkan mulai dari hari senin sampai minggu

writeln('kamis');

jumat:

writeln('jumat');

sabtu:

writeln('sabtu');

minggu:

writeln('minggu')

else

readln;

menuliskan hari dan di baca sebagai hari yang di inputkan

writeln('tidak terdefinisi');

readln;

end;

end.

Program akan membaca ‘tidak terdefinisi’ selain penginputan hari dari senin-minggu,baca,akhiri dan program selesai