Tampilkan postingan dengan label Pascal. Tampilkan semua postingan
 |
| - Program Penjumlahan Dua Matrik dengan Bahasa Pascal - |
Assalamualaikum Warahmatullahi Wabarakatu
Rekan-rekan, Alhamdulillah saya saat ini akan memasuki semester V dalam konsentrasi ilmu Teknik Informatika. Tidak terasa, waktu seakan cepat berlalu rasanya baru kemaren deh saya masuk kuliah. Naahh saat ini saya sedang liburan semester + liburan hari raya Idul Fitri dan saya ingin berbagi pengetahuan dan pengalaman membuat program ‘from zero’, program yang akan saya bagikan pada postingan ini adalah program latihan yang dulu saya buat ketika di semester I, yups ketika saya masih ‘cupu-cupunya’ dalam membuat program haha. ‘Sekarang gimana bay ?’ ‘lumayan masih cupu’, ‘why ?’ because I feels.. I still can’t make a program that can helpful the people and solved a problem. Banyak sekali ide-ide yang ingin saya implementasikan menjadi sebuah ‘produk’ aplikasi, tapi saya masih harus banyak belajar lagi untuk itu. Oke enough, back to the article! Program yang ingin saya share pada postingan kali ini adalah Program Penjumlahan Dua Buah Matrik dengan menggunakan Bahasa Pascal.
Rekan-rekan, Alhamdulillah saya saat ini akan memasuki semester V dalam konsentrasi ilmu Teknik Informatika. Tidak terasa, waktu seakan cepat berlalu rasanya baru kemaren deh saya masuk kuliah. Naahh saat ini saya sedang liburan semester + liburan hari raya Idul Fitri dan saya ingin berbagi pengetahuan dan pengalaman membuat program ‘from zero’, program yang akan saya bagikan pada postingan ini adalah program latihan yang dulu saya buat ketika di semester I, yups ketika saya masih ‘cupu-cupunya’ dalam membuat program haha. ‘Sekarang gimana bay ?’ ‘lumayan masih cupu’, ‘why ?’ because I feels.. I still can’t make a program that can helpful the people and solved a problem. Banyak sekali ide-ide yang ingin saya implementasikan menjadi sebuah ‘produk’ aplikasi, tapi saya masih harus banyak belajar lagi untuk itu. Oke enough, back to the article! Program yang ingin saya share pada postingan kali ini adalah Program Penjumlahan Dua Buah Matrik dengan menggunakan Bahasa Pascal.
Perlu diperhatikan sebelum membuat program ini, Penjumlahan
dua buah matrik dapat dilakukan hanya jika kedua matrik tersebut berordo sama atau
memiliki panjang baris dan kolom yang sama.
Jadi kita buat masukkan 2 variabel, variabel yang
pertama sebagai baris dan yang kedua sebagai kolom. Variabel baris dan kolom
tersebut kita gunakan untuk kedua matriks misal matrik A dan matrik B, baris M
dan kolom N. Jadi matrik A berordo M x N begitu juga matrik B berordo M x N.
Berikut adalah source code Program Penjumlahan Dua
Buah Matrik dengan menggunakan Bahasa Pascal:
Alangkah lebih baik jika Anda tidak hanya copy paste source program ini saja, tetapi Anda coba membuat sendiri dari awal, jika menemukan kesulitan barulah Anda menanyakan (boleh bertanya pada saya) dan melihat contoh program.
Sekian pembahasan kita mengenai Program Penjumlahan Dua buah Matrik dengan Menggunakan Bahasa Pascal, semoga dapat bermanfaat !
Wassalamualaikum Warahmatullahi Wabarakatu
program Penjumlahan_Dua_Matriks_by_BayuWPP;Bagaimana mudah kan ?
{I.S. : user memasukkan banyaknya baris (M), banyaknya kolom (N) dan dua buah matriks yang akan dijumlahkan}
{F.S. : menampilkan matriks hasil penjumlahan}
uses crt;
{kamus Global}
const
Maks_Baris = 5;
Maks_Kolom = 5;
Type
Matriks = array [1..Maks_Baris,1..Maks_Kolom] of integer;
var
A,B : Matriks;
M,N : integer;
{
Program ini dibuat oleh
Bayu Wijaya Permana Putra
}
procedure IsiMatriks(var M,N : integer; var A,B:Matriks);
{I.S. : user memasukkan banyaknya baris (M), banyaknya kolom (N) dan dua buah matriks yang akan dijumlahkan}
{F.S. : menghasilkan banyaknya baris (M), banyaknya kolom (N) dan dua buah matriks yang akan dijumlahkan}
var{kamus lokal}
i,j : integer;
begin
{memasukkan banyaknya baris dan banyaknya kolom}
gotoxy(1,1);write('Banyaknya Baris : ');readln(M);
while(M > Maks_Baris)
do
begin
write('Maksimal Baris adalah 5');readln();
gotoxy(19,1);clreol();
gotoxy(1,2);clreol();
gotoxy(19,1);readln(M);
end;//endwhile
gotoxy(1,2);write('Banyaknya Kolom : ');readln(N);
while(N > Maks_Kolom)
do
begin
write('Maksimal Kolom adalah 5');readln();
gotoxy(19,2);clreol();
gotoxy(1,3);clreol();
gotoxy(19,2);readln(N);
end;//endwhile
{memasukkan elemen matriks}
clrscr;gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
gotoxy(1,1);write('Matriks A');
gotoxy(1,2);write('=========');
for i := 1 to M do
begin
for j := 1 to N do
begin{*Programmer BayuWPP*}
gotoxy(j*5-4,i+2);readln(A[i,j]);
end;//endfor
end;//enfor
{
Program ini dibuat oleh
Bayu Wijaya Permana Putra
}
gotoxy(35,1);write('Matriks B');
gotoxy(35,2);write('=========');
for i := 1 to M do
begin
for j := 1 to N do
begin
gotoxy(j*5+30,i+2);readln(B[i,j]);
end;//endfor
end;//enfor
end;//endprocedure
function JumlahMatriks(A,B:Matriks; i,j:integer) : integer;
{I.S. : dua buah matriks yang akan dijumlahkan sudah terdefinisi}
{F.S. : menghasilkan elemen matriks hasil penjumlahan}
begin {
Program ini dibuat oleh
Bayu Wijaya Permana Putra
}
JumlahMatriks := A[i,j] + B[i,j];
end;//endfunction
procedure TampilMatriks(M,N : integer; A,B:Matriks);
{I.S. : banyaknya baris (M), banyaknya kolom (N) dan matriks hasil penjumlahan sudah terdefinisi}
{F.S. : menampilkan matriks hasil penjumlahan}
var {kamus lokal}
i,j : integer;
C : Matriks;
begin
gotoxy(12,13);write('Hasil Matriks A+B');
gotoxy(12,14);write('=================');
for i := 1 to M do
begin
for j := 1 to N do
begin
C[i,j] := JumlahMatriks(A,B,i,j);
{
Program ini dibuat oleh
Bayu Wijaya Permana Putra
} gotoxy(j*5+12,i+14);write(C[i,j]);
end;//endfor
end;//endfor
end;//endprocedure
{program utama}
begin
gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
IsiMatriks(M,N,A,B);
TampilMatriks(M,N,A,B);
readln;
end.
Alangkah lebih baik jika Anda tidak hanya copy paste source program ini saja, tetapi Anda coba membuat sendiri dari awal, jika menemukan kesulitan barulah Anda menanyakan (boleh bertanya pada saya) dan melihat contoh program.
Sekian pembahasan kita mengenai Program Penjumlahan Dua buah Matrik dengan Menggunakan Bahasa Pascal, semoga dapat bermanfaat !
Wassalamualaikum Warahmatullahi Wabarakatu
Assalamualaikum Warahmatullahi Wabarakatu
Alhamdulillah saya dapat kembali menyusun postingan yang Insya Allah bermanfaat.
Seperti pada judul diatas kita akan membuat program untuk menjumlahkan seluruh elemen matrik dengan menggunakan bahasa pemrogramman pascal dan aplikasinya adalah dev-pascal. Bagi Anda yang belum memiliki aplikasinya dapat Anda download secara gratis di Free Download Aplikasi Dev-Pascal dengan Penjelasan beserta Tipsnya.
Baik kita mulai membuat program. Let's go !
Untuk membuat sebuah matriks berordo M x N kita harus menyediakan maksimum baris dan maksimum kolom (buatlah konstanta).
Nah untuk matriksnya kita gunakan sebuah array [M, N] atau array[1..Maks_Baris, 1..Maks_Kolom]
Untuk lebih lengkapnya silahkan Anda lihat source proram dibawah ini :
program Jumlah_Total_Elemen_Matriks;
{I.S. : User memasukkan elemen matriks A berordo M x N (M=baris matriks, N=kolom matriks)}
{
*Program ini dibuat oleh Bayu Wijaya Permana Putra
}
{F.S. : Menampilkan jumlah total elemen matrik}
uses crt;
{kamus global} {
*Program ini dibuat oleh Bayu Wijaya Permana Putra
}
const
Maks_Baris = 10;
Maks_Kolom = 10;
type
matriks= array [1..Maks_Baris,1..Maks_Kolom] of integer;
var
A: matriks;
M,N : integer; {M: banyaknya baris, N: banyaknya kolom}
{====================Procedure isi Matriks====================}
Procedure Isi_Matriks(var M,N: integer; var A:matriks);
{I.S. : user memasukkan elemen matriks A berordo M x N}
{
*Program ini dibuat oleh Bayu Wijaya Permana Putra
}
{F.S. : Menghasilkan sebuah Matriks A berordo M x N}
{
*Program ini dibuat oleh Bayu Wijaya Permana Putra
}
var {kamus lokal}
i,j: integer;
begin
gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
gotoxy(1,1);write('Banyaknya Baris : ');readln(M);
gotoxy(1,2);write('Banyaknya Kolom : ');readln(N);
{Mengisi matriks}
clrscr;
gotoxy(1,1);write('Matriks A');
gotoxy(1,2);write('=========');
for i:= 1 to M do
begin
for j:= 1 to N do
begin
{
*Program ini dibuat oleh Bayu Wijaya Permana Putra
}
gotoxy(j*5-4,i+2);readln(A[i,j]);
end;//endfor
end;//endfor
end;//endprocedure
{===================Function TotalElemen===================}
function TotalElemen(M,N:integer; A:matriks) : integer;
{I.S. : Matriks A berordo M x N sudah terdefinisi}
{F.S. : Menghasilkan jumlah total elemen matriks A berordo M x N}
var {kamus lokal}
i,j : integer;
Total : integer;
begin
{inisialisasi (total mula-mula)}
Total := 0;
{penjumlahan}
for i:= 1 to M do
begin
for j:= 1 to N do
begin
Total := Total + A[i,j];
end;//endfor
end;//endfor
{
*Program ini dibuat oleh Bayu Wijaya Permana Putra
}
TotalElemen := Total;
end;//endprocedure
procedure Tampil_Total(M,N:integer; A:matriks);
{I.S. : jumlah total elemen matriks A berordo M x N sudah terdefinisi}
{F.S. : Menampilkan jumlah total elemen matriks A}
begin
gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
gotoxy(1,13);write('Jumlah total elemen matriks adalah ',TotalElemen(M,N,A));
end;//endprocedure
{Program Utama}
begin
{
*Program ini dibuat oleh Bayu Wijaya Permana Putra
}
Isi_Matriks(M,N,A); {memanggil procedure Isi_Matriks}
Tampil_Total(M,N,A); {memanggil procedure TampilTotal}
readln;
end.
Bagaimana mudah kan ?
Alangkah lebih baik jika Anda tidak hanya copy paste source program ini saja, tetapi Anda coba membuat sendiri dari awal, jika menemukan kesulitan barulah Anda menanyakan (boleh bertanya pada saya) dan melihat contoh program.
Demikian artikel tentang bagaimana membuat Program Penjumlahan Seluruh Elemen Sebuah Matrik dengan Menggunakan Bahasa Pascal. Semoga bermanfaat !!!
Keep learn and keep doing !!! Don't stop tying !
Wassalamualaikum Warahmatullahi Wabarakatu
 |
| Array VS Linked List |
Assalamualaikum Wr, Wb ..
Hallo sobat apa kabar ? Semoga Anda yang berkunjung ke BIG dalam keadaan sehat walafiat dan senantiasa dalam lindungan-Nya.
BIG kali ini akan berbagi informasi programming algoritma dalam Struktur Data yaitu tentang Rangkuman Perbedaan Array dengan Linked List. Oke langsung saja ke TKP >,<
