Program Pascal - Buat File, Lihat File, Hapus File 5:48 PM Unknown 1 <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Tugas Praktikum Ke-</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">7<o:p></o:p></span></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Nama : Achmad Kharis</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;"><o:p></o:p></span></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">NIM : </span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">J1F114002<o:p></o:p></span></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Kelompok : </span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">3 (Tiga)<o:p></o:p></span></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <br /></div> <div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -14.2pt;"> <!--[if !supportLists]--><b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-fareast-font-family: "Times New Roman";">1.<span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;"> </span></span></b><!--[endif]--><b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Screenshot Program<o:p></o:p></span></b></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimsYqza8imtIEJewHPAsBNYiqlUs501X3F0dB4NhMlXM8ZUAhdx4hMCA2q04dGA9N4MS9PWO4yrQIOw-TwMOwLFVgBluGPiu6wn9PK94xKuCzVR92Qh8Qj6GlDGg2dQSnL61k7OUmFGN_y/s1600/1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="168" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimsYqza8imtIEJewHPAsBNYiqlUs501X3F0dB4NhMlXM8ZUAhdx4hMCA2q04dGA9N4MS9PWO4yrQIOw-TwMOwLFVgBluGPiu6wn9PK94xKuCzVR92Qh8Qj6GlDGg2dQSnL61k7OUmFGN_y/s320/1.JPG" width="320" /></a></div> <br /> <div class="MsoListParagraphCxSpLast" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;"> <span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">Gambar 1.1 Menu Utama<o:p></o:p></span></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <br /></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirFFcaFL2VbB0PX6pplewrLscwq8YH5cJ1kqbRGM_sTAOwqeC5MWv4G9YGnRIPvknMrIfKSgA61nsz910jIcZtGQBiNp61-1GivuCSqhBHludUFaEkgr5Qf7jid7YTVfBgNpvezacvEiQ3/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="170" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirFFcaFL2VbB0PX6pplewrLscwq8YH5cJ1kqbRGM_sTAOwqeC5MWv4G9YGnRIPvknMrIfKSgA61nsz910jIcZtGQBiNp61-1GivuCSqhBHludUFaEkgr5Qf7jid7YTVfBgNpvezacvEiQ3/s320/2.JPG" width="320" /></a></div> <br /> <div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;"> <span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">Gambar 1.2 Buat File. <o:p></o:p></span></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;"> <br /></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLEzJ5C-jiBPwwXe4v7uKHhTptgczHirA3jdX2Nmf1TztpapaO9grMo7DXgY8IHyWEdV3OunUF4weUmR3i6iBThYCquHJI9OmbrGijxwW2biWbNkrQfvszPH4nnfNXuIUU7Kjm69PYnzqe/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="171" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLEzJ5C-jiBPwwXe4v7uKHhTptgczHirA3jdX2Nmf1TztpapaO9grMo7DXgY8IHyWEdV3OunUF4weUmR3i6iBThYCquHJI9OmbrGijxwW2biWbNkrQfvszPH4nnfNXuIUU7Kjm69PYnzqe/s320/3.JPG" width="320" /></a></div> <br /> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;"> <span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">Gambar 1.3 Input data.<o:p></o:p></span></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;"> <br /></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1owkT6d8f_bnB61aC7os9T_tp0w-Ea8CP4RfF1M8HXWSVdqAYjvhGfKkmh9Ffq0PlAiep7W4sxd8NQMYkOk5HvBvq9Y9zoGMTLeqQKzh7qPcTlvkj5EVGk7A_9Sqbh9oMYACyZ7hfHpjn/s1600/4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="171" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1owkT6d8f_bnB61aC7os9T_tp0w-Ea8CP4RfF1M8HXWSVdqAYjvhGfKkmh9Ffq0PlAiep7W4sxd8NQMYkOk5HvBvq9Y9zoGMTLeqQKzh7qPcTlvkj5EVGk7A_9Sqbh9oMYACyZ7hfHpjn/s320/4.JPG" width="320" /></a></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;"> <br /></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;"> <span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">Gambar 1.4 Output Hasil.<o:p></o:p></span></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgBfGSMNgBknGGGG3ILrQ9NPh3mpODXe6KjHgT5B9mMJh_zHfuFg3p6bLUz4oLsewmZeBfhJCRA61_D9Jqw12kb_zQKvx6pqoYRl5lrD3Z5xxt3ENVRNmVcVciJZWogBGth4zcEScdyI2N3/s1600/5.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="169" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgBfGSMNgBknGGGG3ILrQ9NPh3mpODXe6KjHgT5B9mMJh_zHfuFg3p6bLUz4oLsewmZeBfhJCRA61_D9Jqw12kb_zQKvx6pqoYRl5lrD3Z5xxt3ENVRNmVcVciJZWogBGth4zcEScdyI2N3/s320/5.JPG" width="320" /></a></div> <div class="MsoListParagraphCxSpMiddle" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;"> <br /></div> <div class="MsoListParagraphCxSpLast" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;"> <span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">Gambar 1.5 Hapus file.<o:p></o:p></span></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <br /></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <br /></div> <div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;"> <br /></div> <div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -10.9pt;"> <!--[if !supportLists]--><b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-fareast-font-family: "Times New Roman";">2.<span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;"> </span></span></b><!--[endif]--><b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Source Code<o:p></o:p></span></b></div> <br /> <table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; margin-left: 19.6pt; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"> <tbody> <tr> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 375.65pt;" valign="top" width="501"> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">uses crt;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">var<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> pil :char;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> data :text;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> nama,nim,isi :string;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> a :byte;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">procedure menu1;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">begin<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> assign(data,'D:\data.txt');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> rewrite(data);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> clrscr;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('>> Buat File');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('File berhasil dibuat di D:\data.txt');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> readkey;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> close(data);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">end;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">procedure menu2;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">begin<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> assign(data,'D:\data.txt');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> append(data);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> clrscr;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('>> Input Data');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> write ('Nama : ');readln(nama);writeln(data,nama);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> write ('NIM : ');readln(nim); writeln(data,nim);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> close(data);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">end;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">procedure menu3;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">begin<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> assign(data,'D:\data.txt');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> reset(data);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> clrscr;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('>> Lihat Data ');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> a:=1;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> while not eof(data) do<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> begin<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> readln(data,isi);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> if a mod 2=1 then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('Nama : ',isi) else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> begin<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('NIM : ',isi);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> end;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> inc(a);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> end;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> close(data);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> readkey;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">end;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">procedure menu4;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">begin<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> assign(data,'D:\data.txt');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> erase(data);<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> clrscr;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('>> Hapus File');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('File berhasil dihapus');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> readkey;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">end;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">begin<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> repeat<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> clrscr;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('Menu UTAMA');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('1. Buat File');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('2. Input Data');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('3. Lihat Data');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('4. Hapus File');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln('0. Keluar');<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> writeln;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> write ('Pilihan : ');pil:=readkey;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> case pil of<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> '1':menu1;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> '2':menu2;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> '3':menu3;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> '4':menu4;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> end;<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"> until pil='0';<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span lang="EN-US" style="font-size: 13.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">end.<span style="color: #bfbfbf; mso-themecolor: background1; mso-themeshade: 191;"><o:p></o:p></span></span></div> </td> </tr> </tbody></table> Pascal Program Pascal - Buat File, Lihat File, Hapus File Tugas Praktikum Ke- 7 Nama : Achmad Kharis NIM : J1F114002 Kelompok : 3 (Tiga) 1. Screensh... Baca selengkapnya »
