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 ...
Negara yang mengakui kemerdekaan Indonesia
:
Secara
de facto:
1. Argentina 40.Yugoslavia
2. Australia 41.Malaysia
3....
Melihat informasi system pada windows xp
Untuk menampilkan informasi system pada Windows XP, Anda dapat mengetikkan
pada MS DOS Prompt:
systeminfo
Setelah Anda menekan enter maka akan muncul informasi seperti yang terlihat
pada gambar di bawah ini:
Kota Pempek , 18 Maret 2012
akhukum fillah arif zainurrohm...
Beberapa IP command
Di bawah ini adalah perintah-perintah yang berhubungan dengan jaringan.
Untuk melakukan perintah-perintah tersebut Anda harus masuk ke MS DOS Prompt.
ipconfig /all
Menampilkan informasi konfigurasi koneksi, misalnya Host Name, Primary DNS
Type, Ethernet Adapter LAN.
ipconfig /displaydns
Menampilkan DNS Cache.
ipconfig /flushdns
Menghapus DNS Cache
ipconfig /release
“Menghapus” semua koneksi IP Address.
ipconfig /renew
Membuat...
PDF2word
dari Pak khrisna
merubah atau mengkonversi file pdf ke dalam bentuk file word. Disertai dengan fitur - fitur menarik dari aplikasi ini.
Rar pass: www.softarchive.net
http://www.ziddu.com/download/18898992/pdf2word3.rar.html
akhukum fillah arif zainurroh...
KONFIGURASI ROUTER CISCO
oleh oleh dari pak iwan sewaktu PRAKERIN ^_^
Konfigurasi awal.
Memberi
nama Router
Router > enable
Router# conf t
Router(config)# hostname Nama
Router
Memberi
password Enable /Secret
Router(config)# enable password
passwordnya
Router(config)# enable secret passwordnya
Memberi
password console
Router(config)# line console 0
Router(config-line)# login
Router(config-line)#password...
Langganan:
Postingan (Atom)