REPEAT-UNTIL pada TPX

 Inilah jawaban UAS SMS_1 membuat program pengulangan dengan menggunakan REPEAT-UNTIL. Program ini di buat dengan menggunakan Turbo Paskal.

{==============================================================}

PROGRAM UAS_1;
USES CRT;
VAR X                   : INTEGER;
    HB,HK,JML,RT : REAL;

BEGIN
     CLRSCR;
     TEXTCOLOR (LIGHTBLUE);
     WRITELN   (' ');
     WRITE     (' ');                   TEXTCOLOR (YELLOW);
     WRITE     ('_UAS PEMROGRAMAN DASAR_'); TEXTCOLOR (LIGHTBLUE);
     WRITELN   (' ');
     WRITELN   (' ');
     X   := 151;
     JML := HK;
     REPEAT
           IF (X MOD 2 = 0) THEN
              BEGIN
                HB := X/10;
                HK := X*HB;
                TEXTCOLOR (LIGHTGREEN);
                WRITELN (X,'(genap)','   x  ',HB:0:2,'  =  ',HK:0:2);
                X := X + 1;
              END;
              JML := JML + HK;

           IF (X MOD 2 = 1) THEN
              BEGIN
                HB := X/10;
                HK := X*HB;
                TEXTCOLOR (LIGHTRED);
                WRITELN (X,'(ganjil)','  x  ',HB:0:2,'  =  ',HK:0:2);
                X := X + 1;
              END;
              JML := JML + HK;

     UNTIL (X>=165);

     TEXTCOLOR (WHITE);
     RT := JML/15;
     WRITELN (' ');
     WRITELN ('   JUMLAH HASIL KALI   : ',JML:0:2);
     WRITELN ('   RATA-RATA GAJI      :  ',RT:0:2);

     WRITELN (' ');                 TEXTCOLOR (LIGHTBLUE);
     WRITELN (' ');
     WRITE   (' ');          TEXTCOLOR (RED+BLINK);
     WRITE   ('_11110055_DIKDIK_'); TEXTCOLOR (LIGHTBLUE);
     WRITELN (' ');
     WRITELN (' ');
     READLN;

END.
{=============================================================}