Pembuatan Tabel Garis Ganda Pada Pascal

SUBMITTED BY: Guest

DATE: Jan. 12, 2015, 8:10 a.m.

FORMAT: Text only

SIZE: 3.0 kB

Raw Download

HITS: 720

Report
  1. PROGRAM PEMBUATAN_TABEL_GARIS_GANDA;
  2. USES CRT;
  3. CONST g = #206;
  4. s = #205;
  5. a = #204;
  6. t = #203;
  7. v = #202;
  8. q = #201;
  9. z = #200;
  10. m = #188;
  11. p = #187;
  12. i = #186;
  13. l = #185;
  14. o = #0;
  16. VAR X,Y : INTEGER;
  18. BEGIN
  19. CLRSCR;
  20. WRITE (q,s,s,s,t,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,t,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  21. WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,t,s,s,s,s,s,s,s,s,s,s,s,s,s,s,p);
  23. WRITE (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  24. WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i);
  26. WRITE (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  27. WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,l);
  29. WRITE (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  30. WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i);
  32. WRITE (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  33. WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,l);
  35. WRITE (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  36. WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i);
  38. WRITE (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  39. WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,l);
  41. WRITE (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  42. WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i);
  44. WRITE (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  45. WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,l);
  47. WRITE (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  48. WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i);
  50. WRITE (a,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  51. WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,g,s,s,s,s,s,s,s,s,s,s,s,s,s,s,l);
  53. WRITE (i,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o);
  54. WRITELN(o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i,o,o,o,o,o,o,o,o,o,o,o,o,o,o,i);
  56. WRITE (z,s,s,s,v,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,v,s,s,s,s,s,s,s,s,s,s,s,s,s,s);
  57. WRITELN(s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,s,v,s,s,s,s,s,s,s,s,s,s,s,s,s,s,m);
  59. GOTOXY(2,2); WRITE('NO.');
  61. GOTOXY(13,2); WRITE('NAMA');
  63. GOTOXY(43,2); WRITE('ALAMAT');
  65. GOTOXY(66,2); WRITE('NO.TELPHONE');
  66. READLN;
  67. END. 
comments powered by Disqus