Setelah menyelesaikan mata kuliah Algoritma dan Pemrograman 2 pada semester 3 ini, i got new listen and i want to share to you all . check it out .
Download
Silahkan di lihat dan di download yaaa, semoga bermanfaat. Dan untuk melihat serta mempelajari, atau ada yang mau mencoba membuat program tersebut,,, silahkan download Disini
halooo lagi ( ^,^)/
Assalamualaikum, sekarang saya akan membagi-bagikan ilmu yang saya dapat dari perkuliahan Algoritma dan Pemrograman 2. Penulisan kali ini, saya akan memberitahukan bagaimana cara membuat program latihan soal pilihan ganda atau kuis menggunakan PowerPoint dan juga Program VBA ( Visual Basic ).Check this out Program ini bisa menjadi salah satu media pembelajaran dikelas, untuk kali ini karna saya kuliah di Pendidikan Matematika, maka yang akan saya bagikan adalah contoh program soal pilihan ganda Matematika SMA. Semoga bermanfaat yaaa, silahkan download tutorialnya disini .
Wassalamualaikum \(^o^ )
Semoga bermanfaat :)
Program Utama;
uses wincrt;
var pilih:string;
a,b,c : array
[1..50,1..50] of integer;
i,j,k,n,m,p,o,l :
integer;
ulang:char;
procedure Penjumlahan_Matrik;
begin
repeat
clrscr;
writeln('Ukuran
Matrik A');
write('Baris :
');readln(n);
write('Kolom :
');readln(m);
writeln;
writeln;
writeln('Ukuran
Matrik B');
write('Baris :
');readln(o);
write('kolom :
');readln(p);
writeln;
if ((o and p) =
(n and m)) then
begin
for i:=1 to n do
for j:=1 to m do
begin
write('Elemen A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to o do
for j:=1 to p do
begin
write('Elemen B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to p do
for k:=1 to m do
for l:=1 to o do
c[i,j] :=
a[i,j]+b[i,j];
writeln;
writeln;
writeln('Hasil
Penjumlahan MatrikA dengan MatrikB adalah : ');
writeln;
for i:=1 to n do
begin
for j:=1 to
p do
write(c[i,j],' ');
writeln;
end;
end
else
writeln('Matrik
Tidak Bisa Dihitung');
writeln;
write('try again
[Y/N]');ulang:=upcase(readkey);
until ulang
<> 'Y';
end;
procedure Pengurangan_Matrik;
begin
repeat
clrscr;
writeln('Ukuran
Matrik A');
write('Baris :
');readln(n);
write('Kolom :
');readln(m);
writeln;
writeln;
writeln('Ukuran
Matrik B');
write('Baris :
');readln(o);
write('Kolom :
');readln(p);
writeln;
if ((o and p) =
(n and m)) then
begin
for i:=1 to n do
for j:=1 to m do
begin
write('Elemen A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to o do
for j:=1 to p do
begin
write('Elemen B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to p do
for k:=1 to m do
for l:=1 to o do
c[i,j] :=
a[i,j]-b[i,j];
writeln;
writeln;
writeln('Hasil
Pengurangan MatrikA dengan MatrikB adalah : ');
writeln;
for i:=1 to n do
begin
for j:=1 to
p do
write(c[i,j],' ');
writeln;
end;
end
else
writeln('Matrik
Tidak Bisa Dihitung');
writeln;
write('try again
[Y/N]');ulang:=upcase(readkey);
until ulang
<> 'Y';
end;
begin
repeat
clrscr;
gotoXY(30,2);write(' MENU
UTAMA ');
gotoXY(3,4);write'==========================');
gotoXY(3,6);write('1.Penjumlahan Matrik');
gotoXY(3,8);write('2.Pengurangan Matrik');
gotoXY(3,10);write('3.EXIT');
gotoXY(3,12);write('==========================');
gotoXY(38,17);write('Created
By : Husna Nur Dinni');
gotoXY(51,18);write('06111408015');
gotoXY(51,19);write('Pendidikan Matematika 2011');
gotoXY(51,20);write('FKIP UNSRI Kampus Palembang');
gotoXY(3,14);write('PILIHAN ANDA:');readln(pilih);
clrscr;
if pilih='1' then
Penjumlahan_Matrik;
if pilih='2' then
Pengurangan_Matrik;
until pilih='3';
gotoXY(20,10);write('Terima Kasih Telah Menggunakan Program Husna');
end.
0 komentar:
Posting Komentar