NAMA FILE : Alin_jum

NAMA PROGRAM : Vektorpenjumlahan

INPUT / DEKLARASI :

1. Variabel :

N,I :integer;

Jum,v1,v2 :Array [1..10] of integer;

2. Fungsi :

Uses crt = Clrscr

readkey

LOGIKA PROGRAM (PENJUMLAHAN) :

Program Vektorpenjumlahan;

Penjelasan :

Memberikan nama program dengan nama Vektorpenjumlahan

Uses Crt;

Penjelasan :

Perintah untuk menghidupkan suatu fungsi seperti clrscr dan readkey

Var

N,I:integer;

Jum,v1,v2: Array [1..10] of integer;

Penjelasan :

Mendeklarasikan suatu variabel menurut type data yang ingin digunakan dalam program, diatas dijelaskan n,i diberi type data integer dan jum,v1,v2 diberi procedure array yang berfungsi sebagai penyimpan data scara berurut dan diberi type data integer

BEGIN

Penjelasan :

Perintah untuk memulai suatu program

Clrscr;

Penjelasan :

Perintah untuk membersihkan layar pada saat program dijalankan

Write ('Masukkan Elemen Vektor :');Readln(n);

Writeln ('Vektor 1' );

Penjelasan :

Mencetak kata "Masukkan Elemen Vektor : " dan sekaligus menginput data yang nilai tersebut akan diwakili oleh nilai n karena nilai n dapat diisi nilai berapapun yang type datanya integer atau berupa angka

For I := 1 to n do

Begin

Write(Elemen [1,',i,']:');

Readln(v1[i]);

End;

Penjelasan :

Pada program diatas menggunakan fungsi for karena untuk pengulangan yaitu dijelaskan pengilangan dimulai dari i sama dengan 1 (satu) sampai dengan n (nilai batas pengukangan). Pengulangan pertama yaitu mencetak "Elemen [1,i]:"dan sekaligus menginput nilai yang diwakili oleh variabel v1[i] yang perlu diketahui i disana pada pengulangan pertama yaitu bernilai 1 (satu) dan nilai i terus bertambah sebanyak nilai n yang dimasukkan

Writeln;

Writeln ('Vektor 2');

Penjelasan :

Mencetak kata " Vektor 2" juga memberi jeda antara baris atas dengan dibawahnya sebanyak satu baris.

For I := 1 to n do

Begin

Write(Elemen [1,',i,']:');

Readln(v2[i]);

End;

Penjelasan :

program diatas menggunakan fungsi for untuk pengulangan atau looping yaitu dijelaskan pengulangan dimulai dari i sama dengan 1 (satu) sampai dengan n (nilai batas pengulangan). Pengulangan pertama yaitu mencetak "Elemen [1,i]:"dan sekaligus menginput nilai yang diwakili oleh variabel v2[i] yang perlu diketahui i disana pada pengulangan pertama yaitu bernilai 1 (satu) dan nilai i terus bertambah sebanyak nilai n yang dimasukkan

Writeln;

Writeln ('Penjumlahan Vektor : [ ');

Penjelasan :

Mencetak kata " Penjumlahan Vektor : [ " juga memberi jeda antara baris atas dengan dibawahnya sebanyak satu baris

For I := 1 to n do

Begin

Jum [I] := v1[i] + v2[i];

Penjelasan :

Fungsi pengulangan diatas berkaitan dengan penginputan nilai pada pangulangan sebelumnya pada pengulangan pertama nilai yang dimasukkan pada rumus diatas yaitu penginputan pada pengulangan pertama pula dan seterusnya.

Penjelasan untuk rumus itu sendiri yaitu jum [i] sama dengan v1[i] (nilai yang sudah diinput v1) ditambah dengan v2[i] (nilai yang sudah diinput v2). Untuk i adalah menunjukkan nilai yang harus dimasukkan pada pengulangan keberapa dari penginputan sebelumnya.

Write (jum[I],',');

End;

Penjelasan :

Lanjutan dari rumus tadi setelah terhitung maka akan dicetak hasilnya yaitu berurutan yang tercetak pertama adalah hasil dari penginputan pengulangan pertama dan seterusnya sebanyak n (banyaknya pengulangan)

Gotoxy(wherex -1, hwerey);write(' ] j');

Penjelasan :

Gotoxy ini berfungsi mengatur letak pointer diatas dijelaskan untuk x -1 madsudnya pointer tersebut akan bergeser kekiri satu character karena sebagai tempat hasil penghitungan dari penginputan pengulangan kedua. Dan dilanjutkan pencetakkan tanda " ] j ".

Readkey;

Penjelasan :

Readkey merupakan salah satu bagian dari fungsi uses crt yang fungsinya untuk memberi jeda apabila pada saat program dijalankan kita dapat menekan sembarang tombol dua kali baru bisa berubah

Gotoxy(20,15);

Textcolor (13+128);

Writeln ('Gimana dah ngerti blom…….!!!');

Penjelasan :

Dijelaskan pada posisi x = 20 dan y = 15 akan tercetak tulisan " gimana dah ngerti blom....!!! "dengan warna nomor 13 yaitu merah dan untuk +128 hanya membuat tulisan berkedip - kedip

End.

Penjelasan :

Perintah bahwa program telah selesai karena dalan satu program end titik cuman ada satu

LISTING PROGRAM

Program Vektor15April2004;

Uses Crt;

VAR

n,i: integer;

jum,v1,v2: Array [1..10] of integer;

BEGIN

Clrscr;

Write('Masukkan Elemen Vektor :');Readln(n);

Writeln('Vektor 1');

For i:= 1 To n Do

Begin

Write('Elemen[1,',i,']:');

Readln(v1[i]);

End;

Writeln;

Writeln('Vektor 2');

For i:= 1 To n Do

Begin

Write('Elemen [1,',i,']:');

Readln(v2[i]);

End;

Writeln;

Write('Penjumlahan Vektor : [ ');

For i:= 1 To n Do

Begin

jum [i]:= v1[i] + v2[i];

Write(jum[i],',');

End;

Gotoxy(Wherex -1, Wherey);Write(' ] J');

Readkey;

gotoxy(20,15);

textcolor (13+128);

writeln ('Gimana dah ngerti blom......!!!');

readkey;

gotoxy(18,17);

writeln ('kalo blom tanya dong ama PJ nya....!!!');readln;

END.