Tugas Kalkulus Lanjut
Matematika adalah Kehidupan
Matematika adalah bahasa dimana Tuhan menuliskan alam semesta #Galileo Galilei
MATHEMATICS EDUCATION FAIR (MEF) 2016
HIMMA (Himpunan Mahasiswa Matematika) FKIP UNSRI PROUDLY PRESENT : Ajang Bergengsi setiap tahunnya " MATHEMATICS EDUCATION FAIR 2016 "
GMT Palembang
Fenomena Alam Gerhana Matahari Total Terjadi di Kota Palembang, 09 Maret 2016 selama 2 menit
LOMBA CIPTA PUISI MATEMATIKA NASIONAL
LOMBA CIPTA PUISI MATEMATIKA MAHASISWA TINGKAT NASIONAL “Wujudkan Generasi Muda EKSIS (Edukatif, Kompetitif, Sportif, Intelek, Solid) " 9 Maret – 9 Mei 2016
Mahasiswa Pendidikan Matematika UNSRI 2014
Engkau tak dapat meraih ilmu kecuali dengan enam hal yaitu cerdas, selalu ingin tahu, tabah, punya bekal dalam menuntut ilmu, bimbingan dari guru dan dalam waktu yang lama. ( Ali bin Abi Thalib ) from :http://www.duniakata.com/2014/11/45-kata-mutiara-tentang-pentingnya-ilmu.html
Tampilkan postingan dengan label Kuliah. Tampilkan semua postingan
Tampilkan postingan dengan label Kuliah. Tampilkan semua postingan
Rabu, 02 Desember 2015
Senin, 04 Mei 2015
Fungsi Transenden
Ini adalah bagian dari mata kuliah Kalkulus Materi Kuliah tentang Fungsi Transenden.
Sumber : Fungsi Transenden
Integral Tak Wajar
Kawan, Materi Kalkulus tentang Integral Tak Wajar semoga bisa menambah pengetahuan kita, Materi terdiri dari Integral Tak Tentu dan Integral Tentu. Silahkan dipelajari ya slide dibawah ini. Xie-xie ~terimakasih
Sumber : Integral Tentu dan Tak tentu. Alfith.wordpress.com
Sumber : Integral Tentu dan Tak tentu. Alfith.wordpress.com
ppt materi Teknik Pengintegralan
PPT tentang Materi Teknik Pengintegralan yang saya ambil dari https://alfith.wordpress.com/category/materi-kuliah/ sangat bermanfaat.
Silahkan dipelajari :)
Elips
Geometri Analitik Datar tentang Elips
Apa kabar kawan ?? Mari kita belajar Geomertri Analitik Datar. Materi kali ini tentang Elips. Di bawah ini adalah slide tentang Elips. Semoga bermanfaat :)
Sumber : Materi Kuliah dari Dosen
Selasa, 21 April 2015
Media Konvensional
Cara Membuat Media Konvensional sederhana dengan judul Papan Pintar
Ini adalah hasil kreatif kami semester 2 , sebuah media konvensional sederhana, lest cheek it ..
Disini saya tambahkan PPT tentang Media yang telah saya buat
jika ingin men-Download PPT silahkan kunjungi Papan Pintar >Media Konvensional<
Lihat video Penggunaan Media Konvensional yang saya buat y Papan_Pintar_youtobe
Terimakasih :)
Senin, 30 Maret 2015
Pascal > Program Urut Data
Program Urut Data
Di bawah ini adalah coding untuk mengurutkan data pada program pascal, semoga bermanfaat :)
program Urut_data;
uses wincrt;
var
i,j,n:integer;
x: array[0..6] of integer;
begin
writeln('Program Urut Data');
write ('Masukkan Banyak Data '); readln (n);
for i:=1 to n do
begin
write ('Masukkan Data ke ',i,':'); readln (x[i]);
end;
for i:=1 to n-1 do
for j:=1 to n-1 do
begin
if x[j]>x[j+1] then
begin
x[0]:=x[j];
x[j]:=x[j+1];
x[j+1]:=x[0];
end;
end;
writeln('Data Setelah Diurut');
for i:=1 to n do
begin
writeln('Data ke ',i,':',x[i]);
end;
Pascal > Program Menu
Program
Menghitung_Luas_Bangun_Datar;
Uses
wincrt;
label
akhir,awal;
Var
menu:integer;
p,l,t,r,s,a,d1,d2,L1,L2,L3,L4,L5,L6:real;
YN:
char;
begin
begin
awal:
gotoxy(15,2); writeln(' == Program Menghitung
Luas Bangun Datar ==');
writeln;
writeln (' Menu-Menu ');
writeln;
writeln('1. Persegi');
writeln('2. Persegi Panjang');
writeln('3. Layang-layang');
writeln('4. Jajar Genjang');
writeln('5. Segitiga');
writeln('6. Lingkran');
writeln('0. Selesai');
writeln;
write('Pilih Menu No: '); read(menu);
end;
case menu of
1:begin
repeat
clrscr;
gotoxy(32,2); writeln('== Persegi
==');
writeln;
write('Masukkan Nilai Sisi Persegi=
'); readln(s);
L1:=s*s;
writeln('..............................');
writeln('Jadi Luas Persegi =
',L1:0:0,'cm2');
write('Coba lagi? (Y or N):');
readln (YN);
until (YN='N') or (YN= 'n');
clrscr;
goto awal
end;
2:begin
repeat
clrscr;
gotoxy(28,2); writeln('== Persegi
Panjang ==');
writeln;
write('-Masukkan Nilai p (panjang) =
');readln(p);
write('-Masukkan Nilai l (lebar) =
');readln(l);
L2:=p*l;
writeln('..............................');
writeln('Jadi Luas Persegi Panjang =
',L2:0:0,' cm2 ');
write('Coba lagi? (Y or N):');
readln (YN);
until (YN='N') or (YN='n');
clrscr;
goto awal
end;
3:begin
clrscr;
gotoxy(29,2); writeln('==
Layang-layang ==');
writeln;
write('-Masukkan Nilai d1 (diagonal
satu)= '); readln(d1);
write('-Masukkan Nilai d2 (diagonal
dua)= '); readln(d2);
L3:=1/2*d1*d2;
writeln('..............................');
writeln('Jadi Luas Layang-layang = ',L3:10:2,'
cm2 ');
write('Coba lagi? (Y or N):'); readln(YN);
readln;
clrscr;
goto awal
end;
4:begin
repeat
clrscr;
gotoxy(29,2); writeln('== Jajar
Genjang ==');
writeln;
write('-Masukkan Nilai a (alas) =
'); readln(a);
write('-Masukkan Nilai t (tinggi) =
'); readln(t);
L4:=a*t;
writeln('..............................');
writeln('Jadi Luas Jajar Genjang =
',L4:10:2,' cm2 ');
write('Coba lagi? (Y or N):');
readln (YN);
until (YN='N') or (YN='n');
clrscr;
goto awal
end;
5:begin
repeat
clrscr;
gotoxy(31,2); writeln('== Segitiga
==');
writeln;
write('-Masukkan Nilai a (alas) =
'); readln(a);
write('-Masukkan Nilai t (tinggi) =
'); readln(t);
L5:=1/2*a*t;
writeln('..............................');
writeln('Jadi Luas Segitiga =
',L5:10:2,' cm2 ');
write('Coba lagi? (Y or N):');
readln (YN);
until (YN='N') or (YN='n');
clrscr;
goto awal
end;
6:begin
repeat
clrscr;
gotoxy(31,2); writeln('== Lingkaran
==');
writeln;
write('-Masukkan Nilai r (jari-jari)
= '); readln(r);
L6:=pi*r*r;
writeln('..............................');
writeln('Jadi Luas Lingkaran =
',L6:10:2,' cm2 ');
write('Coba lagi? (Y or N):');
readln (YN);
until (YN='N') or (YN='n');
clrscr;
goto awal
end;
0:begin
clrscr;
goto akhir
end;
end;
akhir:
end.
|
coding diatas adalah contoh
bagaimana cara untuk membuat program menu menggunakan pascal dengan materi
''menghitung luas bangun datar''.
Semoga Bermanfaat ^-^
|
Kamis, 24 April 2014
Pascal > Program Mencari Nilai Modus
Program Pascal
coding dibawah ini adalah cara untuk mencari nilai modus . Semoga bermanfaat :)
program nilai_modus;
uses wincrt;
var n,i,j: integer;
ftinggi: real;
fx: array[1..100]of integer;
modus,x: array[1..100]of real;
begin
clrscr;
write ('masukan banyak data: '); readln (n);
for i:=1 to n do
begin
write ('data ke-',i,' : '); readln(x[i]);
fx[i]:=1;
end;
for i:=1 to n-1do
for j:=i+1 to n do
if x[i]=x[j] then fx[i]:=fx[i]+1;
ftinggi:=1;
for i:=1 to n do
if fx[i]>ftinggi then ftinggi:=fx[i];
writeln;
writeln ('Frekuensi tertinggi adalah: ',ftinggi:0:0);
writeln;
j:=0;
for i:=1 to n do
if fx[i]=ftinggi then
begin
j:= j+1;
modus[j]:=x[i];
end;
writeln;
if j=n then
writeln('Tidak ada Modus')
else
if ftinggi=n div j then
writeln('Tidak ada Modus')
else
begin
writeln ('Banyak modusnya ',j,' buah, yaitu: ');
for i:=1 to j do
writeln (modus[i]:0:0);
end;
end.
uses wincrt;
var n,i,j: integer;
ftinggi: real;
fx: array[1..100]of integer;
modus,x: array[1..100]of real;
begin
clrscr;
write ('masukan banyak data: '); readln (n);
for i:=1 to n do
begin
write ('data ke-',i,' : '); readln(x[i]);
fx[i]:=1;
end;
for i:=1 to n-1do
for j:=i+1 to n do
if x[i]=x[j] then fx[i]:=fx[i]+1;
ftinggi:=1;
for i:=1 to n do
if fx[i]>ftinggi then ftinggi:=fx[i];
writeln;
writeln ('Frekuensi tertinggi adalah: ',ftinggi:0:0);
writeln;
j:=0;
for i:=1 to n do
if fx[i]=ftinggi then
begin
j:= j+1;
modus[j]:=x[i];
end;
writeln;
if j=n then
writeln('Tidak ada Modus')
else
if ftinggi=n div j then
writeln('Tidak ada Modus')
else
begin
writeln ('Banyak modusnya ',j,' buah, yaitu: ');
for i:=1 to j do
writeln (modus[i]:0:0);
end;
end.
