API tools faq
paste
afrizalwahyuadi66

U_Menu.PAS

afrizalwahyuadi66
May 11th, 2024
117
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TypeScript 17.43 KB | None | 0 0
raw download clone embed print report
  1. unit u_menu;
  2. interface
  3.    uses crt;
  4.    procedure menu_uts(var pil : integer;overwrite : boolean);
  5.    procedure NO_1(overwrite : boolean);
  6.    procedure NO_2(overwrite : boolean);
  7.    procedure NO_3(overwrite : boolean);
  8.    procedure NO_4(overwrite : boolean);
  9.    procedure NO_5(overwrite : boolean);
  10.    procedure NO_6(overwrite : boolean);
  11.    procedure NO_7(overwrite : boolean);
  12.    procedure NO_8(overwrite : boolean);
  13.    procedure NO_9(overwrite : boolean);
  14.    procedure NO_10(overwrite : boolean);
  15.    procedure NO_11(overwrite : boolean);
  16.    procedure NO_12(overwrite : boolean);
  17.  
  18.  
  19.  
  20. implementation
  21.    procedure menu_uts(var pil : integer;overwrite : boolean);
  22.       begin
  23.          textcolor(15);
  24.          textbackground(0);
  25.          clrscr;
  26.          textcolor(15);
  27.          textbackground(1);
  28.          gotoxy(20,01);write('浜様様様様様様様様様様様様様様様様融');
  29.          gotoxy(20,02);write('�             UTS ALGO             �');
  30.          gotoxy(20,03);write('麺様様様様様様様様様様様様様様様様郵');
  31.          gotoxy(20,04);write('�   1).PROGRAM_1                   �');
  32.          gotoxy(20,05);write('�   2).PROGRAM_2                   �');
  33.          gotoxy(20,06);write('�   3).PROGRAM_3                   �');
  34.          gotoxy(20,07);write('�   4).PROGRAM_4                   �');
  35.          gotoxy(20,08);write('�   5).PROGRAM_5                   �');
  36.          gotoxy(20,09);write('�   6).PROGRAM_6                   �');
  37.          gotoxy(20,10);write('�   7).PROGRAM_7                   �');
  38.          gotoxy(20,11);write('�   8).PROGRAM_8                   �');
  39.          gotoxy(20,12);write('�   9).PROGRAM_9                   �');
  40.          gotoxy(20,13);write('�  10).PROGRAM_10                  �');
  41.          gotoxy(20,14);write('�  11).PROGRAM_11                  �');
  42.          gotoxy(20,15);write('�  12).PROGRAM_12                  �');
  43.          gotoxy(20,16);write('�   0).EXIT                        �');
  44.          gotoxy(20,17);write('�  浜様様様様様様様様様様曜様様�   �');
  45.          gotoxy(20,18);write('�  � MASUKAN PILIHAN ANDA � 旭 �   �');
  46.          gotoxy(20,19);write('藩擁様様様様様様様様様様様瞥様擁様夕');
  47.          if overwrite then
  48.             begin
  49.                gotoxy(48,18);readln(pil);
  50.             end;
  51.       end;
  52.  
  53.    procedure NO_1 (overwrite : boolean);
  54.       begin
  55.          textcolor(15);
  56.          textbackground(4);
  57.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  58.          gotoxy(21,02);write('�       INPUTAN 3 BILANGAN         �');
  59.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  60.          gotoxy(21,04);write('�  Bilangan Pertama : �            �');
  61.          gotoxy(21,05);write('�                                  �');
  62.          gotoxy(21,06);write('�  Billangan Kedua  : �            �');
  63.          gotoxy(21,07);write('�                                  �');
  64.          gotoxy(21,08);write('�  Bilangan Ketiga  : �            �');
  65.          gotoxy(21,09);write('�                                  �');
  66.          gotoxy(21,10);write('�  Hasil Penjumlahan :             �');
  67.          gotoxy(21,11);write('�  Hasil Pengurangan :             �');
  68.          gotoxy(21,12);write('�  Hasil Perkalian   :             �');
  69.          gotoxy(21,13);write('藩様様様様様様様様様様様様様様様様夕');
  70.  
  71.       end;
  72.  
  73.    procedure NO_2(overwrite : boolean);
  74.       begin
  75.          textcolor(15);
  76.          textbackground(6);
  77.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  78.          gotoxy(21,02);write('�  LUAS PANJANG SEGITIGA SAMA SISI �');
  79.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  80.          gotoxy(21,04);write('�  Panjang Sisi Segitiga : �       �');
  81.          gotoxy(21,05);write('�                                  �');
  82.          gotoxy(21,06);write('�                                  �');
  83.          gotoxy(21,07);write('�  Hasil Luas Segitiga      :      �');
  84.          gotoxy(21,08);write('�  Hasil Keliling Segitiga  :      �');
  85.          gotoxy(21,09);write('藩様様様様様様様様様様様様様様様様夕');
  86.  
  87.       end;
  88.  
  89.    procedure NO_3(overwrite : boolean);
  90.       begin
  91.          textcolor(15);
  92.          textbackground(2);
  93.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  94.          gotoxy(21,02);write('�    LUAS KELILING SEGITIGA SIKU   �');
  95.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  96.          gotoxy(21,04);write('�  Bilangan Pertama : �            �');
  97.          gotoxy(21,05);write('�                                  �');
  98.          gotoxy(21,06);write('�  Billangan Kedua  : �            �');
  99.          gotoxy(21,07);write('�                                  �');
  100.          gotoxy(21,08);write('�  Keliling S.Siku-Siku :          �');
  101.          gotoxy(21,09);write('�  Luas S.Siku-Siku     :          �');
  102.          gotoxy(21,10);write('藩様様様様様様様様様様様様様様様様夕');
  103.  
  104.       end;
  105.  
  106.    procedure NO_4(overwrite : boolean);
  107.       begin
  108.          textcolor(15);
  109.          textbackground(8);
  110.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  111.          gotoxy(21,02);write('�     LUAS KELILING LINGKARAN      �');
  112.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  113.          gotoxy(21,04);write('�  Diameter Lingkaran   : 旭       �');
  114.          gotoxy(21,05);write('�                                  �');
  115.          gotoxy(21,06);write('�                                  �');
  116.          gotoxy(21,07);write('�  Luas Lingkaran       :          �');
  117.          gotoxy(21,08);write('�  Keliling Lingkaran   :          �');
  118.          gotoxy(21,09);write('藩様様様様様様様様様様様様様様様様夕');
  119.  
  120.       end;
  121.  
  122.    procedure NO_5(overwrite : boolean);
  123.       begin
  124.          textcolor(15);
  125.          textbackground(10);
  126.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  127.          gotoxy(21,02);write('� KECEPATAN RATA RATA JARAK TEMPUH �');
  128.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  129.          gotoxy(21,04);write('�  Masukkan Kecepatan 1   : 旭     �');
  130.          gotoxy(21,05);write('�                                  �');
  131.          gotoxy(21,06);write('�  Masukkan Waktu Tempuh 1: 旭     �');
  132.          gotoxy(21,07);write('�                                  �');
  133.          gotoxy(21,08);write('�  Masukkan Kecepatan 2   : 旭     �');
  134.          gotoxy(21,09);write('�                                  �');
  135.          gotoxy(21,10);write('�  Masukkan Waktu Tempuh 2: 旭     �');
  136.          gotoxy(21,11);write('�                                  �');
  137.          gotoxy(21,12);write('�  Masukkan Kecepatan 3   : 旭     �');
  138.          gotoxy(21,13);write('�                                  �');
  139.          gotoxy(21,14);write('�  Masukkan Waktu Tempuh 3: 旭     �');
  140.          gotoxy(21,15);write('�                                  �');
  141.          gotoxy(21,16);write('�  Kecepatan Pertama      :        �');
  142.          gotoxy(21,17);write('�  Kecepatan Kedua        :        �');
  143.          gotoxy(21,18);write('�  Kecepatan Ketiga       :        �');
  144.          gotoxy(21,19);write('�                                  �');
  145.          gotoxy(21,20);write('�  Rata-Rata              :        �');
  146.          gotoxy(21,21);write('藩様様様様様様様様様様様様様様様様夕');
  147.  
  148.       end;
  149.  
  150.    procedure NO_6(overwrite : boolean);
  151.       begin
  152.          textcolor(15);
  153.          textbackground(12);
  154.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  155.          gotoxy(21,02);write('� MENUNUKKAN BILANGAN GANJIL GENAP �');
  156.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  157.          gotoxy(21,04);write('�  Masukkan Bil. Integer: 旭       �');
  158.          gotoxy(21,05);write('�                                  �');
  159.          gotoxy(21,06);write('�                                  �');
  160.          gotoxy(21,07);write('�  Hasil :                         �');
  161.          gotoxy(21,08);write('�                                  �');
  162.          gotoxy(21,09);write('藩様様様様様様様様様様様様様様様様夕');
  163.  
  164.       end;
  165.  
  166.    procedure NO_7(overwrite : boolean);
  167.       begin
  168.          textcolor(15);
  169.          textbackground(14);
  170.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  171.          gotoxy(21,02);write('�   STRUK PEMBELIAN DAN CASHBACK   �');
  172.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  173.          gotoxy(21,04);write('�                                  �');
  174.          gotoxy(21,05);write('�                                  �');
  175.          gotoxy(21,06);write('�                                  �');
  176.          gotoxy(21,07);write('�                                  �');
  177.          gotoxy(21,08);write('�                                  �');
  178.          gotoxy(21,09);write('�                                  �');
  179.          gotoxy(21,10);write('�                                  �');
  180.          gotoxy(21,11);write('�                                  �');
  181.          gotoxy(21,12);write('�                                  �');
  182.          gotoxy(21,13);write('�                                  �');
  183.          gotoxy(21,14);write('�                                  �');
  184.          gotoxy(21,15);write('�                                  �');
  185.          gotoxy(21,16);write('�                                  �');
  186.          gotoxy(21,17);write('�                                  �');
  187.          gotoxy(21,18);write('�                                  �');
  188.          gotoxy(21,19);write('藩様様様様様様様様様様様様様様様様夕');
  189.  
  190.       end;
  191.  
  192.    procedure NO_7B(overwrite : boolean);
  193.       begin
  194.          textcolor(15);
  195.          textbackground(14);
  196.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  197.          gotoxy(21,02);write('�         STRUK PEMBAYARAN         �');
  198.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  199.          gotoxy(21,04);write('�  Jumlah Pembelian :              �');
  200.          gotoxy(21,05);write('�                                  �');
  201.          gotoxy(21,06);write('�  Potongan         :              �');
  202.          gotoxy(21,05);write('�  Cashback         :              �');
  203.          gotoxy(21,06);write('�                                  �');
  204.          gotoxy(21,07);write('�  Total Pembayaran :              �');
  205.          gotoxy(21,08);write('�                                  �');
  206.          gotoxy(21,09);write('藩様様様様様様様様様様様様様様様様夕');
  207.  
  208.       end;
  209.  
  210.  
  211.    procedure NO_8(overwrite : boolean);
  212.       begin
  213.          textcolor(15);
  214.          textbackground(16);
  215.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  216.          gotoxy(21,02);write('�          INPUTAN ANGKA           �');
  217.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  218.          gotoxy(21,04);write('�  Masukan Bilangan 0-9 : �        �');
  219.          gotoxy(21,05);write('�                                  �');
  220.          gotoxy(21,06);write('�                                  �');
  221.          gotoxy(21,07);write('�  Dibaca :                        �');
  222.          gotoxy(21,08);write('�                                  �');
  223.          gotoxy(21,09);write('藩様様様様様様様様様様様様様様様様夕');
  224.  
  225.       end;
  226.  
  227.    procedure NO_9(overwrite : boolean);
  228.       begin
  229.          textcolor(15);
  230.          textbackground(18);
  231.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  232.          gotoxy(21,02);write('�       NILAI AKHIR MAHASISWA      �');
  233.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  234.          gotoxy(21,04);write('�  Masukan Nilai UTS       : 旭�   �');
  235.          gotoxy(21,05);write('�                                  �');
  236.          gotoxy(21,06);write('�  Masukan Nilai UAS       : 旭�   �');
  237.          gotoxy(21,07);write('�                                  �');
  238.          gotoxy(21,08);write('�  Masukan Nilai Tugas     : 旭�   �');
  239.          gotoxy(21,09);write('�                                  �');
  240.          gotoxy(21,10);write('�  Masukan Nilai Kehadiran : 旭    �');
  241.          gotoxy(21,11);write('�                                  �');
  242.          gotoxy(21,12);write('�  Nilai Akhir             :       �');
  243.          gotoxy(21,13);write('�  Indeks Mutu             :       �');
  244.          gotoxy(21,14);write('藩様様様様様様様様様様様様様様様様夕');
  245.  
  246.       end;
  247.  
  248.    procedure NO_10(overwrite : boolean);
  249.       begin
  250.          textcolor(15);
  251.          textbackground(20);
  252.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  253.          gotoxy(21,02);write('� MENCETAK ANGKA AWAL SAMPAI AKHIR �');
  254.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  255.          gotoxy(21,04);write('�  Masukan Nilai Awal    : 旭      �');
  256.          gotoxy(21,05);write('�                                  �');
  257.          gotoxy(21,06);write('�  Masukan Nilai Akhir   : 旭      �');
  258.          gotoxy(21,07);write('�                                  �');
  259.          gotoxy(21,08);write('�  Hasil :                         �');
  260.          gotoxy(21,09);write('�                                  �');
  261.          gotoxy(21,10);write('�                                  �');
  262.          gotoxy(21,11);write('�                                  �');
  263.          gotoxy(21,12);write('�                                  �');
  264.          gotoxy(21,13);write('�                                  �');
  265.          gotoxy(21,14);write('藩様様様様様様様様様様様様様様様様夕');
  266.  
  267.       end;
  268.  
  269.    procedure NO_11(overwrite : boolean);
  270.       begin
  271.          textcolor(15);
  272.          textbackground(20);
  273.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  274.          gotoxy(21,02);write('�            KELIPATAN             �');
  275.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  276.          gotoxy(21,04);write('�  Masukan Bilangan N    : 旭      �');
  277.          gotoxy(21,05);write('�                                  �');
  278.          gotoxy(21,06);write('�  Masukan Jumlah Baris  : 旭      �');
  279.          gotoxy(21,07);write('�                                  �');
  280.          gotoxy(21,08);write('�  Hasil :                         �');
  281.          gotoxy(21,09);write('�                                  �');
  282.          gotoxy(21,10);write('�                                  �');
  283.          gotoxy(21,11);write('�                                  �');
  284.          gotoxy(21,12);write('�                                  �');
  285.          gotoxy(21,13);write('�                                  �');
  286.          gotoxy(21,14);write('藩様様様様様様様様様様様様様様様様夕');
  287.  
  288.       end;
  289.  
  290.    procedure NO_12(overwrite : boolean);
  291.       begin
  292.          textcolor(15);
  293.          textbackground(20);
  294.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様融');
  295.          gotoxy(21,02);write('�           FIBONANCI              �');
  296.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様郵');
  297.          gotoxy(21,04);write('�  Masukan Nilai N    : 旭         �');
  298.          gotoxy(21,05);write('�                                  �');
  299.          gotoxy(21,06);write('�  Hasil :                         �');
  300.          gotoxy(21,07);write('�                                  �');
  301.          gotoxy(21,08);write('�                                  �');
  302.          gotoxy(21,09);write('�                                  �');
  303.          gotoxy(21,10);write('�                                  �');
  304.          gotoxy(21,11);write('�                                  �');
  305.          gotoxy(21,12);write('藩様様様様様様様様様様様様様様様様夕');
  306.  
  307.       end;
  308.  
  309.    procedure NO_(overwrite : boolean);
  310.       begin
  311.          textcolor(15);
  312.          textbackground(20);
  313.          gotoxy(21,01);write('浜様様様様様様様様様様様様様様様様曜様様様様融');
  314.          gotoxy(21,02);write('�   NAMA KELOMPOK : MR. GEE        �   NPM   �');
  315.          gotoxy(21,03);write('麺様様様様様様様様様様様様様様様様洋様様様様郵');
  316.          gotoxy(21,04);write('� [1] AZMI AHMAD WIGUNA            �11230009 �');
  317.          gotoxy(21,05);write('� [2] ILHAM MAULANA                �11230083 �');
  318.          gotoxy(21,06);write('� [3] ACITO FATTUROHMAN            �11230112 �');
  319.          gotoxy(21,07);write('�                                  �         �');
  320.          gotoxy(21,08);write('�                                  �         �');
  321.          gotoxy(21,09);write('�                                  �         �');
  322.          gotoxy(21,10);write('�                                  �         �');
  323.          gotoxy(21,11);write('�                                  �         �');
  324.          gotoxy(21,12);write('藩様様様様様様様様様様様様様様様様擁様様様様夕');
  325.  
  326.       end;
  327.  
  328.  
  329. begin
  330. end
  331. .
  332.  
  333.  
Add Comment
Please, Sign In to add comment
Public Pastes
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!