http://www.mathzone.web.id/2012/05/peta-konsep-himpunan.html
akhukum fillah arif zainurroh...
Sistem Bilangan
http://indokamathedu.files.wordpress.com/2011/11/untitled.jpg
akhukum fillah arif zainurroh...
Seseorang Yang Tak Akan Tergantikan
Luka itu terasa lagi. Tiap malam aku selalu berharap langit terbelah dan kamu turun dari surga dan bilang kalau kamu hanya bercanda. Aku tak bisa melupakan kejadian hari itu. Aku ingat bagaimana senyum lebarmu tiba-tiba langsung berganti jadi kesakitan. Semuanya dirampas dariku dalam hitungan detik. Aku tak bisa, aku benar-benar tak bisa melupakanmu. Aku rindu
sekali padanyamu. Kamu sangat sehat hari itu, sangat sehat, semuanya...
Novel Bagus
BELENGGU CINTA SUAMIKU (Versi Novel)
http://dedismas.blogspot.com/2012/01/belenggu-cinta-suamku.html
akhukum fillah arif zainurroh...
Unit & Program Utama Menghitung Luas Bangun
arif zainurrohman
Kota Pempek , 5 Mei 2012
akhukum fillah arif zainurroh...
Unit & Program Utama Jarak Hari Dari 1-1-1900
arif zainurrohman
Kota Pempek , 5 Mei 2012
akhukum fillah arif zainurroh...
Unit & Program Utama Rata - Rata Input 9999 Berhenti
arif zainurrohman
Kota Pempek , 5 Mei 2012
akhukum fillah arif zainurroh...
selisih waktu
arif zainurrohman
Program arif_Menghitung_Selisih_Waktu;
Uses WinCrt;
Var j,m,d,h,j1,m1,d1,h1,hj,hm,sl,sisa,sisa1:longint;
Begin
Writeln('Program Menghitung Selisih Waktu');
Writeln('================================');
Writeln;
Write('Waktu ke-1 jam : ');readln(j);
Write('Waktu ke-1 Menit : ');readln(m);
Write('Waktu ke-1 Detik : ');readln(d);
Writeln('================================');
Write('Waktu ke-2 jam : ');readln(j1);
Write('Waktu...
procedure jumlah dan rata - rata deret bilangan genap
arif zainurrohman
program arifprosedurderetjumlahdanratagenap;
uses wincrt;
var
y,angka,x,hasil,jum:integer;
procedure jumlah;
begin
jum:=0;
y:=2;
for x := 1 to angka do
begin
write(y,' ');
y:=y+2 ;
jum:=jum+angka;
end;
end;
procedure...
Jumlah dan rata - rata deret bilangan genap
arif zainurrohman
program arif_jumlah_rata_deret;
uses wincrt;
var
y,angka, x, hasil,jum : integer;
begin
write ('Masukan banyaknya bilangan dalam deret yang akan dihitung : '); readln (angka);
writeln ('deret genap :');
hasil:=0;
y:=2;
for x := 1 to angka do
begin
...
ERROR MESSAGE DI PASCAL
1. Out Of Memory
Memory tak cukup untuk melakukan proses (misalnya
mengkomplikasi) kalau sedang berada dalam IDE dianjurkan mengkomplikasi program
ke disk.
2. Identifier Expected
Pengenal (variable) diperlukan pada posisi yang ditunjukkan
kemungkinan disebabkan yang dipakai adalah reserved word (kata tercadang).
3. Unknow Identifier
Pengenal belum dideklarasikan.
4. Duplikate Identifier
Ada pengenal dengan nama yang...
Permutasi Kombinasi
arif zainurrohman
Program arifpermutkombin;
uses wincrt;
var
a,b,a_k,Kombin,Permut:real;
i,n,k:integer;
begin
writeln('Menghitung Kombinasi dan Permutasi');
write('Masukkan bilangan kombinasi : ');readln(n);
write('masukkan bilangan permutasi : ');readln(k);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to k do
b:=b*i;
for i:=2 to (n-k)do
a_k:=a_k*i;
Kombin:=a/(b*a_k);
Permut:=a/(a_k);
writeln(n, ' Kombinasi ',k,' :...
pemberitahuan
Setelah Samsung, kini giliran Sony Ericsson yang
mengumumkan jadwal update Ice Cream Sandwich untuk
jajaran smartphone Xperia yang dirilis tahun 2011. Melalui blog
resminya, Sony Ericcson memberikan jadwal upgrade Ice
Cream Sandwich dalam dua tahap.
Tahap pertama akan dilakukan pada akhir Maret atau awalApril2012 untuk Type Smartphone berikut ini• Xperia Arc S• Xperia Neo V• Xperia RayUntuk tahap selanjutnya akan dilaksaakan pada...
program sederhana caseofelse & repeat
arif zainurrohman
program caseofrepeat;
uses wincrt;
const
sete = 1/2;
phi = 3.14;
var
pil:byte;
a,t,p,l,r,luas:real;
lagi:char;
begin
repeat
clrscr;
writeln('pilihan');
writeln('1.Menghitung luas segitiga');
writeln('2.Menghitung luas persegi panjang');
writeln('3.Menghitung luas lingkaran');
writeln('pilih (1/2/3) ?');readln(pil);
clrscr;
case pil of
1:begin
write('panjang alas : ');readln(a);
write('tinggi ...
program menentukan bulan
muhammad patria
program bulbul;
uses wincrt;
var
i:integer;
begin
write ('masukkan nomor bulan : ');readln(i);
if ( i mod 12 = 12)then
write('desember')
else if ( i mod 12 = 11) then
write ('november')
else if ( i mod 12 = 10) then
write ('oktober')
else if ( i mod 12 = 9) then
write ('september')
else if ( i mod 12 = 8) then
write ('agustus')
else if ( i mod 12 = 7) then
write ('juli')
else if ( i mod 12 = 6) then
write ('juni')
else...
Data mahasiswa repeat until
arif zainurrohman
program rataasli;
uses wincrt;
type
mhs = record
nim : longint;
Nama : string[40];
nilai : array[1..144] of real;
end;
var
univs : array[1..10] of mhs;
i,j,n : longint;
juml : longint;
total,rata : real;
lagi:char;
Begin
repeat
clrscr;
write('Jumlah data yang dientri : ');readln(juml);
{entri data}
Writeln('Pengisiam data mahasiswa');
for i:=1 to juml do
begin
with univs[i] do
begin
write('Isikan NIM : ');readln(NIM);
write('Isikan...
Data mahasiswa
arif zainurrohman
program rataasli;
uses wincrt;
type
mhs = record
nim : longint;
Nama : string[40];
nilai : array[1..144] of real;
end;
var
univs : array[1..10] of mhs;
i,j,n : longint;
juml : longint;
total,rata : real;
Begin
clrscr;
write('Jumlah data yang dientri : ');readln(juml);
{entri data}
Writeln('Pengisiam data mahasiswa');
for i:=1 to juml do
begin
with univs[i] do
begin
write('Isikan NIM : ');readln(NIM);
write('Isikan...
Data mahasiswa dengan for..to..do & if bersarang & repeat until
arif zainurrohman
program arifmahasiswa;
uses wincrt;
var
i,n,nima,b:integer;
nama,u:string;
begin
repeat
write ('masukkan jumlah mahasiswa : ');readln(n);
for i:=1 to n do
begin
write(i,' nama mahasiswa : ');readln(nama);
write(' nim mahasiswa : ');readln(nima);
write(' nilai mahasiswa : ');readln(b);
if b > 21 then
begin
if (b>21) and (b<=40) then begin...
Nilai rata-rata dan jumlah (for..to..do)
oleh arif zainurrohman
program arifjum;
uses wincrt;
var
i,n,angka,jum:integer;
rata:real;
begin
jum:=0;
write ('berapa banyak pengulangan akan dilakukan ? ');readln(n);
for i:=1 to n do
begin
write ('masukkan angka ',i,' :');readln(angka);
jum:=jum+angka;
rata:=jum/n
end;
writeln('jumlah angka :',jum);
writeln('rata - rata :',rata);
end.
Kota...
Contoh sederhana program for..to..do
arif zainurrohman
program arifbykangka;
uses wincrt;
var
i,n:integer;
begin
write ('masukkan banyak angka : ');readln(n);
i:=1;
while (i<=n) do
begin
writeln(i);
i:=i+1;
end;
end.
Kota Pempek , 22 Maret 2012
akhukum fillah arif zainurrohman...
Urutan bilangan genap
arif zainurrohman
program ulanggenap;
uses wincrt;
var
i,j:integer;
begin
for i:= 1 to 10 do
begin
if (i mod 2 = 0) then for j:=1 to (i div 2) do
begin
write (j*2);
if (j mod 2 = 0) then write('');
end;
writeln;
end;
end.
Kota Pempek , 22 Maret 2012
akhukum fillah arif zainurroh...
Beberapa contoh program python
Pemberian pak dedy
Program_1
1 import math
2 def time1(dist,v,n):
3 x=0 # Initialize the position.
4 dx = dist/n ...
Langganan:
Postingan (Atom)