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 :

1. Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki adalah memiliki kreaditas B dan terakreditasi oleh Ban-PT
2. Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki sudah dikenal oleh masyarakat, terutama oleh beberapa perusahaan terkemuka
3. Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki memiliki sistem pengajaran yang baik, bagi orang-orang yang benar ingin menuntut ilmu
4. 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
5. 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