NAMA FILE : Alin_KAL

NAMA PROGRAM : Vektorperkalian

INPUT / DEKLARASI :

1. Variabel :

n,I,skalar:integer;

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

Pil :char

2. Fungsi :

Uses crt = Clrscr

readkey

LOGIKA PROGRAM (PERKALIAN) :

Program vektorperkalian;

Penjelasan :

Memberikan nama program dengan nama Vektorpenjumlahan

Uses crt;

Penjelasan :

Perintah untuk menghidupkan suatu fungsi seperti clrscr dan readkey

VAR

n, i, skalar : integer;

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

pil : char;

Penjelasan :

Mendeklarasikan suatu variabel menurut type data yang ingin digunakan dalam program, diatas dijelaskan n,I,skalar diberi type data integer dan jum,v1,v2, diberi procedure array yang berfungsi sebagai penyimpan data scara berurut dan diberi type data integer dan untuk pil bertype data character.

BEGIN

Penjelasan :

Perintah untuk memulai suatu program

Repeat

Clrscr;writeln;

Writeln(' MENU PILIHAN : ');

Writeln(' 1. Penginputan elemn vektor ');

Writeln(' 2. Hasil perkalian antar vektor ');

Writeln(' 3. Hasil perkalian skalar dengan vektor ');

Writeln(' 4. Keluar');

Penjelasan :

Program ini juga menggunakan struktur Repeat Until dimana fungsinya untuk mengulang suatu statement sampai kondisi yang diseleksi tidak terpenuhi.diatas juga sekaligus mencetak beberapa statement untuk sebagai pilihan saja

Pil := readkey;

Writeln;writeln;

Penjelasan :

Apabila kita menekan tombol pilihan maka kita memberikan suatu nilai pada pil dan akan langsung menuju isi pilihan menu yang akan dijelaskan dalam program selanjutnya

Case pil of

Penjelasan :

Case digunakan untuk bilamana terdapat ada beberapa pilihan yaitu pil merupakan wakil dari pilihan yang kita pilih

'1' :begin

writeln (' 1.Penginputan')

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

Write (' Skalar :');readln(skalar);

writeln (' Vektor 1' );

Penjelasan :

Pada pilihan pertama mencetak kata "1. Penginputan ", "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 dan juga menginput skalar sebagai nilai skalar itu sendiri

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 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 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;

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. end yang kedua menjelaskan bahwa menutup program pilihan pertama

'2' :begin

clrscr;Writeln;

writeln ('2. Hasil Perkalian');

Writeln ('Perkalian antar Vektor : [ ');

Penjelasan :

Pada pilihan kedua akan dijelaskan pertama mencetak kata "2. Hasil Perkalian", Perkalian antar 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) dikalikan 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;

End;

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. Dan end disan menjelaskan bahwa program untuk pilihan kedua telah selesai

'3' :begin

clrscr;Writeln;

writeln ('3. Hasil Perkalian');

Writeln (' Perkalian Skalar Vektor 1 : [ ');

Penjelasan :

Pada pilihan ketiga pertama rpogram mencetak kata "3. Hasil Perkalian" dan "Perkalian Skalar vektor 1 : [ "

For I := 1 to n do

Begin

Jum [I] := skalar * v1[i];

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

End;

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

Penjelasan :

Program diatas menjelaskan bahwa pada pengulangan rumus yang digunakan sama dengan perkalian antar vektor namun kali ini vektor pertama dikalikan dengan skalar

Writeln (' Perkalian Skalar Vektor 2 : [ ');

For I := 1 to n do

Begin

Jum [I] := skalar * v1[i];

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

End;

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

Penjelasan :

Program diatas menjelaskan bahwa pada pengulangan rumus yang digunakan sama dengan perkalian antar vektor namun kali ini vektor kedua dikalikan dengan skalar juga mencetak kata "perkalia skalar vektor 2" sebelum mencetak hasil perkaliannya

Readkey;

End;

Penjelasan :

End diatas menjelaskan bahwa program ketiga telah selasai dan untuk readkey fungsinya sama dengan readkey yang ada diatas atau sebelumnya

End;

Penjelasan :

End menjelaskan behwa fungsi case untuk pil telah selesai

Readkey;

Until pil ='4';

Penjelasan :

Until ini fungsinya apabila kondisi yang diseleksi terpenuhi maka program akan berhenti yaitu apabila pil itu sama dengan 4 dan untuk readkey fungsinya sama dengan readkey yang ada diatas atau sebelumnya

END.

Penjelasan :

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

LISTING PROGRAM

Program Vektorperkalian;

Uses Crt;

VAR

n,i,skalar: integer;

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

pil:char;

BEGIN

repeat

clrscr;writeln;

writeln(' MENU PILIHAN : ');

writeln(' 1. Penginputan elemen vektor');

writeln(' 2. Hasil perkalian antar vektor');

writeln(' 3. Hasil perkalian skalar dengan vektor');

writeln(' 4. Keluar');

pil:=readkey;

writeln;writeln;

case pil of

'1' :begin

writeln(' 1. Penginputan');

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

write(' Skalar : ');readln(skalar);

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;

end;

'2':begin

Clrscr;writeln;

writeln(' 2. Hasil perkalian');

write(' perkalian antar vektor : [ ');

For i:= 1 To n Do

Begin

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

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

end;

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

end;

'3':begin

clrscr;writeln;

writeln (' 3. Hasil perkalian');

write(' perkalian skalar vektor 1 : [ ');

For i:= 1 to n Do

begin

jum [i]:= skalar * v1[i];

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

end;

gotoxy(wherex -1 ,wherey);writeln(' ] j');

write(' perkalian skalar vektor 2 : [ ');

For i:= 1 to n Do

begin

jum [i]:= skalar * v2[i];

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

end;

gotoxy(wherex -1 ,wherey);writeln(' ] j');

readkey;

end;

end;

readkey;

until pil='4';

END.