2013 | Habibi Noor Blog

Rumus Hambatan Pada Pascal

Kali ini rumus hambatan yang saya buat adalah berbeda dengan rangkaian pararel yang pernah saya buat sebelumnya. rumus ini saya buat atas permintaan kekasih saya yang sedang ujian. berikut ada coding programnya. untuk yang pake TPW (Turbo Pascal Windows) silahkan ganti " uses crt " menjadi " uses wincrt "

USES CRT;
VAR
R: ARRAY [1..100] OF INTEGER;
SP: ARRAY [0..100] OF REAL;
N,I,RK:INTEGER; RP,RTOT:REAL;
BEGIN
CLRSCR;
WRITE('MASUKKAN N : ');READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE ('R[',I,']: ');READLN (R[I]);
END;
RK:=1;
FOR I:=1 TO N DO
BEGIN
RK:=RK*R[I];
END;
RP:=0;
FOR I:=1 TO N DO
BEGIN SP[I]:= RK/R[I];
RP:= RP+SP[I];
RTOT:=RK/RP;
END;
WRITE('R TOTAL ADALAH :', RTOT:8:3);
READKEY;
END.

outputya :

Rumus Rangkaian Listrik Pararel Pada Pascal For Windows

berbeda dari yang biasanya yang menggunakan pascal dari DOS kali ini saya membuat program Rumus Rangkaian Listrik Pararel Pada Pascal persi Windows, berikut adalah programnya semoga bermanfaat dan untuk rekan-rekan yang menggunkan pascal versi DOS tak perlu cemas, karena hanya perlu merubah tulisan " uses wincrt" menjadi " uses crt " berikut adalah code programnya :

PROGRAM HAMBATAN_PARAREL;
USES WINCRT;
VAR
R :ARRAY[1..100] OF INTEGER;
N,I :BYTE;
RAWAL,RTOTAL : REAL;
BEGIN
CLRSCR;
WRITE ('BERAPA JUMLAH R YANG DIBUTUHKAN (MAKSIMUM 100):');READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE ('MASUKKAN NILAI R',I,':'); READLN(R[I]);
END;
FOR I := 1 TO N DO
RAWAL := RAWAL + (1/R[I]);
RTOTAL := RAWAL;
WRITELN ('NILAI ANDA :',RTOTAL:8:2,' Ohm');
READKEY;
END.

itu dulu dari saya semoga bermanfaat untuk semuanya.

Tips Untuk Anda Yang Ingin Memilih Universitas Swasta

Buat Rekan-rekan yang tak lulus setelah mencoba untuk masuk ke universitas negeri, namun daripada tidak kuliah mendingan masuk perguruan tinggi swasta, aku punya sedikit tips buat kalian agar tak salah pilih, mudah-mudah bermanfaat untuk semuanya, tipsnya sebagai berikut :

Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki adalah memiliki kreaditas B dan terakreditasi oleh Ban-PT
Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki sudah dikenal oleh masyarakat, terutama oleh beberapa perusahaan terkemuka
Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki memiliki sistem pengajaran yang baik, bagi orang-orang yang benar ingin menuntut ilmu
Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki mampu meluluskan kamu dengan IP rata-rata di atas 3.00 karena untuk bekerja kamu membutuhkan IP rata-rata di 3.00 untuk lulusan Swasta
Jika kamu memiliki kenalan yang tidak lain adalah alumni lulusan Perguruan Tinggi Swasta yang ingin kamu masukki maka kamu harus bertanya tentang semua hal dengan akurat tentang Perguruan Tinggi Swasta.

sekian dulu tips dariku buat rekan-rekan sekalian semoga tipsnya bermanfaat. trims

Program Mencari Luas Persegi, Persegi Panjang, Lingkaran, dan Segitiga Pada Pascal

Dibawah ini adalah contoh program mecari luas persegi, persegi panjang, lingkaran, dan segitiga pada pascal program ini saya buat sederhana, mudah-mudahan berguna buat teman-teman sekalian.

USES CRT;
VAR
NOMOR:BYTE;
ALAS,TINGGI,PANJANG,LEBAR,SISI,JARI,LUAS:REAL;
BEGIN
CLRSCR;
WRITELN('==============================');
WRITELN(' PROGRAM MENCARI LUAS ');
WRITELN('==============================');
WRITELN(' ');
WRITELN(' ');
WRITELN('==============================');
WRITELN('NO | KETERANGAN ');
WRITELN('==============================');
WRITELN('1. | PERSEGI');
WRITELN('2. | PERSEGI PANJANG');
WRITELN('3. | LINGKARAN');
WRITELN('4. | SEGITIGA');
WRITELN('==============================');
WRITELN(' ');
WRITE('MASUKKAN NOMOR LUAS YANG INGIN DICARI : ');READLN(NOMOR);
IF NOMOR = 1 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN SISI : ');READLN(SISI);
LUAS:= SISI*SISI;
WRITELN('LUAS PERSEGI ADALAH :',LUAS:8:2);
END
ELSE IF NOMOR=2 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN PANJANG : ');READLN(PANJANG);
WRITE('MASUKKAN LEBAR : ');READLN(LEBAR);
LUAS:=PANJANG*LEBAR;
WRITELN('LUAS PERSEGI PANJANG ADALAH :',LUAS:8:2);
END
ELSE IF NOMOR=3 THEN
BEGIN
CLRSCR;
WRITE('MASUKKAN JARI-JARI : ');READLN(JARI);
LUAS:=3.14*JARI*JARI;
WRITELN('LUAS LINGKARAN ADALAH :',LUAS:8:2);
END
ELSE
BEGIN
CLRSCR;
WRITE('MASUKKAN ALAS : ');READLN(ALAS);
WRITE('MASUKKAN TINGGI : ');READLN(TINGGI);
LUAS:=0.5*ALAS*TINGGI;
WRITELN('LUAS SEGITIGA ADALAH :',LUAS:8:2);
END;
READKEY;
END.

hasil

Program Menggunakan Delete plus looping pada pascal

Berikut adalah contoh Program menggunakan Delete plus looping pada pascal semoga bermanfaat untuk kawan-kawan semua

USES CRT;
VAR
X:BYTE;
KATA:STRING;
BEGIN
CLRSCR;
KATA:='SELAMAT';
FOR X:=1 TO 7 DO
BEGIN
WRITELN(KATA);
DELETE(KATA,1,X);
END;
READKEY;
END.

Hasil

Program Mencari Luas Segitiga Pada Pascal

Berikut ini adalah program sederhana mencari luas segitiga di pascal yang saya buat sendiri, dan saya meletakkan 2 angka dibelakang koma, ketika suatu saat jawabannya adalah bilangan desimal. berikut adalah coding programnya, semoga bermanfaat untuk semuanya.jazakumullah Khair.

USES CRT;
VAR
ALAS,TINGGI, LUAS:REAL;
BEGIN
CLRSCR;
WRITELN('=============================');
WRITELN('PROGRAM MENCARI LUAS SEGITIGA');
WRITELN('=============================');
WRITELN(' ');
WRITE('MASUKKAN ALAS =');READLN(ALAS);
WRITE('MASUKKAN TINGGI=');READLN(TINGGI);
LUAS:=0.5*ALAS*TINGGI;
WRITELN('LUAS SEGITIGA ADALAH =',LUAS:6:2);
READKEY;
END.

Program Mencari Luas Dan Keliling Persegi Panjang Pada Pascal

Kali ini saya mencoba program mencari luas dan keliling persegi panjang dengan menggunakan Turbo dan hasilnya ada 2 angka di belakang koma karena saya beranggapan soal tidak selalu bilangan bulat.
Pascal Semoga bermanfaat untuk saya dan rekan-rekan sekalian.

USES CRT;
VAR
PANJANG,LEBAR,LUAS,KELILING:REAL;
BEGIN
CLRSCR;
WRITELN('=================================================');
WRITELN('PROGRAM MENCARI LUAS DAN KELILING PERSEGI PANJANG');
WRITELN('=================================================');
WRITELN(' ');
WRITE('MASUKKAN PANJANG =');READLN(PANJANG);
WRITE('MASUKKAN LEBAR =');READLN(LEBAR);
LUAS:=PANJANG*LEBAR;
KELILING:= (2*PANJANG) + (2*LEBAR);
WRITELN('LUAS PERSEGI PANJANG =',LUAS:8:2);
WRITELN('KELILING PERSEGI PANJANG =',KELILING:8:2);
READKEY;
END.

Program Mencari Luas Persegi Pada qbasic

dibawah ini adalah contoh Program sederhana mancari Luas Persegi pada Qbasic semoga bermanfaat untuk semuanya

CLS
PRINT "===================================="
PRINT "PROGRAM MENCARI LUAS PERSEGI"
PRINT "===================================="
PRINT " "
INPUT "MASUKKAN SISI"; S
LUAS = S ^ 2
PRINT "LUAS PERSEGI PERSEGI ADALAH ="; LUAS
END

Program Mencari Luas Persegi Panjang Pada QBasic

Berikut ini adalah Program Sederhana mencari Luas Persegi Panjang Pada Qbasic semoga bermanfaat untuk semuanya

CLS

PRINT "===================================="

PRINT "PROGRAM MENCARI LUAS PERSEGI PANJANG"

PRINT "===================================="

PRINT " "

INPUT "MASUKKAN PANJANG = "; P

INPUT "MASUKKAN LEBAR = "; L

LUAS = P * L

PRINT "LUAS PERSEGI PANJANG ="; LUAS

END

Program Mencari Gaji Pokok dan Tunjangan pada Turbo Pascal

Soal :
Gol = A, Gapok = 5000, Tunjangan = 20% x Gapok
Gol = B, Gapok = 4000, Tunjangan = 10% x Gapok
Gol = C, Gapok = 3000, Tunjangan = 5% x Gapok
Gol = D, Gapok = 1000, Tunjangan = 2% x Gapok

Program

USES CRT;
VAR
GOL : CHAR;
GAPOK :LONGINT;
TUNJANG :REAL;
BEGIN
CLRSCR;
GOTOXY (4,5);WRITE('MASUKKAN GOLONGAN :'); READLN(GOL);
IF GOL='A' THEN
   BEGIN
   GAPOK:= 5000;
   TUNJANG := 0.2* GAPOK;
   END
ELSE IF GOL='B' THEN
   BEGIN
   GAPOK:= 4000;
   TUNJANG := 0.1* GAPOK;
   END
ELSE IF GOL='C' THEN
   BEGIN
   GAPOK:=3000;
   TUNJANG:=0.05* GAPOK;
   END
ELSE
   BEGIN
   GAPOK:=1000;
   TUNJANG:=0.02* GAPOK;
   END;
GOTOXY (4,6);WRITELN('GAJI POKOK ANDA :',GAPOK);
GOTOXY (4,7);WRITELN('TUNJANGAN ANDA :',TUNJANG:9:0);
READKEY;
END.

Pengertian Konsep Bahasa Pemograman (KBP-1)

Konsep Bahasa Pemograman adalah ilmu yang mempelajari 3 bahasa pemograman sekaligus (qbasic, Pascal, dan Clipper)

Informasi adalah hasil dari pengolahan data yang memiliki arti

sistem Informasi adalah Kumpulan dari beberapa informasi yang saling terkait dan memiliki arti yang digunakan untuk pengambilan sebuah keputusan.

Pembentuk Informasi

INPUT -- PROSES -- OUTPUT

Beberapa Aplikasi penerapan Komputer
1. Bidang teknik dan Ilmu pengetahuan
2. Bidang pendidikan
3. Bidang Bisnis
4. Bidang perbankan
5. Bidang Penerbanga
6. Bidang Kriminalitas

Pengertian Manajemen Dan Fungsi Manager ( MJM-1 )

Manajemen adalah Proses PAOC ( Planning, Actuating, Organizing, Controling ) terhadap 6 M untuk mencapai tujuan organisasi.

Unsur-Unsur Manajemen :

Man
Money
Matrial
Machine
Methode
Market

Hirarki/Tingkatan Manajemen :

1. Top Manajer

Bertanggung Jawab atas Keseluruhan perusahaan. Contoh : Direktur,Kespek, Rektor, Dll

2. Middle Manajer

Bertanggung Jawab untuk memimpin dan mengarahkan manajer-manajer lain. Contoh : Kabag

3. Low Manajer

Bertanggung Jawab mengawasi Pelaksaan kegiatan karyawan. contoh : SPV, Mandor

JENIS-JENIS MANAJER

Manajer Berdasarkan Fungsinya :

1. Manajer Administrasi : menangani urusan administrasi/tata cara kerja

2. Manajer Operatif : menangani urusan pangan

Manajer Berdasarkan Ruang Lingkup

1. Manajer Fungsional : Bertanggung jawab atas satu kegiatan

2. Manajer Umum : Bertanggung jawab atas satu satuan kegiatan

Fungsi Manajemen

* planning

*organizing

*actuating

*controling

*statting

keterampilan-keterampilan yang harus dimiliki seorang manajer

1. Human Skill

2. Adminstrasi Skill

3. Konseptual Skill

4. Teknikal Skill

5. Pengambilan Keputusan

Free Download Turbo Pascal DOS

Segala keindahan hanya milik allah SWT
pada postingan yang pertama ini saya hanya ingin berbagi sedikit tentang sofware turbo pascal. sebuah bahasa pemograman yang terstruktur dan berbasis dos.

bahasa pemograman yang dipakai pada turbo pascal adalah highlevel lenguage yaitu bahasa program tingkat tinggi yang mudah dimengerti oleh manusia.

untuk membuka turbo pascal yang saya upload ini yang harus melakukan langkah-langkah sebagao berikut...

* extrak terlebih dahulu program turbo pascal yang telah di upload
* simpan program di drap C
* masukkan ke program DOS
   cara : - Klik tombal START
             - Pilih RUN
             - ketik CMD atau COMMAND
             - tekan ENTER
* setelah berada di program DOS
   cara : - pastikan drap pada DOS adalah drap C:\
   jika tidak berada di C maka ubah terlebih dahulu dengan cara ketik C: tekan enter
- ketik cd tp\bin
            - enter
            - ketik fix200
            - enter
            - ketik tpx
            - enter
            -maka anda akan masuk ke turbo pascal

untuk yang mau download turbo pascal klik ada link di bawah ini :

DOWNLOAD TURBO PASCAL

atau klik link di bawah ini untuk turbo pascal portable dan anda hanya menggunakan double klik untuk membukanya

DOWNLOAD TURBO PASCAL PORTABLE

catatan jika anda salah satu mahasiswa Amik - medicom Medan dianjurkan untuk menggunakan link yang pertama karena link pertama adalah sofware turbo pascal yang di pakai oleh Amik - medicom Medan.

A Bout Blog

Tiada kata yang paling indah yang diucapkan seorang hamba kepada tuhannya kecuali ucapan puji dan syukur kehadirat Allah SWT yang telah menciptakan manusia dengan akal dan nafsu sehingga manusia dapat dapat mengembangkan berbagai ilmu pengetahuan dan selalu merasa haus akan ilmu baik dalam bidang Religi maupun dalam bidang Umum dan Teknologi.

Dan Selawat beriringkan salam kepada seorang hamba yang paling sempurna akhlak dan kepribadiannya, seorang hamba yang paling lembut tutur katanya, paling santun kepada kepada hambanya, seorang hamba yang saat hambusan terakhirnya yang dipikirnya adalah umatnya dimasa depan, dia adalah Baginda Rasullullah Muhammad SAW, dan tak lupa kaum kerabat dan keluarganya.

my friends, perkenalkan namaku "Habibi Noor", blog ini ku buat hanya sebagai sarana informasi buat rekan-rekan yang membutuhkan informasi dariku. dan aku mohon maaf ketika dalam pengitikan atau ada informasi yang rekan-rekan anggap tidak sesuai, diblog ini saya memohon kerja sama kepada rekan-rekan sekali yang ingin juga berbagi informasi yang rekan-rekan anggap penting untuk disampaikan.

bagi rekan-rekan yang ingin menyampaikan ide, kritik, dan saran serta informasi-informasi dapat baik ilmu-ilmu teknologi, lowongan kerja, beasiswa dan sebagainya dapat di kirim ke alamat email dibawah ini :

habibinoor01@gmail.com, atau dapat langsung melakukan komen yang tertera di kotak dialog dibawah postingan ini.