ALGORITMA  PEROGRAMAN TPW
CONTOH ERAYYY

USES WINCRT;

VAR

   I,N           : INTEGER;

   NAMA    : ARRAY[1..10] OF STRING[25];

BEGIN

     WRITE('JUMLAH DATA ?');READLN(N);

     FOR I:= 1 TO N DO

     BEGIN

        WRITE('NAMA KE-',I,':');READLN(NAMA[I]);

     END;

     WRITELN('KELUARAN :');

     WRITELN('-----------');

     FOR I:= 1 TO N DO

     BEGIN

        WRITELN('NAMA KE-',I,':',NAMA[I]);

     END;

     READLN;

     END.

ALGORITMA :

1.     INPUT N

2.     I ß 1

3.     SELAMA I<=N MAKA

          INPUT NAMA[I]

4.     SELAMA I <=N MAKA

          CETAK NAMA[I]

ATAU

1.     INPUT N

2.     FOR Iß 1 TO N DO

          READ( NAMA[I])

3.     FOR I ß 1 TO N DO

          WRITE(NAMA[I])

PSEDEUCODE :

ALGORITMA INPUT_NAMA;

{DIGUNAKAN UNTUK MENERIMA INPUT N NAMA

DAN MENCETAK}

DEKLARASI :

   I,N : INTEGER;

   NAMA : ARRAY[1..10] OF STRING[25];

DESKRIPSI :

    READ(N);

    FOR I := 1 TO N DO        

               READ(NAMA[I]);

    FOR I := 1 TO N DO        

               WRITE(NAMA[I]);

NOMOR 2.

PROGRAM ARRAY2;

USES WINCRT;

VAR

               I,N,JUMLAH : INTEGER;

               X: ARRAY[1..10] OF INTEGER;

               RATA: REAL;

BEGIN

     WRITE('JUMLAH DATA ?');READLN(N);

     JUMLAH:=0;

     WRITELN('DATA YANG DIINPUTKAN');

     FOR I := 1 TO N DO

               BEGIN

               WRITE('NILAI KE-',I,':');READLN(X[I]);

               JUMLAH:=JUMLAH + X[I];

               END;

     RATA:=JUMLAH/N;

     CLRSCR;

     WRITELN('DATA YANG TAMPILKAN');

     FOR I := 1 TO N DO

               BEGIN

               WRITELN('NILAI KE-',I,':',X[I]);

        END;

     WRITELN('JUMLAH               :',JUMLAH);

     WRITELN('RATA-RATA         :',RATA:4:2);

READLN;

END.

ALGORITMA :

1.     INPUT N

2.     JUMLAH ß 0

3.     SELAMA I<= N DO

          INPUT X[I]

          JUMLAH ß JUMLAH + X[I]

4.     RATA ß JUMLAH / N

5.     SELAMA I<= N DO

          CETAK X[I]

6.     CETAK JUMLAH,RATA

PSEDEUCODE :

ALGORITMA HITUNG_JUMLAH_DAN_RATA2;

{DIGUNAKAN UNTUK MENERIMA INPUT N NILAI DAN MENGHITUNG JUMLAH DAN RATA-RATANYA}

DEKLARASI :

    I,N,JUMLAH : INTEGER;

    X: ARRAY[1..10] OF INTEGER;

    RATA: REAL;

DESKRIPSI :

     READLN(N);

     JUMLAH:=0;

      FOR I := 1 TO N DO

               READLN(X[I]);

               JUMLAH:=JUMLAH + X[I];

              

     RATA:=JUMLAH/N;

     FOR I := 1 TO N DO

                WRITE(X[I]);

     WRITE (JUMLAH);

     WRITE(RATA);

                             TABEL OPERASI MATEMATIKA

               --------------------------------------------------------------------

               NO.       X       Y       X+Y    X*Y               X-Y       X/Y

               --------------------------------------------------------------------

               1.           4        2

               2.           10      5

               3.           6        3

               ..            20

               N

               --------------------------------------------------------------------

ALGORITMA :

1.     INPUT N

2.     FOR I ß 1 TO N DO

          INPUT X[I],Y[I]

3.     FOR I ß 1 TO N DO

          TAMBAH ß X[I] + Y[I]

          KURANG ß X[I] -Y[I]

          KALIß X[I] * Y[I]

          BAGIß X[I] / Y[I]

          CETAK I,X[I],Y[I],TAMBAH, KALI,KURANG, BAGI

ALGORITMA HITUNG_TABEL_MATEMATIKA;

{DIGUNAKAN UNTUK MENAMPILKAN TABEL MATEMATIKA

DENGAN INPUTAN N, X, DAN Y}

DEKLARASI :

    X,Y : ARRAY[1..10] OF INTEGER;

    I,N  : INTEGER;

    TAMBAH, KALI, KURANGI : INTEGER;

    BAGI : REAL;

DESKRIPSI :

READLN(N);

FOR I := 1 TO N DO

     READLN(X[I], Y[I]);

FOR I:= 1 TO N DO

     BEGIN

        TAMBAH:=X[I] + Y[I];

        KALI:=X[I] * Y[I];

        KURANGI:=X[I] - Y[I];

        BAGI:=X[I] / Y[I];

        WRITE(I,X[I], Y[I], TAMBAH, KALI, KURANGI, BAGI:4:2);

              

               WRITELN(‘------------------------------------------------------------‘);

               READLN;

END.

VAR

               X,Y : ARRAY[1..10] OF INTEGER;

               I,N  : INTEGER;

               TAMBAH, KALI, KURANGI : INTEGER;

               BAGI : REAL;

BEGIN

               WRITE(’JUMLAH DATA ?’);READLN(N);

               FOR I := 1 TO N DO

                   BEGIN

                             WRITELN(‘INPUT DATA KE-‘,I);

                             WRITELN(‘---------------------------------‘);

                             WRITE(‘NILAI X :’);READLN(X[I]);

                             WRITE(‘NILAI Y :’);READLN(Y[I]);

                   END;

               WRITELN(‘         TABEL OPERASI MATEMATIKA   ‘);

               WRITELN(‘------------------------------------------------------------‘);

               WRITELN(’NO.  X    Y     X+Y     X*Y     X-Y     X/Y   ‘);

               WRITELN(‘------------------------------------------------------------‘);

               FOR I:= 1 TO N DO

               BEGIN

                   TAMBAH:=X[I] + Y[I];

                   KALI:=X[I] * Y[I];

                   KURANGI:=X[I] - Y[I];

                   BAGI:=X[I] / Y[I];

               WRITELN(I,’    ‘,X[I],’     ‘,Y[I],’     ‘,TAMBAH,’   ‘,

KALI,’   ‘,KURANGI,’    ‘,BAGI:4:2);

               END;

               WRITELN(‘------------------------------------------------------------‘);

               READLN;

END.

DAFTAR NILAI MAHASISWA

--------------------------------------------------------------------------------------------

NO.     NIM             NAMA         QUIZ       UTS    UAS    NA    GRADE

--------------------------------------------------------------------------------------------

1.               

2.               

3.               

..

N

-------------------------------------------------------------------------------------------

BOBOT NILAI AKHIR (NA) = QUIZ 20%, UTS 30%, UAS 50%

GRADE = 86 – 100 =A;71 -85 =B; 56 – 70=C;41-55=D;0 – 40=E;

SEMOGA BER MANFAAT..................