PROGRAM RATA-RATA DENGAN BAHASA PASCALPROGRAM RATA-RATA DENGAN BAHSA PASCAL

PROGRAM RATA-RATA DENGAN BAHSA PASCAL

1.      Aktifkan TPX  dan mulai menulis kode programnya

USES CRT;

VAR

   JUMLAH, X, RT_RT :REAL;

   B_NILAI, I :INTEGER;

   JAWAB: CHAR;

BEGIN

  REPEAT

  CLRSCR;

  WRITELN('PROGRAM PENGHITUNG RATA-RATA');

  WRITELN;

  WRITE('Masukkan banyak data = ');READLN(B_NILAI);

  WRITELN;

  JUMLAH:= 0;

  FOR I := 1 TO B_NILAI DO

  BEGIN

      WRITE('Masukkan data ke-',I,'= ');readln(x);

      jumlah:=jumlah+X

  END;

  WRITELN;

  RT_RT:= JUMLAH/ B_NILAI;

  WRITE('RATA-RATANYA ADALAH =',RT_RT:0:2);

  WRITELN;

  WRITELN('Jika Anda ingin mengulang tekan hurup "U,');

  WRITELN;

  WRITE('Jika tidak tekan sembarang : ');readln(jawab);

  UNTIL UPCASE(JAWAB) <>'U';

  READLN;

END.

Proses perulangan penjumlahan

 

Untuk menjalankan program nyanda tinggal tekan  Crtl + F9

dan hasil nya adalah