ALGORITHMS
View more documents from oonaries.
Showing posts with label Algoritma. Show all posts
Showing posts with label Algoritma. Show all posts
Friday, 29 June 2012
Wednesday, 6 June 2012
Contoh Program Perkalian
Dalam matematika dan komputasi, algoritma merupakan kumpulan perintah untuk menyelesaikan suatu masalah. Perintah-perintah ini dapat diterjemahkan secara bertahap dari awal hingga akhir. Masalah tersebut dapat berupa apa saja, dengan catatan untuk setiap masalah, ada kriteria kondisi awal yang harus dipenuhi sebelum menjalankan algoritma. Algoritma akan dapat selalu berakhir untuk semua kondisi awal yang memenuhi kriteria, berbeda dengan heuristik. Algoritma sering mempunyai langkah pengulangan (iterasi) atau memerlukan keputusan (logika Boolean dan perbandingan) sampai tugas selesai. kampus ti Jadi Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis dan logis.Kata Logis merupakan kata kunci dalam Algoritma. Langkah-langkah dalam Algoritma harus logis dan harus dapat ditentukan bernilai salah atau benar. Berikut Contoh Algoritma Dalam Turbo Pascal perkalian
program perkalian_matriks;
program perkalian_matriks;
uses crt;
const n_i=2;
n_j=2;
n_k=1;
n_j=2;
n_k=1;
var
A: array [1..n_i,1..n_j] of integer;
B: array [1..n_j,1..n_k] of integer;
C: array [1..n_i,1..n_k] of integer;
i,j,k:integer;
begin
clrscr;
writeln(‘penetapan nilai matriks A’);
A: array [1..n_i,1..n_j] of integer;
B: array [1..n_j,1..n_k] of integer;
C: array [1..n_i,1..n_k] of integer;
i,j,k:integer;
begin
clrscr;
writeln(‘penetapan nilai matriks A’);
for i:=1 to n_i do
for j:=1 to n_j do
begin
for j:=1 to n_j do
begin
write(‘baris ke-’,i,’kolom ke-’,j,’ :’);
readln(A[i,j]);
end;
readln(A[i,j]);
end;
writeln(‘penetapan nilai matriks B’);
for j:=1 to n_j do
for k:=1 to n_k do
begin
for k:=1 to n_k do
begin
write(‘baris ke-’,j,’kolom ke-’,k,’ :’);
readln(B[j,k]);
end;
writeln(‘Perhitungsn sedang dilakukan ..’);
for i:= 1 to n_i do
for k:= 1 to n_k do
begin
C[i,k] :=0;
readln(B[j,k]);
end;
writeln(‘Perhitungsn sedang dilakukan ..’);
for i:= 1 to n_i do
for k:= 1 to n_k do
begin
C[i,k] :=0;
for j:= 1 to n_j do
C[i,k] := C[i,k]+A[i,j] * B[j,k];
end;
writeln(‘Maka nilai matriks C’);
C[i,k] := C[i,k]+A[i,j] * B[j,k];
end;
writeln(‘Maka nilai matriks C’);
for i:=1 to n_i do
begin
for k:=1 to n_k do
write(C[i,k]:4);
writeln;
begin
for k:=1 to n_k do
write(C[i,k]:4);
writeln;
end;
readln;
end.
end.