Membuat Program penghitungan rata-rata pada Program Pascal [PDF]

Membuat Program penghitungan rata-rata pada Program Pascal [PDF]

Membuat Program Perhitungan Nilai Rata-Rata Pada Pascal [PDF]

Ketelitian dan keuletan merupakan kunci utama keberhasilan membuat program pascal. Pada artikel ini kami akan membantu saudara untuk dapat membuat sebuah program pascal membuat perhitungan rata-rata nilai.

Mari kita mulai, perhatikan baik2 contoh program berikut :

Wahh waah, Pasti banyak dari kalian yang udah ngedown duluan setelah melihat program diatas :v

Enggak susah kok buat program kayak diatas, gak percaya?  

Program rata2;

(menamai program)

Uses crt;

(memanggil  unit CRT)

Var

                Nama1, nama2 :string;

                Mtk1, bing1 ,bindo1 :byte;

                Mtk2, bing2, bind2 :byte;

                Rata1, rata22 :real;

(mendaftarkan variabel yang akan kita gunakan, serta memberi type data dari tiap variabel)

Begin

                Clrscr;

                (membersihkan layar program)

                Write(‘Siapa Namamu : ‘); readln(nama1);

                Write(‘Nilai MTK : ‘); readln(mtk1);

                Write(‘Nilai B,Inggris : ‘); readln(bing1);

                Write(‘Nilai B. Indonesia : ‘);readln(bindo1);

                (membuat perintah inputan nilai)

                Rata1 := (mtk1+bing1+bindo1)/3;

                (rumus perhitungan rata-rata);

                Write(‘Nilai rata-rata ‘,nama1,’ adalah : ‘,rata1:3:1);

                (menampilkan hasil rata-rata nilai dari nama1, rata1:3:1 ialah perintah untuk hanya                                                                                                              menampilkan 3 angka didepan koma dan 1 angka di belakang koma)

                Readln;

                Write(‘Siapa Namamu : ‘); readln(nama2);

                Write(‘Nilai MTK : ‘); readln(mtk2);

                Write(‘Nilai B,Inggris : ‘); readln(bing2);

                Write(‘Nilai B. Indonesia : ‘);readln(bindo2);

                (membuat perintah inputan nilai untuk rata22)

                Rata22 := (mtk2+bing2+bindo)/3;

                (rumus perhitungan rata-rata);

                Write(‘Nilai rata-rata ‘,nama2,’ adalah : ‘,rata1:3:1);

                (menampilkan hasil rata-rata nilai dari nama2)

                gotoXY(1,23);

                (penempatan dimulainya tulisan);

                Textcolor(yellow + blink);

                (membuat tulisan berwarna kuning dan berkedip-kedip)

                Writeln(‘Enter Untuk Lanjut! ‘);

                Writeln;

                Readkey;

                (readkey digunakan untuk menampilkan halaman baru)

                Clrscrl;

                gotoXY(14,13);

                textcolor(yellow);

                if rata1>rata22 then

writeln(‘Menurut perhitungan nilai ‘,nama1,’ lebih besar dari nilai ‘,rata22);

                if rata22>rata1 then

writeln(‘Menurut perhitungan nilai ‘,nama22,’ lebih besar dari nilai ‘,rata1);

(Program perbandingan if then)

                Readln;

                End.

Setelah selesai Save program dan buka file exe nya, jika program berjalan seperti pada gambar berarti program berhasil dibuat.

Mudah bukan? Selama ada kemauan serta kerja keras pasti bisa

Dan sekian artikel dari kami semoga bermanfaat buat saudara

Note: Hargai penulis dengan komentar positif di bawah

Klik gambar untuk download [PDF]