MEMBUAT PROGRAM MENGHITUNG BALOK,KUBUS,KERUCUT,BOLA,TABUNG,SEGI EMPAT

uses wincrt;
var
a,p,l,t:integer;
volume,luas,kel:longint;
b:0..1;
volume1,luas1,s,kel1:real;
pil:1..8;
const
phi=22/7;
label
lagi;

begin
lagi:
clrscr;
writeln(' MENU UTAMA');
writeln('=======================================');
writeln('# 1. Perhitungan Balok #');
writeln('# 2. Perhitungan Kubus #');
writeln('# 3. Perhitungan Limas Segi Empat #');
writeln('# 4. Perhitungan Kerucut #');
writeln('# 5. Perhitungan Bola #');
writeln('# 6. Perhitungan Tabung #');
writeln('# 7. Menentukan Bilangan Prima #');
writeln('# 8. Selesai #');
writeln('=======================================');
write('Masukkan Pilihan Anda ==>> ');readln(pil);
writeln('=======================================');writeln;

case pil of
1:
begin
writeln(' PERHITUNGAN BALOK');writeln;
write('Masukkan Panjang ==>> ');readln(p);
write('Masukkan Lebar ==>> ');readln(l);
write('Masukkan Tinggi ==>> ');readln(t);

volume:=p*l*t;
luas:=2*(p*l)+2*(p*t)+2*(l*t);
kel:=(4*p)+(4*l)+(4*t);

writeln('Volome ==>> ',volume);
writeln('Luas ==>> ',luas);
writeln('Keliling ==>> ',kel);

end;

2:
begin
writeln(' PERHITUNGAN KUBUS');writeln;
write('Masukkan Sisi ==>> ');readln(p);

Volume:=p*p*p;
Luas:=6*(p*p);
Kel:=12*p;

writeln('Volume ==>> ',volume);
writeln('Luas ==>> ',luas);
writeln('Keliling ==>> ',kel);
end;
3:
begin
writeln(' PERHITUNGAN LIMAS SEGI EMPAT');writeln;
write('Masukkan Panjang ==>> ');readln(p);
write('Masukkan Lebar ==>> ');readln(l);
write('Masukkan Tinggi ==>> ');readln(t);

volume1:=(p*l*t)*1/3;

writeln('Volume ==>> ',volume1:6:2);
end;
4:
begin
writeln(' PERHITUNGAN KERUCUT');writeln;
write('Masukkan Jari Jari ==>> ');readln(p);
write('Masukkan Tinggi ==>> ');readln(t);

volume1:=phi*p*p*t*1/3;

writeln('Volume ==>> ',volume1:6:2);
end;
5:
begin
Writeln(' PERHITUNGAN BOLA');writeln;
write('Masukkan Jari Jari ==>> ');readln(p);
write('Masukkan Tinggi ==>> ');readln(t);

volume1:=4/3*phi*p*t*t*t;
luas1:=4*phi*p*p;

writeln('Volume ==>> ',volume1:6:2);
writeln('Luas ==>> ',luas1:6:2);
end;
6:
begin
Writeln(' PERHITUNGAN TABUNG');writeln;
write('Masukkan Jari Jari ==>> ');readln(p);
write('Masukkan Tinggi ==>> ');readln(t);

volume1:=phi*p*p*t;
luas1:=phi*p*2*t*p;
kel1:=(p+p)*phi*t;
writeln('Volume ==>> ',volume1:6:2);
writeln('Luas ==>> ',luas1:6:2);
writeln('Keliling ==>> ',kel1:6:2);

end;
7:
begin
Writeln(' MENENTUKAN BILANGAN PRIMA');writeln;
write('Masukkan Sembarang Bilangan ==>> ');readln(p);

l:=round(sqrt(p))+1;
b:=1;
if (p=2 ) or (p=3) then b:=1
else
for t:= 2 to l do
if p mod t = 0 then
b:=0;
if b=1 then
writeln('Bilangan Prima')
else
writeln('Bukan Bilangan Prima');

end;
8:
begin
writeln('Program Selesai. . . .');
halt;
end;
end;
readln;
goto lagi;
end.

nah jadinya seperti ini




Share:

APLIKASI SOFTWARE PENGUBAH FORMAT VIDEO

Untuk melakukan konversi file flv ke format video lain, bisa lihat prosedur berikut:

1. Buka (aktifkan) aplikasi Free Flash Flv Video Converter
2. Setelah tampilan berikut muncul, Klik tombol Add
3. Pilih file video flash yang akan anda konversi
POKOKNYA GAMPANG DAH..........
MW DOWNLOAD
nie jg

Share:

MEMBUAT PROGRAM ARRAY DALAM RECORD

uses wincrt ;

type tb_mhs=record
nim : longint ;
nama : string ;
nilai: integer;
end;

var
mhs:array [1..10] of tb_mhs;
a,b,ke: integer;
tuker:tb_mhs;
pilih: char;
posisi : array [1..10] of integer;

begin
pilih :='y';
while ((pilih ='y')or (pilih='y'))do
begin
ke := ke + 1;
writeln;
writeln('masukkan data mahasiswa ke ',ke,':');
writeln('===================================');
write('masukan nim : '); readln (mhs[ke].nim);
write('masukan nama : '); readln (mhs[ke].nama);
write('masukan nilai : '); readln (mhs[ke].nilai);
writeln('===================================');
write('ingin tambah mahasiswa ? y/t:') ; readln (pilih);
end;

for a:=1 to ke do
begin
for b:=a+1 to ke do
begin
if mhs [a].nilai tukar:=mhs[a];
mhs[a]:=mhs[b];
mhs[b]:=tuker;
end;

clrscr;
for a:=1 to ke do
begin
writeln;
writeln(' TABEL MAHASISWA ');
writeln('--------------------------------');
writeln('NO | NIm | Nama | nilai | ');
writeln('=============================');

for a:=1 to ke do
writeln(a:4,'|',mhs[a].nim:7,'|',mhs[a].nama:8,'|',mhs[a].nilai:8,'|',);
writeln('----------------------------');
end;
end;
end.


referensi
http://www.facebook.com/pages/School-Distortion/168387393217020
Share:

CARA KERJA MIKROPROSESOR MENGATUR PROSES BANYAK APLIKASI

Pengaturan suatu aplikasi di dalam mikroprosesor adalah dengan bantuan komponen di dalamnya sendiri.
Mikroprosesor dapat bekerja mengatur banyak aplikasi dengan sbb.
.1.CENTRAL PROCESSING UNIT(CPU)
CPU merupakan tempat pemerosesan instruksi-instruksi program.pada mikrokomputer,prosesor ini disebut mikroprosesor.
CPU terdiri dari dua bagian utama,yaitu unit kendali(control unit)dan unit aritmatika dan logika (arithmetic and logic unit).di samping itu ada juga beberapa simpangan yang berukuran kecilyang disebut dengan register.
2. CONTROL UNIT
Tugas control unit adalah :
1. mengatur dan mengendalikan alat-alat input dan output
2. Mengatur Instruksi-instruksi dari main memory.
3. Mengmbil data dari main memory kalau di perlukan oleh proses.dll
3.ARITHMETIC AND LOGIC UNIT (ALU)
4. REGISTER
5. ARRAY PROCESSOR
6. MAIN MEMORY
Dst

JANGAN LUPA DI COMENT YA BOS... HEHE
Share:

BEDANYA MIKPROSESOR DENGAN CPU

Unit pemrosesan pusat atau CPU Istilah dikembangkan lama sebagai istilah yang digunakan untuk mengidentifikasi bagian dari mesin yang melakukan proses yang sebenarnya. This term was coined long before the presence of microprocessors and integrated circuits. Istilah ini diciptakan jauh sebelum kehadiran mikroprosesor dan sirkuit terpadu. As technology developed from one form to another, the CPU started to shrink in size. Sebagai teknologi yang dikembangkan dari satu bentuk ke bentuk lainnya, CPU mulai mengecilkan ukuran. Older CPUs consisted of large vacuum tubes wired together that took up huge spaces, then the appearance of discrete transistors reduced the size of the CPU. Lama CPU terdiri dari tabung vakum besar kabel bersama yang mengambil ruang yang besar, maka munculnya transistor diskrit mengurangi ukuran CPU. The CPU was further miniaturized with the advent of integrated circuits and microprocessor. CPU selanjutnya miniatur dengan munculnya sirkuit terpadu dan mikroprosesor. The once extremely large and cumbersome CPU was reduced to a very minute piece of silicon with all the connections etched into it already. CPU sekali sangat besar dan rumit berkurang menjadi bagian yang sangat menit dari silikon dengan semua sambungan terukir sudah.
A microprocessor is a very advanced integrated circuit that houses millions of transistor within a single package. mikroprosesor adalah sebuah sirkuit terintegrasi yang sangat canggih yang rumah-rumah jutaan transistor dalam satu paket. Along with the transistors within is the circuitry that allows the microprocessor to function and requires little else. Seiring dengan transistor dalam adalah sirkuit yang memungkinkan mikroprosesor berfungsi dan memerlukan sedikit lain. The microprocessor was so advanced that it immediately wiped out any other forms of computing. mikroprosesor itu begitu canggih yang segera menghapuskan segala bentuk lain dari komputasi. It has managed to contain the CPU, at first in a couple of microprocessors, then finally into a single microprocessor. Ini telah berhasil berisi CPU, pada awalnya di beberapa mikroprosesor, lalu akhirnya menjadi sebuah mikroprosesor tunggal. It has managed to include a few components along the way like a little bit of memory that we now call as the cache. Ini telah berhasil untuk memasukkan beberapa komponen di sepanjang jalan seperti sedikit memori yang sekarang kita sebut sebagai cache.
It is then understandable why the microprocessor and CPU have become interchangeable. Hal ini kemudian dipahami mengapa mikroprosesor dan CPU menjadi saling dipertukarkan. The technology of the microprocessor has become so advanced that it has the ability to contain not just one but up to four CPUs inside it, as in the case of quad core microprocessors. Teknologi mikroprosesor telah menjadi begitu canggih yang memiliki kemampuan untuk mengandung tidak hanya satu tapi sampai empat CPU di dalamnya, seperti dalam kasus quad core mikroprosesor. And that is not even the limit of what a microprocessor can do. Dan itu bahkan tidak batas mikroprosesor apa yang bisa dilakukan.
To put it in perspective, given today's technology. Untuk meletakkannya dalam perspektif, mengingat teknologi saat ini. All CPUs are microprocessors, but not all microprocessors are CPUs. Semua CPU mikroprosesor, namun tidak semua mikroprosesor adalah CPU. The use of the microprocessor has become so widespread that in a single computer system, there now a number of microprocessors working and they have all but replaced the transistors that were once the king of computer components. Penggunaan mikroprosesor telah menjadi begitu luas bahwa dalam sebuah sistem komputer tunggal, sekarang ada sejumlah mikroprosesor bekerja dan mereka semua tapi menggantikan transistor yang pernah raja komponen komputer. The GPU (Graphics Processing Unit) is also contained in a microprocessor. GPU (Graphics Processing Unit) juga terdapat dalam mikroprosesor. Even the northbridge and southbridge of the computer are both in microprocessors. Bahkan Northbridge dan Southbridge komputer yang baik dalam mikroprosesor.
To sum up this whole article, the CPU is the brain of a whole computer system. Untuk jumlah keseluruhan artikel ini, CPU adalah otak dari suatu sistem komputer secara keseluruhan. This is where the entire decision making process happens. Ini adalah tempat seluruh proses pengambilan keputusan terjadi. All the other parts of the computer just obey the requests of the CPU. Semua bagian lain dari komputer hanya mematuhi permintaan dari CPU. The microprocessor is an advancement in transistor technologies that allow multiple transistors to be placed in a certain package. mikroprosesor ini adalah kemajuan dalam teknologi transistor yang memungkinkan beberapa transistor untuk ditempatkan dalam suatu paket. It is so advanced and economical that it has become advantageous for manufacturers to utilize the microprocessor in almost every part of the computer. Hal ini sangat canggih dan ekonomis yang telah menjadi menguntungkan bagi produsen untuk memanfaatkan mikroprosesor di hampir setiap bagian dari komputer.

Share:

CARA MEMASANG GAMBAR KLIKSAYA DI HEADER


1. Anda login ke dashboard anda. Kemudian cari menu 'design' - 'edit html'.
2. Jangan lupa untuk mendownload dulu template anda untuk 'back up' bila ada kesalahan dalam pemasangan. Caranya klik di bagian "download full template".

3. Setelah selesai, langkah selanjutnya adalah centang "Expand Widget Templates".

4. Cari kode dibawah ini dengan bantuan tombol 'ctrl+F'
b:section class='header' id='header' maxwidgets='1' showaddelement='no'>

Mungkin saja tiap template memakai kode yang berbeda. Intinya carilah kode yang mirip kode tersebut di template blogspot anda.

5. Setelah ketemu anda rubah sedikit kodenya.

maxwidgets='1' showaddelement='no'

menjadi :

maxwidgets='2' showaddelement='yes'

Jadi cuma beda angka dan keterangan yes atau no.

6. Setelah itu klik simpan template. Berati widged di atas header sudah jadi.

 
Share:

CARA MEMASANG GOOGLE TERJEMAHAN DI BLOGGER

LANGSUNG AJA YAAAA
1. Buka situs http://translate.google.com/translate_tools?hl=en

2. Pilih bahasa yang digunakan dalam blog/ website Anda. Tunggu beberapa saat hingga proses loading page selesai.

3. Copy kode HTML yang ada dalam kotak.

4. Login ke blog Anda. Masuk ke menu Layout -> Page Elements

5. Klik Add a Gadget. Klik tombol + pada HTML/ Javascript.

6. Pastekan kodenya kedalam kotak lalu klik Save.

7. Selesai. Klik View Blog untuk melihat tampilannya.
Share:

MEGCOPY FILE DENGAN CMD

  1. Buka CMD dengan tekan tombol windows + R lalu ketik cmd dan tekan enter.
  2. Kemudian dengan menggunakan command prompt silakan masuk ke directory file yang akan kamu copy, misalnya kamu ingin masuk ke partisi D: jadi kamu harus ketikkan dalam cmd dengan menggunakan perintah D: saja maka hasilnya seperti ini












Jadi setelah masuk ke partisi D, untuk mengcopy file yang ada di dalamnya ketikkan perintah copy spasi nama_file spasi penyimpanan_hasil_copy. Misalnya aku akan mengcopy file smp.jpg dari partisi D ke partisi E: dalam folder dokumen yaitu dengan mengetikkan perintah copy smp.jpg e:\dokumen

Jika tampilan cmd sudah seperti di atas, maka file berhasil di copy

ya lumayan gampang sie...


Share:

CARA HAPUS FILE DAN FORMAT FLASDISK

FORMAT volume [/FS:file-system] [/V:label] [/Q] [/C] [/X]
volume = drive yg diformat (pakai tanda titik dua)
file-system = FAT; FAT32; NTFS
label = nama label drive nantinya
/Q = quick format (non full format)
/C = utk file-system = NTFS = compress
/X = unmount disk (terkadang hrs = tutup semua handle file terbuka pada volume)

Contoh:
FORMAT g: /FS:FAT32 /V:Flashku /Q /X

Mau ringkas:
FORMAT g: /V:Flashku

Menghapus folder?
RMDIR /S <[drive:] path>
RD /S <[drive:] path>
/S = hapus beserta semua isi-2nya
drive = volume folder (C:; D:; G, dll)
path = nama folder

Contoh
RD /S g:\folderku
atau
RMDIR /S folderku
    Share:

    MEREPAIRE FLASDISK YANG RUSAK

    Beberapa hal yang patut dicurigai ketika UFD (USB Flash Disk) yang kita miliki tidak terdeteksi saat dicolok ke PC, antara lain :

    - Port USB Rusak

    - Setting bermasalah ( Bios, Windows)

    - Driver bermasalah

    - Rusak secara Fisik

    - dll

    Flash disk tidak terdeteksi mungkin dikarenakan driver FDD tidak sesuai dengan OS yang dipakai, terdapat crash system fat pada flash disk tersebut dan kemungkinan terakhir flash disk anda rusak total. Adapaun untuk penanganan dini memperbaikinya sbb.

    Oke, singkat saja..

    Buka Command prompt, start->run->”cmd”

    masuk ke drive USB, misal : e: / f: / g:
    ketik : chkdsk /f –> kenapa /f ? search di cmd, ‘help chkdsk’
    Pilih yes(y) untuk melakukan proses checkdisk setelah kompi di restart
    Lakukan restart PC, biarkan proses berlangsung setelah winlogon

    Apabila cmd tidak bisa masuk ke dalam drive usb tersebut, hal diatas masih bisa dilakukan dari drive manapun, dengan perintah : chkdsk (:e/f/g drive usb) [/...]
    Semoga USB flasdisk yang tadinya tidak bisa dibuka, kini bisa dibuka kembali

    Flash Disk mengalami Write Protect

    1. Masuk ke DOS Prompt Windows XP dan ketik CHKDSK /F Drive letter : (chkdsk /f v:)
    2. Selesai memeriksa dari Check Disk (CHKDSK), coba anda buang file yang ada pada Flash Disk dengan perintah Del drive letter:*.*. Contoh pada perintah membuang file dari Flash Disk di drive V: adalah DEL V:*.*
    3. Sekali lagi anda coba format dengan perintah Dos Promt. Format V:
    4. Atau gunakan cara melalui Computer Management dan lihat volume drive V, dan anda coba format. Bila masih terdapat pesan error lakukan boot pada computer..
     
    Referensi

    Share:

    https://fikiirawan.blogspot.com/

    Blog Archive

    Pages