tag:blogger.com,1999:blog-66914227215866015262024-02-08T04:20:11.356-08:00KUMPULAN MATERI PERKULIAHAN SISTEM INFORMASICANDRA BANYU KUSUMAHhttp://www.blogger.com/profile/06778658310947463420noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-6691422721586601526.post-18672061228697194092011-12-05T04:04:00.000-08:002011-12-05T04:04:19.649-08:00<!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:TrackMoves/> <w:TrackFormatting/> <w:PunctuationKerning/> <w:ValidateAgainstSchemas/> <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid> <w:IgnoreMixedContent>false</w:IgnoreMixedContent> <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText> <w:DoNotPromoteQF/> <w:LidThemeOther>EN-US</w:LidThemeOther> <w:LidThemeAsian>X-NONE</w:LidThemeAsian> <w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript> <w:Compatibility> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> <w:DontGrowAutofit/> <w:SplitPgBreakAndParaMark/> <w:DontVertAlignCellWithSp/> <w:DontBreakConstrainedForcedTables/> <w:DontVertAlignInTxbx/> <w:Word11KerningPairs/> <w:CachedColBalance/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> <m:mathPr> <m:mathFont m:val="Cambria Math"/> <m:brkBin m:val="before"/> <m:brkBinSub m:val="--"/> <m:smallFrac m:val="off"/> <m:dispDef/> <m:lMargin m:val="0"/> <m:rMargin m:val="0"/> <m:defJc m:val="centerGroup"/> <m:wrapIndent m:val="1440"/> <m:intLim m:val="subSup"/> <m:naryLim m:val="undOvr"/> </m:mathPr></w:WordDocument> </xml><![endif]--><!--[if gte mso 9]><xml> <w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267"> <w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/> <w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/> <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/> <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/> <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/> <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/> <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/> <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/> <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/> <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/> <w:LsdException Locked="false" Priority="39" Name="toc 1"/> <w:LsdException Locked="false" Priority="39" Name="toc 2"/> <w:LsdException Locked="false" Priority="39" Name="toc 3"/> <w:LsdException Locked="false" Priority="39" Name="toc 4"/> <w:LsdException Locked="false" Priority="39" Name="toc 5"/> <w:LsdException Locked="false" Priority="39" Name="toc 6"/> <w:LsdException Locked="false" Priority="39" Name="toc 7"/> <w:LsdException Locked="false" Priority="39" Name="toc 8"/> <w:LsdException Locked="false" Priority="39" Name="toc 9"/> <w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/> <w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/> <w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/> <w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/> <w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/> <w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/> <w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/> <w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/> <w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/> <w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/> <w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/> <w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/> <w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/> <w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/> <w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/> <w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/> <w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/> <w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/> <w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/> <w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/> <w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/> <w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/> <w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/> <w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/> <w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/> <w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/> <w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/> <w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/> <w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/> <w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/> <w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/> <w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/> <w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/> <w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/> <w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/> <w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/> <w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/> <w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/> <w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/> <w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/> <w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/> <w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/> <w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/> <w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/> <w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/> <w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/> <w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/> <w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/> <w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/> <w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/> <w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/> <w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/> <w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/> <w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/> <w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/> <w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/> <w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/> <w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/> <w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/> <w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/> <w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/> <w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/> <w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/> <w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/> <w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/> <w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/> <w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/> <w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/> <w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/> <w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/> <w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/> <w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/> <w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/> <w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/> <w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/> <w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/> <w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/> <w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/> <w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/> <w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/> <w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/> <w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/> <w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/> <w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/> <w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/> <w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/> <w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/> <w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/> <w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/> <w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/> <w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/> <w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/> <w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/> <w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/> <w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/> <w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/> <w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/> <w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/> <w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/> <w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/> <w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/> <w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/> <w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/> <w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/> <w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/> <w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/> <w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/> <w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/> <w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/> <w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/> <w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/> <w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/> <w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/> <w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/> <w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/> <w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/> <w:LsdException Locked="false" Priority="37" Name="Bibliography"/> <w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/> </w:LatentStyles> </xml><![endif]--><!--[if gte mso 10]> <style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;}
</style> <![endif]--> <br />
<div class="MsoPlainText"><span style="font-family: "Courier New";">set serveroutput on</span></div><div class="MsoPlainText"><br />
</div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>declare</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>nilai integer;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>begin</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>nilai:=90;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>if nilai = 90 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>dbms_output.put_line('lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>end if;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>end;</span></div><div class="MsoPlainText"><br />
</div><div class="MsoPlainText"><span style="font-family: "Courier New";">declare</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">nilai integer;<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">begin</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">nilai:=90;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">if nilai >= 90 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">else</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('tidak lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end if;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><br />
</div><div class="MsoPlainText"><span style="font-family: "Courier New";">declare</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">nilai integer:=&nilai;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">begin</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">if nilai >=90 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">else</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('tidak lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end if;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><br />
</div><div class="MsoPlainText"><span style="font-family: "Courier New";">declare</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">nilai integer:=&nilai;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">BEGIN</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">if nilai >=90 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('lulus terbaik');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">elsif nilai > 70 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">else</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('tidak lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end if;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><br />
</div><div class="MsoPlainText"><span style="font-family: "Courier New";">declare</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">n1 integer:=&n1;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">n2 integer:=&n2;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">na integer;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">begin</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">na := (n1*0.4) + (n2*0.6);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">if na >=90 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('lulus terbaik');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">elsif na <90 and na >=75 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">elsif na <75 and na >=60 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('boleh perbaikan');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">else</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('silahkan mengulang');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end if;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><br />
</div><div class="MsoPlainText"><span style="font-family: "Courier New";">declare</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">n1 integer:=&n1;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">n2 integer:=&n2;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">na integer;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">begin</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">na := (n1*0.4) + (n2*0.6);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">if na >=90 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('nilai : '||na||' lulus terbaik');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">elsif na <90 and na >=75 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('nilai : '||na||' lulus');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">elsif na <75 and na >=60 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('nilai : '||na||' boleh perbaikan');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">else</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('nilai : '||na||' silahkan mengulang');</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end if;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><br />
</div><div class="MsoPlainText"><span style="font-family: "Courier New";">declare</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">na varchar(1):='&na';</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">ket varchar(20);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">begin</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">ket := case na</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'A' then 'Baik Sekali'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'B' then 'Baik'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'C' then 'Cukup'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'D' then 'Kurang'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'E' then 'Kurang Sekali'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('INDEKS<span style="mso-spacerun: yes;"> </span>: '||na);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('Keterangan:'||ket);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><br />
</div><div class="MsoPlainText"><span style="font-family: "Courier New";">declare</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">n1 integer:=&n1;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">n2 integer:=&n2;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">na integer;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">na1 varchar(1);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">ket varchar(20);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">begin</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">na := (n1*0.4) + (n2*0.6);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">if na >=90 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>na1 :='A';</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">elsif na <90 and na >=75 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>na1 :='B';</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">elsif na <75 and na >=60 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>na1 :='C';</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">elsif na <60 and na >=40 then</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>na1 :='D';</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">else</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>na1 :='E';</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end if;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">ket := case na1</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'A' then 'Baik Sekali'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'B' then 'Baik'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'C' then 'Cukup'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'D' then 'Kurang'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"><span style="mso-spacerun: yes;"> </span>when 'E' then 'Kurang Sekali'</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('Nilai<span style="mso-spacerun: yes;"> </span>: '||na);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('INDEKS<span style="mso-spacerun: yes;"> </span>: '||na1);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">dbms_output.put_line('Keterangan:'||ket);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div>CANDRA BANYU KUSUMAHhttp://www.blogger.com/profile/06778658310947463420noreply@blogger.com0tag:blogger.com,1999:blog-6691422721586601526.post-33129567828652267742011-12-05T03:49:00.000-08:002011-12-05T03:49:09.545-08:00<div class="MsoPlainText"><span style="font-family: "Courier New";">DECLARE</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">KODE_ID EMPLOYEES.EMPLOYEE_ID%type;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">NAMA_DEP EMPLOYEES.FIRST_NAME%type;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">NAMA_BEL EMPLOYEES.LAST_NAME%type;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">EMA_IL EMPLOYEES.EMAIL%type;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">TGL_KERJA EMPLOYEES.HIRE_DATE%type;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">JOBID EMPLOYEES.JOB_ID%type:= 'PU_MAN';</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">GAJI EMPLOYEES.SALARY%type;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">konter integer:=1;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">begin</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"> select max (EMPLOYEE_ID) into KODE_ID</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"> from EMPLOYEES where JOB_ID=JOBID;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";"> loop</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">insert into EMPLOYEES(</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">EMPLOYEE_ID, FIRST_NAME, LAST_NAME, EMAIL, </span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">HIRE_DATE,JOB_ID, SALARY) values</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">((KODE_ID+konter), '&NAMA_DEP', '&NAMA_BEL', '&EMA_IL', </span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">'&TGL_KERJA','&JOBID',&GAJI);</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">exit when konter > 1;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">konter := konter+1;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end loop;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">end;</span></div><div class="MsoPlainText"><span style="font-family: "Courier New";">/</span></div>CANDRA BANYU KUSUMAHhttp://www.blogger.com/profile/06778658310947463420noreply@blogger.com0