Program Pascal Mencari Nilai Rata-Rata

A’SSALAMU’ALAIKUM WR.WB.

Baik lah sob pertemuan kali ini saya akan berbagi tetang bagaimana caranya

Membuat atau mencari nilai rata-rata di program turbo pascal sob.....

Cara pembuatannya sangat lah mudah sob...

1.buka aplikasi turbo pascal nya ae sob..seperti gambar dibawah ini.

Masukan kode aplikasi nya kedalam pascal

rogram MENCARI_NILAI_RATA2_KULIAH;

uses crt;

type

tmhs =record

     NPM: string[10];

     NAMA : string[20];

     MK : string[20];

     QUIZ : byte;

     UTS : byte;

     UAS : byte;

     over : real;

     end;

var

sis : array[1..2] of tmhs;

i,j : integer;

begin

clrscr;

for i := 1 to 2 do

    begin

    write('NPM :');readln(sis[i].NPM);

    write('NAMA :');readln(sis[i].NAMA);

    write('MATAKULIAH :');readln(sis[i].MK);

    write('NILAI QUIZ :');readln(sis[i].QUIZ);

    write('NILAI UTS :');readln(sis[i].UAS);

    write('NILAI UAS :');readln(sis[i].UTS);

                 begin

                 sis[i].over :=(sis[i].QUIZ*0.1)+(sis[i].UTS*0.4)+(sis[i].UAS*0.5);readln;

                 end;

                 writeln;

                 end;

    for j :=1 to 2 do

        begin

        with sis[j] do

        begin

        writeln('NMP :',NPM);

        writeln('Nama :',NAMA);

        writeln('Mata Kuliah :',MK);

        writeln('nilai keseluruhan :',over :5:2);readln;

        writeln;

        end;

end;

end.

3.setelah code aplikasi telah dimasukan ,klik compile seperti gambar dibawah ini.

4.setelah itu klik Run atau sepeti gamabar dibawah ini sob.

5.input NMP,NAMA,MATAKULIAH,NILAI QUIZ,UTS,UAS. Sesuai keingan para sob sekalian ,contoh pada gambar dibawah ini ae sob.

 6.setelah selisai memasukan data klik aja ENTER 2 kali akan muncul seperti gambar dibawah ini.

Selamat Mencoba ae Sob

Semoga sukses

Posted by Unknown

Tweet