API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 17th, 2017
79
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.00 KB | None | 0 0
raw download clone embed print report
  1. PROGRAM TUGASKAMPUS_RC;
  2. USES WINCRT;
  3.  
  4. PROCEDURE MENU (VAR PIL:CHAR);
  5. BEGIN
  6. CLRSCR;
  7. GOTOXY(28,2);WRITE('SISTEM INFORMASI PEDAGANG');
  8. GOTOXY(33,3);WRITE('KOTA PEKALONGAN');
  9. GOTOXY(36,4);WRITE('TAHUN 2016');
  10. GOTOXY(36,7);WRITE('SISTEM MENU');
  11. GOTOXY(26,10);WRITE('1. INPUT DATA PEDAGANG');
  12. GOTOXY(26,11);WRITE('2. EDIT DATA PEDAGANG');
  13. GOTOXY(26,12);WRITE('3. HAPUS DATA PEDAGANG');
  14. GOTOXY(26,13);WRITE('4. LAPORAN TOKO DAN PEMBELI');
  15. GOTOXY(26,14);WRITE('5. LAPORAN MODAL,PENDAPATAN DAN PENJUALAN');
  16. GOTOXY(26,15);WRITE('6. LAPORAN CATATAN');
  17. GOTOXY(26,16);WRITE('7. EXIT');
  18. GOTOXY(31,19);WRITE('PILIH MENU [1-7] = - ');
  19. GOTOXY(28,23);WRITE('STMIK WIDYA PRATAMA PEKALONGAN');
  20. GOTOXY(36,24);WRITE('JANUARI 2016');
  21.  
  22. REPEAT
  23. GOTOXY(50,19);WRITE('- ');
  24. GOTOXY(50,19);READLN(PIL);
  25. {UNTIL (PIL='1') OR (PIL='2') OR (PIL='3') OR (PIL='4') OR (PIL='5') OR (PIL='6') OR (PIL='7'); }
  26. UNTIL (PIL>='1') OR (PIL<='7');
  27. END;
  28.  
  29. TYPE
  30. TUGAS = RECORD
  31. TOKO,NAMAWEB : STRING[40];
  32. ALAMAT,EMAIL : STRING[60];
  33. PEMILIK : STRING[35];
  34. USAHA : BYTE;
  35. MODAL,DAPAT,TELEPON : REAL;
  36. PEMBELI,JUALAN,CABANG,AWEB : CHAR;
  37. END;
  38. SIMPAN_TUGAS = ARRAY[1..20] OF TUGAS;
  39. VAR
  40. ST : SIMPAN_TUGAS;
  41. TK,NAW : STRING[65];
  42. AL,EM : STRING[73];
  43. NP : STRING[50];
  44. KET1 : STRING[15];
  45. KET2 : STRING[30];
  46. KET3 : STRING[12];
  47. KET4,KET5 : STRING[10];
  48. NO,Y,DM,LN,DL,TD,AD : INTEGER;
  49. MO,PD,TLP : REAL;
  50. LAGI,PJ,CB,AW,PB : CHAR;
  51. JU : BYTE;
  52.  
  53.  
  54. PROCEDURE INPUT;
  55. BEGIN
  56. CLRSCR;
  57. NO:=0;
  58. LAGI:='Y';
  59. WHILE(LAGI='Y') OR (LAGI='y') DO
  60. BEGIN
  61. CLRSCR;
  62. NO := NO+1;
  63. GOTOXY(30,1);WRITE('INPUT DATA BARANG');
  64. GOTOXY(3,2);WRITE('NO : ....... ');
  65. GOTOXY(8,2);WRITE(NO);
  66. GOTOXY(6,4);WRITE(' 1. NAMA TOKO / PEDAGANG : [..................................] ');
  67. GOTOXY(6,5);WRITE(' 2. ALAMAT : [.....................................] ');
  68. GOTOXY(6,6);WRITE(' 3. NAMA PEMILIK : [.........................] ');
  69. GOTOXY(6,7);WRITE(' 4. JENIS USAHA : [....] ');
  70. GOTOXY(6,12);WRITE('5. MODAL : RP. [.................] ');
  71. GOTOXY(6,13);WRITE('6. PENDAPATAN : RP. [....................]/HARI ');
  72. GOTOXY(6,14);WRITE('7. PEMBELI : [....] ');
  73. GOTOXY(6,18);WRITE('8. PENJUALAN : [....] ');
  74. GOTOXY(6,19);WRITE('9. CABANG : [....] ');
  75. GOTOXY(6,20);WRITE('10. ALAMAT WEB : [....] ');
  76. GOTOXY(6,21);WRITE('11. NAMA ALAMAT WEB : [WWW. ] ');
  77. GOTOXY(6,22);WRITE('12. EMAIL : [.....................................] ');
  78. GOTOXY(6,23);WRITE('13. TELEPON/HP : [.........................] ');
  79. GOTOXY(25,25);WRITE('INPUT DATA LAGI [Y/T] : [..] ');
  80.  
  81. {PILIHAN JENIS USAHA}
  82. GOTOXY(50,7);WRITE('1.PAKAIAN ');
  83. GOTOXY(50,8);WRITE('3.MAKANAN ');
  84. GOTOXY(50,9);WRITE('5.BAHAN POKOK ');
  85. GOTOXY(50,10);WRITE('7.BARANG BEKAS ');
  86. GOTOXY(65,7);WRITE('2.SARUNG ');
  87. GOTOXY(65,8);WRITE('4.SEPATU/TAS ');
  88. GOTOXY(65,9);WRITE('6.ELEKTRONIK ');
  89. GOTOXY(65,10);WRITE('8.LAIN-LAIN ');
  90.  
  91. {PILIHAN PEMBELI}
  92. GOTOXY(50,14);WRITE('D. DOMESTIK ');
  93. GOTOXY(50,15);WRITE('S. DALAM DAN LUAR NEGERI ');
  94. GOTOXY(50,16);WRITE('O. LOKAL ');
  95. GOTOXY(62,14);WRITE('L. LUAR NEGERI ');
  96.  
  97. {PILIHAN PENJUALAN}
  98. GOTOXY(50,18);WRITE('D. DALAM NEGERI ');
  99. GOTOXY(66,18);WRITE('L. LUAR NEGERI ');
  100.  
  101. {PILIHAN CABANG}
  102. GOTOXY(50,19);WRITE('T. TIDAK ADA ');
  103. GOTOXY(65,19);WRITE('A. ADA ');
  104.  
  105. {PILIHAN ALAMAT WEB}
  106. GOTOXY(50,20);WRITE('T. TIDAK ADA ');
  107. GOTOXY(65,20);WRITE('D. ADA ');
  108.  
  109. {FUNGSI}
  110. GOTOXY(42,4);READLN(TK);
  111. GOTOXY(42,5);READLN(AL);
  112. GOTOXY(42,6);READLN(NP);
  113.  
  114. {VAL JENIS USAHA}
  115. REPEAT
  116. GOTOXY(42,7);WRITE('....] ');
  117. GOTOXY(42,7);READLN(JU);
  118. UNTIL (JU>=1) AND (JU<=8);
  119.  
  120. CASE JU OF
  121. 1 : BEGIN
  122. KET1 := 'PAKAIAN';
  123. END;
  124. 2 : BEGIN
  125. KET1 := 'SARUNG';
  126. END;
  127. 3 : BEGIN
  128. KET1 := 'MAKANAN';
  129. END;
  130. 4 : BEGIN
  131. KET1 := 'SEPATU/TAS';
  132. END;
  133. 5 : BEGIN
  134. KET1 := 'BAHAN POKOK';
  135. END;
  136. 6 : BEGIN
  137. KET1 := 'ELEKTRONIK';
  138. END;
  139. 7 : BEGIN
  140. KET1 := 'BARANG BEKAS';
  141. END;
  142. 8 : BEGIN
  143. KET1 := 'LAIN-LAIN';
  144. END;
  145. END;
  146. {END VAL JENIS USAHA}
  147.  
  148. GOTOXY(47,12);READLN(MO);
  149. GOTOXY(47,13);READLN(PD);
  150.  
  151. {PEMBELI}
  152. REPEAT
  153. GOTOXY(41,14);WRITE('....] ');
  154. GOTOXY(41,14);READLN(PB);
  155. UNTIL (PB='D') OR (PB='d') OR (PB='L') OR (PB='l') OR (PB='S') OR (PB='s') OR (PB='O') OR (PB='o');
  156. {END}
  157.  
  158. {VAL PENJUALAN}
  159. REPEAT
  160. GOTOXY(41,18);WRITE('....] ');
  161. GOTOXY(41,18);READLN(PJ);
  162. UNTIL (PJ='D') OR (PJ='d') OR (PJ='L') OR (PJ='l');
  163.  
  164. CASE PJ OF
  165. 'D','d' : BEGIN
  166. KET3 := 'DALAM NEGERI';
  167. END;
  168. 'L','l' : BEGIN
  169. KET3 := 'LUAR NEGERI';
  170. END;
  171. END;
  172. {END VAL PENJUALAN}
  173.  
  174. {CABANG}
  175. REPEAT
  176. GOTOXY(41,19);WRITE('....] ');
  177. GOTOXY(41,19);READLN(CB);
  178. UNTIL (CB='T') OR (CB='t') OR (CB='A') OR (CB='a');
  179. {END}
  180.  
  181. {WEB}
  182. REPEAT
  183. GOTOXY(41,20);WRITE('....] ');
  184. GOTOXY(41,20);READLN(AW);
  185. UNTIL (AW='T') OR (AW='t') OR (AW='A') OR (AW='a');
  186. {END}
  187.  
  188. GOTOXY(45,21);READLN(NAW);
  189. GOTOXY(41,22);READLN(EM);
  190. GOTOXY(41,23);READLN(TLP);
  191.  
  192. {SIMPAN INPUTAN}
  193. ST[NO].TOKO := TK;
  194. ST[NO].PEMBELI := PB;
  195. ST[NO].CABANG := CB;
  196. ST[NO].AWEB := AW;
  197. ST[NO].EMAIL := EM;
  198. ST[NO].TELEPON := TLP;
  199. {END}
  200.  
  201. {VAL LAGI}
  202. REPEAT
  203. GOTOXY(59,25);WRITE('.] ');
  204. GOTOXY(59,25);READLN(LAGI);
  205. UNTIL(LAGI='Y') OR (LAGI='y') OR (LAGI='T') OR (LAGI='t');
  206. {END VAL LAGI}
  207. END;
  208.  
  209. END;
  210.  
  211. PROCEDURE LTK;
  212. BEGIN
  213.  
  214. CLRSCR;
  215. WRITELN(' LAPORAN STATUS TOKO DAN PEMBELI ');
  216. WRITELN(' PADA BULAN ... TAHUN .... ');
  217. WRITELN;
  218. WRITELN(' HAL : ... ');
  219. WRITELN;
  220. WRITELN('----------------------------------------------------------------------------- ');
  221. WRITELN(' NO NAMA TOKO PEMBELI CABANG ALAMAT WEB EMAIL TELEPON ');
  222. WRITELN('----------------------------------------------------------------------------- ');
  223. FOR Y:=1 TO NO DO
  224. BEGIN
  225. {VAL PEMBELI}
  226. CASE ST[Y].PEMBELI OF
  227. 'D','d' : BEGIN
  228. KET2 := 'DOMESTIK';
  229. DM := DM+1;
  230. END;
  231. 'L','l' : BEGIN
  232. KET2 := 'LUAR NEGERI';
  233. LN := LN+1;
  234. END;
  235. 'S','s' : BEGIN
  236. KET2 := 'DALAM DAN LUAR NEGERI';
  237. DL:=DL+1;
  238. END;
  239. 'O','o' : BEGIN
  240. KET2 := 'LOKAL';
  241. END;
  242. END;
  243. {END VAL PEMBELI}
  244.  
  245. {VAL CABANG}
  246. CASE ST[Y].CABANG OF
  247. 'T','t' : BEGIN
  248. KET4 := 'TIDAK ADA';
  249. TD:=TD+1;
  250. END;
  251. 'A','a' : BEGIN
  252. KET4 := 'ADA';
  253. AD:=AD+1;
  254. END;
  255. END;
  256. {END VAL CABANG}
  257.  
  258. {VAL ALAMAT WEB}
  259. CASE ST[Y].AWEB OF
  260. 'T','t' : BEGIN
  261. KET5 := 'TIDAK ADA';
  262. END;
  263. 'A','a' : BEGIN
  264. KET5 := 'ADA';
  265. END;
  266. END;
  267. {END VAL ALAMAT WEB}
  268.  
  269. WRITELN('',Y:2,' ',ST[Y].TOKO:13,' ',KET2:8,' ',KET4:8,' ',KET5:8,' ',ST[Y].EMAIL:8,' ',ST[Y].TELEPON:12:0);
  270.  
  271. END;
  272. WRITELN('----------------------------------------------------------------------------- ');
  273. GOTOXY(3,16);WRITE('DOMESTIK : ',DM);
  274. GOTOXY(3,17);WRITE('CABANG ADA : ',AD);
  275. GOTOXY(26,16);WRITE('LUAR : ',LN);
  276. GOTOXY(26,17);WRITE('TIDAK ADA : ',TD);
  277. GOTOXY(48,16);WRITE('CAMPURAN : ',DL);
  278. END;
  279.  
  280.  
  281. VAR
  282. PIL : CHAR;
  283. PUTAR : BOOLEAN;
  284. BEGIN
  285. CLRSCR;
  286. PUTAR:=TRUE;
  287. WHILE PUTAR=TRUE DO
  288. BEGIN
  289. CLRSCR;
  290. PIL:=' ';
  291. MENU(PIL);
  292. CASE PIL OF
  293. '1' : INPUT;
  294. '4' : LTK;
  295. '7' : BEGIN
  296. PUTAR:=FALSE;
  297. CLRSCR;
  298. GOTOXY(35,12);WRITE('SELESAI');
  299. READLN;
  300. END;
  301. END;
  302. END;
  303.  
  304. END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!