Program cetak Bilangan Prima (Pascal)

Berikut ini adalah tampilan program yang mencetak semua bilangan prima yang < 1000

Untuk dowload program dan source codenya, silahkan gunakan link dibawah ini:

• dropbox
• mediafire
• dropbox (mirror)
• mediafire (mirror)

Wallpaper Matematika

Buat yang lagi cari wallpaper matematika,, berikut ada contoh dan link downloadnya.

Download:
mediafire

Program Pecahan Uang

program pu;

var
i,n,x: integer;
k : array [1..10] of integer;

begin
write('Masukkan banyak uang yang anda punya : ');readln(n);

k[1]:=1000;
k[2]:=500;
k[3]:=200;
k[4]:=100;
k[5]:=50;
k[6]:=20;
k[7]:=10;
k[8]:=5;
k[9]:=2;
k[10]:=1;

for i:= 1 to 10 do
 begin
   if n >= k[i] then
    begin
      x:= n div k[i];
      n:= n mod k[i];
      writeln(k[i],' ',x);
    end;
 end;
readln;
end.

Program Bintang

program bintang;

var
b,i,j,n,m: integer;
label l;
begin
write('Masukkan sebuah bilangan ganjil : ');readln(n);
if (n mod 2) = 0 then goto l;
i:=1;
m:=n;
while i < n+2 do
 begin
  if m>0 then
  write(' ':m);
  if i mod 2 <> 0 then
   begin
    for j:= 1 to i do
     begin
      write('*');
     end;
    if m > 0 then
   if m > 0 then
   m:= m-1
   else m:= 0;
   end;
   i:= i+1;
  
   writeln;
 end;
 l:
readln;
end.

Program Akar Kuadrat

program drill_32;
uses crt;
var
a,b,c,d,x1,x2 : real;
begin
clrscr;
writeln('Program ini untuk menghitung akar kuadrat dari persamaan ax^2+bx+c = 0');
writeln('Baik imaginer maupun real.');
writeln;
write('Masukkan nilai a : ');readln(a);
write('Masukkan nilai b : ');readln(b);
write('Masukkan nilai c : ');readln(c);
d:= sqr(b)-4*a*c;
if d >= 0 then
begin
x1:= (-b - sqrt(d))/2*a;
x2:= (-b + sqrt(d))/2*a;
writeln;
writeln('Akar dari persamaan ',a:0:2,'x^2 + ',b:0:2,'x + ',c:0:2,' = 0 adalah real.');
writeln('X1 = ',x1:0:2);
writeln('X2 = ',x2:0:2);
end;
if d < 0 then
begin
writeln('Akar dari persamaan ',a:0:2,'x^2 + ',b:0:2,'x + ',c:0:2,' = 0 adalah Imaginer.');
writeln('X1 = (',-b:0:2,' - sqrt(',d:0:2,'))/',2*a:0:2,')');
writeln('X2 = (',-b:0:2,' + sqrt(',d:0:2,'))/',2*a:0:2,')');
writeln;
writeln;
writeln('By : Sylvert');
end;
readkey;
end.

Bilangan Pangkat n

program pangkat_n;
uses crt;
var
bildasar,pangkat,bilawal,bilakhir : integer;
begin
clrscr;
writeln('Program Pangkat');
writeln;
write('Masukkan sebuah bilangan : ');readln(bildasar);
write('Masukkan pangkat awal    : ');readln(bilawal);
write('Masukkan pangkat akhir   : ');readln(bilakhir);
writeln;
writeln;
writeln('Pangkat       Kelipatan ',bildasar);
writeln;
for pangkat := bilawal to bilakhir do
 begin
  write(pangkat:4);
  writeln(exp(ln(bildasar)*pangkat):20:0);
 end;
writeln;
writeln('Created by : Unknown');
write('Modified by : Sylvert Tahalea');
readkey;
end.

PROGRAM HITUNG LUAS

program hitung_luas;
uses crt;
var
n: byte;
luas,p,l,t : real;
begin
clrscr;
writeln(' ============================');
writeln('|                            |');
writeln('|   PROGRAM MENGHITUNG LUAS  |');
writeln('|    1. PERSEGI PANJANG      |');
writeln('|    2. SEGITIGA             |');
writeln('|    3. LINGKARAN            |');
writeln('|    4. TRAPESIUM            |');
writeln('|    5. SELESAI              |');
writeln('|                            |');
writeln(' ============================');
writeln;
write('Masukkan pilihan anda : ');readln(n);
 case n of
 1: begin
    clrscr;
    writeln('Menghitung Luas Persegi Panjang');
    write('Masukkan panjang : ');readln(p);
    write('Masukkan lebar   : ');readln(l);
    luas := p*l;
    writeln('Luas persegi panjang adalah : ',luas:0:2);
    readkey;
    end;
 2: begin
    clrscr;
    writeln('Menghitung Luas Segitiga');
    write('Masukkkan tinggi : ');readln(t);
    write('Masukkan alas    : ');readln(p);
    luas:= (1/2)*p*t;
    writeln('Luas segitiga adalah : ',luas:0:2);
    readkey;
    end;
 3: begin
    clrscr;
    writeln('Menghitung Luas Lingkaran');
    write('Masukkan jari-jari : ');readln(p);
    luas:=pi*sqr(p);
    writeln('Luas lingkaran adalah : ',luas:0:2);
    readkey;
    end;
 4: begin
    clrscr;
    writeln('Menghitung Luas Trapesium');
    write('Masukkan besar sisi A : ');readln(p);
    write('Masukkan besar sisi B : ');readln(l);
    write('Masukkan tinggi       : ');readln(t);
    luas:= (p+l)*(1/2)*t;
    writeln('Luas trapesium adalah : ',luas:0:2);
    readkey;
    end;
 5: halt;
 else writeln('Pilihan anda tidak ada.');readkey;
 end;
end.

PERBEDAAN STATISTIK DAN STATISTIKA

Statistika adalah ilmu yang mempelajari bagaimana merencanakan, mengumpulkan, menganalisis, menginterpretasi, dan mempresentasikan data. Singkatnya, statistika adalah ilmu yang berkenaan dengan data. Istilah 'statistika' (bahasa Inggris: statistics) berbeda dengan 'statistik' (statistic). Statistika merupakan ilmu yang berkenaan dengan data, sedang statistik adalah data, informasi, atau hasil penerapan algoritma statistika pada suatu data. Dari kumpulan data, statistika dapat digunakan untuk menyimpulkan atau mendeskripsikan data; ini dinamakan statistika deskriptif. Sebagian besar konsep dasar statistika mengasumsikan teori probabilitas. Beberapa istilah statistika antara lain: populasi, sampel, unit sampel, dan probabilitas.

PERBEDAAN MATEMATIKA DAN KALKULUS

Kata "matematika" berasal dari bahasa Yunani Kuno μάθημα (máthēma), yang berarti pengkajian, pembelajaran, ilmu, yang ruang lingkupnya menyempit, dan arti teknisnya menjadi "pengkajian matematika", bahkan demikian juga pada zaman kuno. Kata sifatnya adalah μαθηματικός (mathēmatikós), berkaitan dengan pengkajian, atau tekun belajar, yang lebih jauhnya berarti matematis. Secara khusus, μαθηματικὴ τέχνη (mathēmatikḗ tékhnē), di dalam bahasa Latin ars mathematica, berarti seni matematika.

Bentuk jamak sering dipakai di dalam bahasa Inggris, seperti juga di dalam bahasa Perancis les mathématiques (dan jarang digunakan sebagai turunan bentuk tunggal la mathématique), merujuk pada bentuk jamak bahasa Latin yang cenderung netral mathematica (Cicero), berdasarkan bentuk jamak bahasa Yunani τα μαθηματικά (ta mathēmatiká), yang dipakai Aristotle, yang terjemahan kasarnya berarti "segala hal yang matematis".[9] Tetapi, di dalam bahasa Inggris, kata benda mathematics mengambil bentuk tunggal bila dipakai sebagai kata kerja. Di dalam ragam percakapan, matematika kerap kali disingkat sebagai math di Amerika Utara dan maths di tempat lain.

Kalkulus (Bahasa Latin: calculus, artinya "batu kecil", untuk menghitung) adalah cabang ilmu matematika yang mencakup limit, turunan, integral, dan deret takterhingga. Kalkulus adalah ilmu mengenai perubahan, sebagaimana geometri adalah ilmu mengenai bentuk dan aljabar adalah ilmu mengenai pengerjaan untuk memecahkan persamaan serta aplikasinya. Kalkulus memiliki aplikasi yang luas dalam bidang-bidang sains, ekonomi, dan teknik; serta dapat memecahkan berbagai masalah yang tidak dapat dipecahkan dengan aljabar elementer.

Dari penjelasan diatas, dapat disimpulkan bahwa Kalkulus merupakan bagian dari Matematika.