PENGERTIAN DAN JENIS RESISTOR

Sebuah resistor adalah terminal dua komponen elektronik yang menghasilkan tegangan pada terminal yang sebanding dengan arus listrik melewatinya sesuai dengan hukum Ohm:
V = IR

Resistor adalah elemen dari jaringan listrik dan sirkuit elektronik dan di mana-mana di sebagian besar peralatan elektronik. Praktis resistor dapat dibuat dari berbagai senyawa dan film, serta resistensi kawat (kawat terbuat dari paduan Resistivitas tinggi, seperti nikel / krom). Karakteristik utama dari sebuah resistor adalah resistensi, toleransi, tegangan kerja maksimum dan power rating. Karakteristik lainnya meliputi koefisien temperatur, kebisingan, dan induktansi. Kurang terkenal adalah perlawanan kritis, nilai yang disipasi daya di bawah batas maksimum yang diijinkan arus, dan di atas batas yang diterapkan tegangan. Perlawanan kritis tergantung pada bahan yang merupakan resistor dan juga dimensi fisik, melainkan
ditentukan oleh desain. Resistor dapat diintegrasikan ke dalam sirkuit hibrida dan dicetak, serta sirkuit terpadu. Ukuran, dan posisi lead (atau terminal) yang relevan dengan peralatan desainer; resistor harus secara fisik cukup besar untuk tidak terlalu panas ketika menghilangkan kekuasaan mereka.
Konstruksi

Lead pengaturan
Melalui komponen-lubang biasanya memiliki mengarah meninggalkan tubuh axially. Lainnya telah mengarah datang dari tubuh mereka radial bukan sejajar dengan sumbu resistor. Komponen lain mungkin SMT (surface mount technology) sedangkan resistor daya tinggi mungkin memiliki salah satu dari mereka dirancang mengarah ke dalam heat sink.

Komposisi karbon
Resistor komposisi karbon terdiri dari silinder padat resistif kawat elemen dengan embedded mengarah atau logam tutup akhir yang memimpin terikat kawat. Tubuh resistor dilindungi dengan cat atau plastik. Awal abad ke-20 resistor komposisi karbon telah uninsulated tubuh; memimpin kabel terbungkus di sekitar ujung batang dan elemen perlawanan disolder. Resistor selesai dicat untuk kode warna dari nilainya. Elemen resistif terbuat dari campuran tanah halus (bubuk) karbon dan bahan isolasi (biasanya keramik). Sebuah resin memegang campuran bersama-sama. Resistensi ditentukan oleh rasio mengisi bahan (bubuk keramik) ke karbon. Konsentrasi yang lebih tinggi dari karbon, konduktor yang lemah, menghasilkan resistensi yang lebih rendah. Resistor komposisi karbon yang umum digunakan pada 1960-an dan sebelumnya, tetapi tidak begitu populer untuk penggunaan umum sekarang sebagai jenis lain memiliki spesifikasi yang lebih baik, seperti toleransi, tegangan ketergantungan, dan stres (resistor komposisi karbon akan berubah nilai ketika stres dengan lebih-tegangan ). Selain itu, jika kadar air internal (dari eksposur untuk beberapa jangka waktu ke lingkungan lembab) adalah signifikan, solder panas akan menciptakan reversibel non-perubahan dalam nilai resistansi. Resistor ini Namun, jika tidak pernah mengalami Overvoltage juga tidak terlalu panas itu sangat bisa diandalkan. Mereka masih tersedia, namun relatif cukup mahal. Nilai berkisar dari pecahan dari suatu ohm hingga 22 megohms.

Karbon film
Sebuah film karbon diendapkan pada substrat isolasi, dan sebuah heliks dipotong untuk menciptakan panjang, jalan sempit resistif. Berbagai bentuk, ditambah dengan tahanan karbon, (berkisar 90-400 nΩm) dapat memberikan berbagai resistensi. [1] Karbon film resistor power rating menampilkan berbagai 0,125 W sampai 5 W pada 70 ° C. Resistensi yang tersedia berkisar antara 1 ohm sampai 10 megom. Resistor film karbon dapat beroperasi antara suhu -55 ° C sampai 155 ° C. Ini memiliki 200-600 volt tegangan kerja maksimum jangkauan.

Tebal dan tipis
Resistor film tebal menjadi populer selama tahun 1970-an, dan paling SMD (permukaan perangkat mount) resistor hari ini adalah dari jenis ini. Perbedaan utama antara film tipis dan resistor film tebal tidak aktual ketebalan film, melainkan bagaimana film ini diterapkan pada silinder (aksial resistor) atau permukaan (SMD resistor). Resistor film tipis dibuat oleh sputtering (metode deposisi vakum) yang bahan resistif ke substrat isolator. Film ini kemudian terukir dalam cara yang sama ke yang lama (subtraktif) proses untuk membuat sirkuit tercetak, yaitu permukaan dilapisi dengan foto-materi sensitif, kemudian ditutup dengan sebuah pola film, disinari dengan sinar ultraviolet, dan kemudian yang terbuka lapisan foto-sensitif dikembangkan, dan yang mendasari film tipis terukir pergi. Karena waktu selama yang dilakukan memercik dapat dikontrol, ketebalan lapisan tipis dapat dikontrol secara akurat. Jenis bahan ini juga biasanya berbeda yang terdiri dari satu atau lebih keramik (keramik logam) konduktor seperti tantalum nitrida (TAN), ruthenium dioksida (RuO2), timbal oksida (PbO), bismut ruthenate (Bi2Ru2O7), nikel kromium (NiCr), dan / atau bismut iridate (Bi2Ir2O7).
Hambatan dari kedua tipis dan tebal resistor setelah pembuatan film sangat tidak akurat; mereka biasanya dipotong ke nilai yang akurat oleh pemangkasan kasar atau laser. Resistor film tipis biasanya ditentukan dengan toleransi sebesar 0,1, 0,2, 0,5, atau 1%, dan dengan koefisien suhu 5 hingga 25 ppm / K. Resistor film tebal dapat menggunakan keramik konduktif yang sama, tetapi mereka dicampur dengan disinter (bubuk) gelas dan beberapa jenis cairan sehingga dapat komposit layar-dicetak. Ini gabungan dari kaca dan konduktif keramik (keramik logam) materi tersebut kemudian menyatu (dipanggang) dalam oven sekitar 850 ° C. Resistor film tebal, ketika pertama kali dibuat, mempunyai toleransi 5%, tapi toleransi standar telah meningkat hingga 2% atau 1% dalam beberapa dekade terakhir. Koefisien temperatur resistor film tebal yang tinggi, biasanya ± 200 atau ± 250 ppm / K; 40 Kelvin (70 ° F) perubahan suhu dapat mengubah resistansi sebesar 1%. Resistor film tipis biasanya jauh lebih mahal dibandingkan resistor film tebal. Sebagai contoh, resistor SMD film tipis, dengan 0,5% toleransi, dan dengan 25 ppm / K suhu koefisien, ketika membeli dalam jumlah reel ukuran penuh, sekitar dua kali biaya 1%, 250 ppm / K resistor film tebal.

Film logam
Jenis umum aksial resistor hari ini disebut sebagai resistor film logam. Leadless elektrode logam wajah (MELF) resistor sering menggunakan teknologi yang sama, tetapi adalah resistor berbentuk cylindrically dirancang untuk permukaan meningkat. Perhatikan bahwa resistor jenis lain (misalnya, komposisi karbon) juga tersedia dalam paket MELF. Resistor film logam biasanya dilapisi dengan nikel kromium (NiCr), tetapi mungkin akan dilapisi dengan salah satu bahan keramik logam yang tercantum di atas untuk resistor film tipis. Tidak seperti resistor film tipis, bahan dapat diterapkan menggunakan teknik yang berbeda dari sputtering (meskipun itu adalah salah satu teknik seperti itu). Juga, tidak seperti film tipis resistor, nilai resistansi ditentukan dengan cara memotong heliks melalui lapisan bukan oleh etsa. (Hal ini mirip dengan cara resistor karbon dibuat.) Hasilnya adalah toleransi yang masuk akal (0,5, 1, atau 2%) dan koefisien suhu (biasanya) 25 atau 50 ppm / K.

Wirewound
Wirewound resistor biasanya dibuat oleh gulungan kawat logam, biasanya nichrome, sekitar keramik, plastik, atau fiberglass inti. Ujung-ujung kawat yang disolder atau dilas ke dua topi atau cincin, menempel pada ujung inti. Perakitan dilindungi dengan lapisan cat, plastik, atau lapisan enamel dipanggang pada suhu tinggi. Kawat memimpin kekuasaan rendah biasanya wirewound resistor antara 0,6 dan 0,8 mm dalam diameter dan kalengan untuk memudahkan penyolderan. Untuk resistor wirewound kekuatan yang lebih tinggi, baik luar keramik kasus atau luar aluminium kasus di atas lapisan isolator digunakan. Aluminium-cased jenis dirancang harus terpasang ke wastafel panas menghilangkan panas; yang diberi kekuasaan digunakan tergantung pada cocok dengan heat sink, misalnya, kekuatan 50 W akan diberi nilai resistor panas di sebagian kecil dari daya disipasi jika tidak digunakan dengan heat sink. Wirewound besar resistor dapat diberi nilai selama 1.000 watt atau lebih. Karena Resistor wirewound kumparan mereka mempunyai induktansi lebih diinginkan daripada jenis lain resistor, meskipun berliku kawat di bagian dengan arah terbalik bergantian dapat memperkecil induktansi. Teknik lain mempekerjakan bifilar berkelok-kelok, atau flat mantan tipis (untuk mengurangi luas penampang kumparan). Bagi sebagian besar menuntut rangkaian resistor dengan Ayrton-Perry berliku digunakan.


Foil resistor
Hambatan utama elemen dari resistor foil paduan khusus foil beberapa mikrometer tebal. Sejak diperkenalkan pada 1960-an, foil resistor memiliki presisi yang terbaik dan stabilitas dari setiap resistor tersedia. Salah satu parameter penting yang mempengaruhi stabilitas koefisien suhu resistansi (TCR). Kertas timah yang TCR resistor sangat rendah, dan telah lebih ditingkatkan selama bertahun-tahun. Satu rentang ultra-precision resistor foil menawarkan TCR dari 0,14 ppm / ° C, toleransi ± 0.005%, stabilitas jangka panjang (1 tahun) 25 ppm, (3 tahun) 50 ppm (lebih ditingkatkan 5-kali lipat oleh hermetik penyegelan) , stabilitas di bawah beban (2000 jam) 0,03%, thermal EMF 0,1 μV / ° C, -42 dB kebisingan, koefisien tegangan 0,1 ppm / V, 0,08 μH induktansi, kapasitansi 0,5 pF.


Ammeter shunts
Sebuah ammeter shunt adalah tipe khusus-sensing arus resistor, memiliki empat terminal dan nilai di milliohms atau bahkan mikro-ohm. Alat pengukur arus, dengan sendirinya, biasanya dapat menerima arus terbatas. Untuk mengukur arus tinggi, arus melewati shunt, di mana jatuh tegangan diukur dan ditafsirkan sebagai arus. Tipikal shunt terdiri dari dua blok logam padat, kadang-kadang kuningan, terpasang pada dasar isolasi. Antara blok, dan disolder atau brazed kepada mereka, adalah satu atau lebih potongan koefisien temperatur rendah resistensi (TCR) manganin paduan. Ulir baut besar ke dalam blok membuat koneksi saat ini, sementara banyak-sekrup kecil memberikan sambungan tegangan. Shunts dinilai oleh arus skala penuh, dan sering memiliki jatuh tegangan sebesar 50 mV pada nilai arus.


Grid resistor
Dalam industri tugas berat aplikasi-aplikasi arus tinggi, resistor kotak konveksi besar-cooled kisi strip paduan logam cap terhubung dalam baris-baris antara dua elektroda. Industri seperti resistor dapat grade yang sama besarnya dengan lemari es; beberapa desain bisa menangani lebih dari 500 ampere saat ini, dengan kisaran resistensi memperluas lebih rendah daripada 0,04 ohm. Mereka digunakan dalam aplikasi seperti pengereman dinamis dan beban perbankan untuk lokomotif dan trem, netral AC landasan untuk industri distribusi, pengendalian beban untuk crane dan alat berat, load generator dan harmonis listrik penyaringan untuk substasiun. Istilah grid resistor kadang-kadang digunakan untuk menggambarkan sebuah resistor jenis apa pun yang terhubung ke control grid tabung vakum. Ini bukan sebuah resistor teknologi; itu adalah topologi sirkuit elektronik

program luas keliling lingkaran

program luas_keliling_lungkaran;
uses wincrt;
label ulang;

var
r:integer;
l:real;
k:real;
ab:char;
const
phi=3.14;

begin
ulang:
clrscr;

writeln('PROGRAM MENCARI LUAS DAN KELILING LINGKARAN');

write('jari-jari= ');readln(r);
l:=phi*r*r;
k:=2*phi*r;
writeln('luas lingkaran= ',l:4:2);
write('keliling lingkaran= ',k:4:2);
writeln('Apakah anda ingin mengulanginya (y/t): ');
readln(ab);
if (ab='y') or (ab='Y') then
begin
goto ulang;
end
else
donewincrt;
readln
end.

program grade nilai

Program nilai_mahasiswa;
uses wincrt;
Var
Nilai : Real ;
Grade : Char ;
nama : string ;
Begin
write('NAMA ANDA: ',nama);
read(nama);
Write('NILAI YANG ANDA PEROLEH : ');
Read(Nilai);

If Nilai > 85 Then
Grade := 'A'
else
If Nilai>65 Then
Grade := 'B'
Else
If Nilai > 55 Then
Grade := 'C'
Else
If Nilai > 40 Then
Grade := 'D'
Else
Grade := 'E' ;
Writeln(nama,' KETERANGAN NILAI ANDA ADALAH : ',grade) ;
readln;
End.

program faktorial

program faktorial;
uses wincrt;

var
i,j,n,a:integer;

begin
writeln('nama : Afit Miranto');
writeln('NPM : G1D009001');
writeln('PRODI : Teknik Elektro');
write('masukkan nilai n: ');
readln(n);
writeln('nilai faktorialnya adalah ');
for i:=1 to n do

begin
for j:=1 to i do
begin
a:=1;
for j:=1 to i do
a:=a*j;
end;
write(a, ' ');
end;
readln;
donewincrt
end.

program input matrix

program input_matrix;
uses wincrt;

var
i,j,b,a:integer;

begin
a:=1;
writeln;
writeln;
write('masukan baris ');read(a);
write('masukan kolom ');read(b);

for i:= 1 to a do
begin
for j:= 1 to b do
begin
writeln(' (' ,i,' , ' ,j, ') ');
end;
end;
end.

Program metode_tabulasi

Program metode_tabulasi;
uses wincrt;
label ulang;
var
x,x1,x2,xa,xb,xc,y,y1,y2,ya,yb:real;
I,j,k:integer;
ab:char;
begin
ulang:
clrscr;
writeln('Tentukan akar penyelesaian dengan Metode Tabulasi dari f(x)=x^3-7x+1');
writeln;

write('masukkan nilai x1 ='); { * Nilai variable X pertama * }
readln(x1);
y1 := x1* x1* x1 - 7 * x1 + 1;
Writeln(' f(',x1:0:2,')=',y1:0:4);
repeat
begin
write('masukkan nilai x2 =');
readln(x2);
y2 := x2 * x2 * x2 - 7 * x2 + 1;
writeln(' f(',x2:0:2,')=',y2:0:4);
writeln;
writeln('Syarat (x1*x2)<0');
write(' x1*x2=',y1*y2:0:5);
if (y1*y2)<0 then write(' Nilai OK') else write(' Nilai Tidak Sesuai');
readln;
end;
until(y1 * y2) <0;
clrscr;
k:=0;
repeat
begin
k:=k+1;
if x1 > x2 then
begin
xa := x1;
xb := x2;
end
else
begin
xa := x2;
xb := x1;
end;
xc := (xa - xb) /10;
i:=0;
repeat
begin
i:=i+1;
x := xb + xc * I;
ya := x * x * x - 7 * x +1;
yb :=( x - xc) *(x - xc) *(x - xc) - 7 * (x - xc)+1;
end;
until (ya * yb) <0;
x1 :=x;
x2 :=x - xc;
writeln ('tabulasi ke-',k);
writeln ('--------------------------------------------------------------------------');
writeln (' n x f(x) error');
writeln ('--------------------------------------------------------------------------');
for j:=1 to 9 do
begin
x := xb + xc * (j -1);
y := x * x * x - 7 * x + 1;
writeln (' ',j,':: ',x,' :: ',y,' :: ',abs(y),' ::');
end;
for j:=10 to 11 do
begin
x := xb + xc * (j -1);
y := x * x * x - 7 * x + 1;
writeln (j,':: ',x,' :: ',y,' :: ',abs(y),' ::');
end;
writeln('---------------------------------------------------------------------------');
end;
readln;
until abs(y)<10e-8;
writeln ('akar pendekatannya adalah x=',x);
writeln ('error=',abs(y));
writeln;
write ('apakah anda ingin mengulangi(y/t):');
readln(ab);
if (ab='Y') or (ab='y') then
begin
goto ulang;
end
else
donewincrt;
end.

Soal:
Cari akar-akar penyelesaian dari persamaan nonlinear di bawah ini dengan metode Tabulasi:
1. x3


- x2


- x + 1 = 0 2. 2 - 5x + sinx = 0

program resistor

program resistor;
uses wincrt;
var
nilai:real;
n1,n2,n3,n4,nilaimax,nilaimin:real;
g1,g2,g3,g4:string;

const
h=0;
c=1;
m=2;
o=3;
k=4;
hj=5;
b=6;

u=7;
a=8;
p=9;
e=1/2;
per=1.10;

begin
writeln('PROGRAM MENGETAHUI NILAI SUATU RESISTOR');
writeln('NAMA : AFIT MIRANTO');
writeln('NPM : G1D009001');
writeln('TEKNIK ELEKTRO UNIVERSITAS BENGKULU');
writeln(' ');
writeln('tulis warna gelang resistor dengan huruf kecil semua');
write('warna gelang 1= ');readln(g1);
write('warna gelang 2= ');readln(g2);
write('warna gelang 3= ');readln(g3);
write('warna gelang 4= ');readln(g4);

if (g1='hitam') then n1:=h;
if (g1='coklat') then n1:=c;
if (g1='merah') then n1:=m;
if (g1='oranye') then n1:=o;
if (g1='kuning') then n1:=k;
if (g1='hijau') then n1:=hj;
if (g1='biru') then n1:=b;
if (g1='ungu') then n1:=u;
if (g1='abu-abu')then n1:=a;
if (g1='putih') then n1:=p;

if (g2='hitam') then n2:=h;
if (g2='coklat') then n2:=c;
if (g2='merah') then n2:=m;
if (g2='oranye') then n2:=o;
if (g2='kuning') then n2:=k;
if (g2='hijau') then n2:=hj;
if (g2='biru') then n2:=b;
if (g2='ungu') then n2:=u;
if (g2='abu-abu')then n2:=a;
if (g2='putih') then n2:=p;


if (g3='hitam') then n3:=h;
if (g3='coklat') then n3:=c;
if (g3='merah') then n3:=m;
if (g3='oranye') then n3:=o;
if (g3='kuning') then n3:=k;
if (g3='hijau') then n3:=hj;
if (g3='biru') then n3:=b;
if (g3='ungu') then n3:=u;
if (g3='abu-abu')then n3:=a;
if (g3='putih') then n3:=p;
if (g3='perak') then n3:=0.01;
if (g3='emas') then n3:=0.1;

if (g4='perak') then n4:=10/100;
if (g4='emas') then n4:=50/100;


nilai:=((10*n1)+n2)*(exp(n3*ln(10)));
nilaimax:=nilai+n4;
nilaimin:=nilai-n4;
writeln('nilai resistor = ',nilai:4:2,' ohm');
writeln('toleransi +/- ',n4 :4:2);
writeln('nilaimax resistor = ',nilaimax:4:2,' ohm');
writeln('nilaimin resistor = ',nilaimin:4:2,' ohm');

readln;

donewincrt;
end.

Program Analisa Numerik dengan Metode Biseksi

Program Biseksi;
uses wincrt;
label ulang;
var
x1,x2,x3,y1,y2,y3 : real;
i : integer;
ab : char;
begin
ulang :
clrscr;
writeln('Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Metode Biseksi');
write( 'Masukan nilai x1 = ' );
readln( x1 );

y1 := x1 * x1 * x1 * + x1 * x1 - 3 * x1 -3;
writeln(' Nilai f(x1)= ',y1:0:4);
repeat
begin
write( 'Masukan nilai x2 = ');
readln(x2);
y2 := x2 * x2 * x2 + x2 * x2 - 3 * x2 - 3;
write(' Nilai f(x2)= ',y2:0:4);
end;
if (y1*y2)<0 then
Writeln(' Syarat Nilai Ok')
else
Writeln(' Nilai X2 Belum Sesuai');
until ( y1 * y2 ) < 0;
I :=2;
Writeln;
writeln('Penyelesaian Persamaan Dengan Metode Biseksi, Nilai x1= ',x1:0:2,' & x2= ',x2:0:2);
writeln('--------------------------------------------------------------------------');
writeln('n x f(x) error ');
writeln('--------------------------------------------------------------------------');
repeat
begin
i :=i + 1 ; x3 := ( x1 + x2) / 2;
y3 := x3 * x3 * x3 + x3 * x3 - 3 * x3 -3;
if (i mod 10)=0 then readln;
if i<10 then
writeln(' ',i,' :: ',x3,' :: ',y3,' :: ',abs( y3 ),' ::')
else writeln(i,' :: ',x3,' :: ',y3,' :: ',abs( y3 ),' ::');
if ( y1* y3) <0 then
begin
x2 :=x3;
end else
begin
x1 := x3;
end;
end;
until abs( y3 )<1E-07;
writeln('-------------------------------------------------------------------------');
writeln('akar persamaanya = ',x3);
writeln('errornya =',abs( y3 ));
writeln('-------------------------------------------------------------------------');
write('Apakah anda ingin mengulanginya (y/t): ');
readln(ab);
if (ab='y') or (ab='Y') then
begin
goto ulang;
end
else
donewincrt;
end.

Soal:
Cari akar-akar penyelesaian dari persamaan nonlinear di bawah ini degan metode Biseksi:
1. x3
- x2
- 2x + 1 = 0 2. Xx
= 10

Program MencariPangkat

Program MencariPangkat;
uses wincrt;
Var x : real; y : integer; z : real;

function pangkatBulat(a : real, b : integer) : real;
var i : integer; temp : real;
begin
temp := 1;
for i := 1 to b do
begin
temp := temp * a;

end;
pangkat := temp;
end;

function pangkatRiil(a : real, b : real) : real;
begin
pangkatRiil := exp(b * ln(a));
end;

Begin
x := 5;
y := 3;
z := 3.5;
Write('Nilai ',x,' pangkat ',y,' adalah ',
pangkatBulat(x,y):3:0);
Write('Nilai ',x,' pangkat ',z,' adalah ',
pangkatRiil(x,z):3:4);
End.

program rata-rata

program rata_rata;
uses wincrt;

var
a, mahasiswa : integer;
nilai, total, tinggi, rendah, rata : real;
nama:string;

begin
total := 0;
write ('jumlah mahasiswa : '); readln (mahasiswa);
writeln;
for a := 1 to mahasiswa do

begin
write ('nama mahasiswa ke ',a,' ');readln (nama);
write ('nilai ',nama,' : '); readln (nilai);

total := total + nilai;
if a = 1 then
begin
tinggi := nilai;
rendah := nilai;
end
else begin
if nilai > tinggi then tinggi := nilai
else begin
if nilai < rendah then rendah := nilai
else begin
end;
end;
end;
end;
rata := total / mahasiswa;
writeln;
writeln ('nilai terendah : ',rendah :1:2);
writeln ('nilai tertinggi : ',tinggi :1:2);
writeln ('rata-rata nilai mahasiswa : ',rata :1:2);
readln;
donewincrt
end.

program rata rata

program rata_rata;
uses wincrt;

var
a, mahasiswa : integer;
nilai, total, tinggi, rendah, rata : real;
nama:string;

begin
total := 0;
write ('jumlah mahasiswa : '); readln (mahasiswa);
writeln;
for a := 1 to mahasiswa do

begin
write ('nama mahasiswa ke ',a,' ');readln (nama);
write ('nilai ',nama,' : '); readln (nilai);
total := total + nilai;
end;
rata := total / mahasiswa;
writeln ('rata-rata nilai mahasiswa : ',rata :1:2);
readln;
donewincrt
end.

PROGRAM MENGETAHUI NILAI SUATU RESISTOR

program resistor;
uses wincrt;
var
nilai:real;
n1,n2,n3,n4,nilaimax,nilaimin:real;
g1,g2,g3,g4:string;

begin
writeln('PROGRAM MENGETAHUI NILAI SUATU RESISTOR');
writeln('NAMA : AFIT MIRANTO');
writeln('NPM : G1D009001');
writeln('TEKNIK ELEKTRO UNIVERSITAS BENGKULU');
writeln(' ');
writeln('tulis warna gelang resistor dengan huruf kecil semua');

write('warna gelang 1= ');readln(g1);
write('warna gelang 2= ');readln(g2);
write('warna gelang 3= ');readln(g3);
write('warna gelang 4= ');readln(g4);

if (g1='hitam') then n1:= 0;
if (g1='coklat') then n1:=10;
if (g1='merah') then n1:=20;
if (g1='oranye') then n1:=30;
if (g1='kuning') then n1:=40;
if (g1='hijau') then n1:=50;
if (g1='biru') then n1:=60;
if (g1='ungu') then n1:=70;
if (g1='abu-abu')then n1:=80;
if (g1='putih') then n1:=90;

if (g2='hitam') then n2:=0;
if (g2='coklat') then n2:=1;
if (g2='merah') then n2:=2;
if (g2='oranye') then n2:=3;
if (g2='kuning') then n2:=4;
if (g2='hijau') then n2:=5;
if (g2='biru') then n2:=6;
if (g2='ungu') then n2:=7;
if (g2='abu-abu')then n2:=7;
if (g2='putih') then n2:=9;

if (g3='hitam') then n3:=1;
if (g3='coklat') then n3:=10;
if (g3='merah') then n3:=100;
if (g3='oranye') then n3:=1000;
if (g3='kuning') then n3:=10000;
if (g3='hijau') then n3:=100000;
if (g3='biru') then n3:=1000000;
if (g3='ungu') then n3:=10000000;
if (g3='abu-abu')then n3:=100000000;
if (g3='putih') then n3:=1000000000;
if (g3='perak') then n3:=0.01;
if (g3='emas') then n3:=0.1;

if (g4='perak') then n4:=10/100;
if (g4='emas') then n4:=5/100;


nilai:=((n1+n2)*n3);
nilaimax:=nilai+n4;
nilaimin:=nilai-n4;
writeln('nilai resistor = ',nilai :2:2,' ohm');
writeln('toleransi +/- ',n4:2:2);
writeln('nilai max resistor = ',nilaimax:2:2,' ohm');
writeln('nilai min resistor = ',nilaimin:2:2,' ohm');

readln;

donewincrt;
end.

program mencari akar persamaan kuadrat

program mencari_akar_persamaan_kuadrat;
uses wincrt;

var
x1,x2:real;
a,b,c,d:integer;

begin
writeln('PROGRAM MENCARI AKAR PERSAMAAN KUADRAT ax^2+bx+c=0');
write('diketahui nilai a =');read(a);
write('diketahui nilai b =');read(b);
write('diketahui nilai c =');read(c);

d:=b*b-4*a*c;
if d<0 then writeln('tidak ada hasil akar real')
else
begin
x1:=(-b+(sqrt(d)))/2*a;
x2:=(-b-(sqrt(d)))/2*a;
writeln('x1= ',x1:4:2);
writeln('x2= ',x2:4:2);
end;

readln;
end.

Program Persamaan Kuadrat

Program Persamaan_Kuadrat;
Uses Wincrt;
label ulang;
Var A,B,C:integer;
D,X1,X2:real;
ab:char;
Begin
ulang:
clrscr;
Writeln('Program Persamaan Kuadrat');
Writeln('=========================');
Writeln;

Write('Masukkan Nilai A: ');readln(A);
Write('Masukkan Nilai B: ');readln(B);
Write('Masukkan Nilai C: ');readln(C);
Writeln;

D:=sqr(B)-(4*A*C);
if (D>0) then
begin
X1:=(-B+sqrt(D))/2*A;
X2:=(-B-sqrt(D))/2*A;
Writeln('X1= ',X1:4:1);
writeln('X2= ',X2:4:1);
end
else if (D=0) then
begin
X1:=-B/(2*A);
Writeln('X1=X2=',X1:4:1);
end
else
Writeln('Bukan Akar Real!');
writeln('Apakah anda ingin mengulanginya (y/t): ');
readln(ab);
if (ab='y') or (ab='Y') then
begin
goto ulang;
end
else
donewincrt;
readln
End.

Program nilai mahasiswa

Program nilai_mahasiswa;
uses wincrt;
Var
Nilai : Real ;
Grade : Char ;
nama : string ;
Begin
write('NAMA: ',nama);
read(nama);
Write('NILAI ANDA : ');
Read(Nilai);

If Nilai > 85 Then
Grade := 'A'
else
If Nilai>65 Then
Grade := 'B'
Else
If Nilai > 55 Then
Grade := 'C'
Else
If Nilai > 40 Then
Grade := 'D'
Else
Grade := 'E' ;
Writeln(nama,' KETERANGANNYA : ',grade) ;
readln;
End.

Program deret

#include
#include
#include

main()

{
float a,b,t,k,g;
int pilih;
int lagi;
int i=1,x,nilai;
int n, y, c, q;
int bil1, bil2, sisa_bagi;
ulang:
clrscr();
{
puts ("PILIHAN");
puts ("1. deret ganjil");
puts ("2. deret genap");
puts ("3. deret pangkat");
puts ("4. deret kelipatan");
puts ("5. deret dlm bntuk segitiga");
puts ("6. exit");

printf("\nmasukkan pilihan [1-6]: ");
scanf("%i",&pilih);

if (pilih==1)
{

printf("deret bilangan ganjil \n\n");
printf("masukkan besar bilangan: ");scanf("%i",&nilai);
printf("bilangan ganjil antara 1 sampai %i adalah: \n",nilai);
while(i<=nilai)
{
x=1;
while(x<=nilai)
{
printf("%i,",x);
x=x+2;
}
printf("\n");
i=nilai+1;
}
getch();
}

else if (pilih==2)
{
printf("deret bilangan genap \n\n");
printf("masukkan besar bilangan: ");scanf("%i",&nilai);
printf("bilangan genap antara 2 sampai %i adalah: \n",nilai);
while(i<=nilai)
{
x=2;
while(x<=nilai)
{
printf("%i,",x);
x=x+2;
}
printf("\n");
i=nilai+1;
}
getch();
}
else if (pilih==3)
{
printf("deret bilangan pangkat \n\n");
printf("masukkan besar bilangan: ");scanf("%i",&nilai);
printf("bilangan pangkat antara 1 sampai %i adalah: \n",nilai);
while(i<=nilai)
{
x=1;
while(x<=nilai)
{
printf("%i,",x);
x=x+1*x;
}
printf("\n");
i=nilai+1;
}
getch();
}
else if (pilih==4)
{
printf("Program Mencari FPB\n\n");
printf("Masukan Bilangan 1 : ");
scanf("%i",&bil1);
printf("Masukan Bilangan 2 : ");
scanf("%i",&bil2);
sisa_bagi = bil1 % bil2;
while(sisa_bagi != 0)
{
bil1 = bil2;
bil2 = sisa_bagi;
sisa_bagi = bil1 % bil2;
}
printf("FPB %i",bil2);
return 0;
}
else if (pilih==5)
{
printf("segitiga bintang\n");
printf("ketikkan banyaknya baris: ");
scanf("%d",&n);
for (y = 0; y < n; y++)
{
for(q = 0; q < n - y; q++)
{
printf("*");
}
printf("\n");
}
printf("\n");
return 0;
}
else if (pilih==6)
{
printf("anda memilih untuk keluar");
}
else
printf("\npilihan yang anda masukkan salah !");
printf("\n\napakah anda ingin mengulang?(y/n)\n");
printf("1. ya\n");
printf("2. tidak\n");
printf("pilihan anda: ");
scanf("\n\n%i",&lagi);
if (lagi==1)
goto ulang;
else
goto end;
}
end:
{
getch();

}
}

KALKULATOR SEDERHANA3

#include
#include
#include

main()

{
float a,b,t,k,x,g;
int pilih;
int lagi;
ulang:
clrscr();
{
puts ("KALKULATOR SEDERHANA");
puts ("1. PENJUMLAHAN(+)");
puts ("2. PENGURANGAN(-)");
puts ("3. PERKALIAN(x)");
puts ("4. PEMBAGIAN(/)");
puts ("5. KELUAR");

printf("\nmasukkan pilihan [1-3]: ");
scanf("%i",&pilih);

if (pilih==1)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
t=a+b;
printf("\nnilai %f + %f = %f",a,b,t);

}

else if (pilih==2)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
k=a-b;
printf("\nnilai %f - %f = %f",a,b,k);

}
else if (pilih==3)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
x=a*b;
printf("\nnilai %f x %f = %f",a,b,x);
}
else if (pilih==4)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
g=a/b;
printf("\nnilai %f / %f = %f",a,b,g);
}
else if (pilih==5)
printf("anda memilih untuk keluar!\n");
else
printf("\npilihan yang anda masukkan salah !");
printf("\n\napakah anda ingin mengulang?(y/n)\n");
printf("1. ya\n");
printf("2. tidak\n");
printf("pilihan anda: ");
scanf("\n\n%i",&lagi);
if (lagi==1)
goto ulang;
else
goto end;
}
end:
{
getch();

}
}

Program Tukar_Nilai

/*Program Tukar_Nilai*/

#include
main()
{
int A, B, temp;
printf("Masukkan nilai A: "); scanf("%d",&A);
printf("Masukkan nilai B: "); scanf("%d",&B);
/* ALGORITMA */
temp = A;
A = B;
B = temp;

printf("Nilai A setelah pertukaran adalah: %d\n", A);
printf("Nilai B setelah pertukaran adalah: %d", B);
}

Mencari total dan rata-rata sejumlah bilangan menggunakan for

/* Mencari total dan rata-rata sejumlah bilangan menggunakan for */
#include"stdio.h"
#include"conio.h"
void main()
{ clrscr();
float r,i,x,t=0;int y;
for(y=1;y<=3;y++)
for(i=0;i<=2;i++)
{
printf("Entry bilangan %i : ",y);
scanf("%f",&x);
t=t+x;
y=y+1;

}
printf("\n Total : %.2f",t);
r=t/i;
printf("\n Rata rata : %.2f",r);
getch();
}

Program mencetak deret bilangan ganjil dengan menggunakan while

/* Program mencetak deret bilangan ganjil dengan menggunakan while */
#include"stdio.h"
#include"conio.h"
void main()
{ clrscr();
int i=1,x;
while(i<=4)
{ x=1;
while(x<=i)
{ printf("%3i",x);
x=x+1;

}
printf("\n");
i=i+1;
}
getch();
}

pengujian hukum ohm

#include
#include

main()
{
float V,I,R;
int pilih;

puts ("pengujian hukum ohm");
puts ("1. hitung tegangan");
puts ("2. hitung arus");
puts ("3. hitung resistansi");

printf("\nmasukkan pilihan [1-3]: ");
scanf("%i",&pilih);

if (pilih==1)
{
printf("\nmasukkan nilai arus :");
scanf("%f",&I);
printf("masukkan nilai resistansi :");
scanf("%f",&R);
goto tegangan;
}

else if (pilih==2)
{
printf("\nmasukkan nilai tegangan : ");
scanf("%f",&V);
printf("masukkan nilai resistansi : ");
scanf("%f",&R);
goto arus;
}
else if (pilih==3)
{
printf("\nmasukkan nilai tegangan : ");
scanf("%f",&V);
printf("masukkan nilai arus : ");
scanf("%f",&I);
goto resistansi;
}
else printf("\npilihan yang anda masukkan salah !");

tegangan:
{
V=I*R;
printf("\nnilai tegangan = %f",V);
}

arus:
{
I=V/R;
printf("\nnilai arus = %f",I);
}

resistansi:
{
R=V/I;
printf("\nnilai resistansi = %f",R);
}
getch();
}

PERHITUNGAN DAYA AKTIF DANB REAKTIF

#include
#include

main()
{
float S,P,Q,cosphi;
cosphi=0;
puts ("===PERHITUNGAN DAYA AKTIF DANB REAKTIF===");
puts ("berdasarkan operubahan cos phi");
printf("masukkan nilai daya semu");
scanf("%f",&S);
while (cosphi <= 1)

{
P=S*cosphi;
Q=S*(1-cosphi);
printf("\ncosphi= %f P = %f Q = %f", cosphi, P,Q);
cosphi +=0.1;
}
getch();
}

PERHITUNGAN SEGITIGA DAYA

#include
#include

main()
{
int kode;
float S,V,I,P,Q,CosPhi,SinPhi;

puts ("===PERHITUNGAN SEGITIGA DAYA===");
puts ("1. DAYA SEMU");
puts ("2. DAYA AKTIF");
puts ("3. DAYA REAKTIF");
printf("\nmasukkan kode pilihan [1-3]: ");
scanf("%i",&kode);

switch(kode)
{
case 1:
puts("");
puts("perhitungan daya semu");
printf("masukkan nilai tegangan: ");
scanf("%f",&V);
printf("masukkan nilai arus: ");
scanf("%f",&I);
S=V*I;
printf("\ndaya semu = %f",S);
break;

case 2:
puts("");
puts("perhitungan daya aktif");
printf("masukkan nilai daya semu: ");
scanf("%f",&S);
printf("masukkan nilai cos Phi: ");
scanf("%f",&CosPhi);
P=S*CosPhi;
printf("\ndaya aktif = %f",P);
break;

case 3:
puts("");
puts("perhitungan daya reaktif");
printf("masukkan nilai daya semu: ");
scanf("%f",&S);
printf("masukkan nilai sin Phi: ");
scanf("%f",&SinPhi);
Q=S*SinPhi;
printf("\ndaya reaktif = %f",Q);
break;

default:
puts("");
puts("kode yang anda masukkan salah !!!");
}
getch();
}

KALKULATOR SEDERHANA

#include
#include

main()
{
float a,b,t,k,x,g;
int pilih,lagi;

ulang:
{
clrscr();
puts ("KALKULATOR SEDERHANA");
puts ("1. PENJUMLAHAN(+)");
puts ("2. PENGURANGAN(-)");
puts ("3. PERKALIAN(x)");
puts ("4. PEMBAGIAN(/)");
puts ("5. KELUAR");
printf("\nmasukkan pilihan anda [1-5]: ");
scanf("\n%i",&pilih);
switch(pilih)
{
case 1:

puts("\nPENJUMLAHAN");
printf("masukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
t=a+b;
printf("hasil dari %f + %f = %f",a,b,t);
break;
case 2:
puts("\nPENGURANGAN");
printf("masukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
k=a-b;
printf("hasil dari %f - %f = %f",a,b,k);
break;
case 3:
puts("\nPERKALIAN");
printf("masukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
x=a*b;
printf("hasil dari %f x %f = %f",a,b,x);
break;
case 4:
puts("\nPEMBAGIAN");
printf("masukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
g=a/b;
printf("hasil dari %f / %f = %f",a,b,g);
break;
case 5:
puts("\nanda memilih untuk keluar!");
break;
default:
puts("\npilihan yang anda masukkan salah !");
}
puts("\napakah anda ingin mengulang?");
puts("1. ya");
puts("2. tidak");
printf("pilihan anda :");
scanf("%i",&lagi);
if (lagi==1)
{
goto ulang;
}
else
{
puts("selesai");
}
}
getch();
}

program rata-rata

/*program rata_rata*/;
#include;
int a, mahasiswa;
int nilai, total, tinggi, rendah, rata;
char nama;
main()
{
total = 0;
printf("jumlah mahasiswa : ");
scanf("%i",&mahasiswa);
{
mahasiswa=mahasiswa+1;

printf ("nama mahasiswa ke %i",mahasiswa
);
scanf ("%i",&mahasiswa);
printf ("nilai ",nama,": "); scanf ("%i",&nilai);
total = total + nilai;
}
rata = total / mahasiswa;
printf ("rata-rata nilai mahasiswa : ",rata);
}

password

#include
#include
#include
main( )
{

char nama[20], kelas[10], password[4];
atas:

cout<<" S E L A M A T D A T A N G" ;
cout<cout<<" Silahkan masukkan User Name & Password" ;
cout<cout<
cout<<" UserName : " ; cin>>nama;
cout<<" Kelas : " ; cin>>kelas;
cout<<" Password : " ; cin>>password;
if (strcmp(password,"aaa")==0)
{
cout<<" Terima Kasih atas Partisipasinya..!" ;
cout<cout<<" Tekan Sembarang Mas..!" ;
goto bawah;
}
else
{
cout<<
cout<<" Password Salah Bro..!" ;
clrscr();
goto atas;
}
bawah:
getch();
}

Pascal Triangle Program

#include
int main()
{
int n, x, y, c, q;
printf("Pascal Triangle Program\n");
printf("Enter the number of rows: ");
scanf("%d",&n);
for (y = 0; y < n; y++)
{
c = 1;
for(q = 0; q < n - y; q++)
{

printf("%3s", " ");
}
for (x = 0; x <= y; x++)
{
printf(" %3d ",c);
c = c * (y - x) / (x + 1);
}
printf("\n");
}
printf("\n");
return 0;

}

Program Mencari persamaan kuadrat

#include "stdio.h"
#include "math.h"

int main()
{
float a, b, c, D, X, X1, X2, XRiil, XImajiner;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("Program Mencari persamaan kuadrat\n\n");

printf("Perhitungan akar-akar persamaan aX2+bX+c=0\n");
printf("Masukkan nilai koefisien a, b, dan c:\n");
printf("Masukkan nilai koefisien a: "); scanf("%f", &a);
printf("Masukkan nilai koefisien b: "); scanf("%f", &b);
printf("Masukkan nilai koefisien c: "); scanf("%f", &c);

D = b*b-4*a*c;
printf("Diskriminan = %g\n", D);
printf("Akar persamaan %gX^2 + %gX + %g = 0 adalah:\n", a, b, c);
if (D > 0)
{
X1 = (-b+sqrt(D))/(2*a);
X2 = (-b-sqrt(D))/(2*a);
printf("X1 = %g\n", X1);
printf("X2 = %g\n", X2);
}
else if (D == 0) {
X = -b/(2*a);
printf("X1 = X2 = %g\n", X);
}
else {
XRiil = -b/(2*a);
XImajiner = sqrt(-D)/(2*a);
printf("Akar imajiner:\n");
printf("X1 = %g+%g*i\n", XRiil, XImajiner);
printf("X2 = %g-%g*i\n", XRiil, XImajiner);
}
return 0;
}

Program Mencari luas dan keliling lingkaran

#include
#include
//Program untuk menghitung luas lingkaran
main()
{
float pi = 3.1415;
float r;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("Program Mencari luas dan keliling lingkaran\n\n");

printf ("Jari-jari lingkaran = ");
scanf ("%f", &r);
printf ("keliling lingkaran = %f\n", 2 * pi * r);
printf ("Luas lingkaran = %f", pi * r * r);
getch();
}

FPB

#include

int main()
{
int bil1, bil2, sisa_bagi;
cout<<"Nama : afit miranto\n";
cout<<"NPM : G1D009001\n";
cout<<"Prodi: Teknik Elektro\n\n";
cout<<"Program Mencari FPB\n\n";

cout << "Masukan Bilangan 1 : ";
cin >> bil1;

cout << "Masukan Bilangan 2 : ";
cin >> bil2;

sisa_bagi = bil1 % bil2;
while(sisa_bagi != 0)
{
bil1 = bil2;
bil2 = sisa_bagi;
sisa_bagi = bil1 % bil2;
}

cout<< "FPB : " << bil2 << endl;
return 0;
}

Program faktorial

#include //untuk cin dan cout
#include //untuk fungsi getch()
float faktorial2(int x)
{
if(x==0)
return 1;
else
return x*faktorial2(x-1);
}
void main()
{
int i, N; //deklarasi nilai N


cout<<"Nama : afit miranto\n";
cout<<"NPM : G1D009001\n";
cout<<"Prodi: Teknik Elektro\n\n";
cout<<"Program faktorial\n\n";
cout<<"Masukan nilai N untuk N! : ";
cin>>N; //input nilai N
for(i=1;i<=N;i++)
{
cout< }
getch();
}

program konversi bilangan desimal ke biner

#include
#include
char ch[10]="0123456789"; //deklarasi nilai decimal
void biner(int nilai)
{
if(nilai==0){
return;
}
biner(nilai/2); //proses untuk membagi nilai decimal dengan 2
cout<
}
void main()
{
int decimal;
cout<<"Nama : afit miranto\n";
cout<<"NPM : G1D009001\n";
cout<<"Prodi: Teknik Elektro\n\n";
cout<<"program konversi bilangan desimal ke biner\n\n";
cout<<"Masukan nilai decimal : ";
cin>>decimal;
cout<<"Nilai binernya adalah : ";
biner(decimal);
cout< getch();
}

Program mencetak deret bilangan dengan menggunakan while

/* Program mencetak deret bilangan dengan menggunakan while */
#include"stdio.h"
#include"conio.h"
void main()
{
clrscr();
int i=1,x,nilai;
printf("deret bilangan ganjil \n\n");
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("masukkan besar bilangan: ");scanf("%i",&nilai);

printf("bilangan ganjil antara 1 sampai %i adalah: \n",nilai);
while(i<=nilai)
{
x=1;
while(x<=nilai)
{
printf("%i,",x);
x=x+2;
}
printf("\n");
i=nilai+1;
}
getch();
}

segitiga bintang

#include
int main()
{
int n, x, y, c, q;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("segitiga bintang\n");
printf("ketikkan banyaknya baris: ");
scanf("%d",&n);
for (y = 0; y < n; y++)
{

for(q = 0; q < n - y; q++)
{
printf("*");
}
printf("\n");
}
printf("\n");
return 0;

}

program mencari bilangan prima

#include
#include
int prima(int bil){
int i;
for(i=2; i < bil;i++)
{
if(bil%i==0){
return(0);}}
return(1);}
int main(){
int jarak,i;

printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("program mencari bilangan prima \n");
printf("jarak bilangan yg diinginkan: ");
scanf("%d",&jarak);
printf("2");
for(i=3;i<=jarak;i++){
if(prima(i)){
printf(",%d",i);
}}}

menentukan bilangan terbesar dan terkecil

#include
#include
void main()
{ clrscr();
int a,b,c,d,e,max,min;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("menentukan bilangan terbesar dan terkecil\n");

printf("masukkan bil 1 : ");fflush(stdin);scanf("%i",&a);
printf("masukkan bil 2 : ");fflush(stdin);scanf("%i",&b);
printf("masukkan bil 3 : ");fflush(stdin);scanf("%i",&c);
printf("masukkan bil 4 : ");fflush(stdin);scanf("%i",&d);
printf("masukkan bil 5 : ");fflush(stdin);scanf("%i",&e);
if((a>=b)&&(a>=c)&&(a>=d)&&(a>=e))
max=a;
if((b>=a)&&(b>=c)&&(b>=d)&&(b>=e))
max=b;
if((c>=a)&&(c>=b)&&(c>=d)&&(c>=e))
max=c;
if((d>=a)&&(d>=b)&&(d>=c)&&(d>=e))
max=d;
if((e>=a)&&(e>=b)&&(e>=d)&&(e>=c))
max=e;
printf("Bil terbesar adalah: %i\n",max);
if((a<=b)&&(a<=c)&&(a<=d)&&(a<=e))
min=a;
if((b<=a)&&(b<=c)&&(b<=d)&&(b<=e))
min=b;
if((c<=a)&&(c<=b)&&(c<=d)&&(c<=e))
min=c;
if((d<=a)&&(d<=b)&&(d<=c)&&(d<=e))
min=d;
if((e<=a)&&(e<=b)&&(e<=d)&&(e<=c))
min=e;
printf("Bil terkecil adalah: %i\n",min);
getch();
}

bilangan terbesar

#include
#include
#include

main()
{
int bilangan,min,max,n,nilai;
bilangan=0;
printf("masukkan banyaknya bilangan: ");
scanf("%i",&n);
while (bilangan < n)

{
bilangan=bilangan+1;
printf("masukkan bilangan ke %i ",bilangan);
scanf("%i",&nilai);
}
for(max=0; max< nilai; max++)
{
printf("\nbilangan terbesar adalah %i",nilai);
}

getch();
}

contoh penggunaan if

/*contoh penggunaan if*/
#include;
int x,y;

main()
{
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("contoh penggunaan if\n");
printf("masukkan nilai integer untuk x : ");
scanf("%d",&x);

printf("masukkam nilai integer untuk y : ");
scanf("%d",&y);
if (x==y)
printf("x sama dengan y\n");
if (x > y)
printf("x lebih besar dari y\n");
if (x < y)
printf("x lebih kecil dari y\n");
return 0;
}

Program untuk menginput nilai mahasiswa ke dalam array satu dimensi

/* Program untuk menginput nilai mahasiswa ke dalam array satu dimensi */
#include
#include
void main()
{
int index, nilai[10], bilangan;
clrscr();
/* input nilai mahasiswa */
printf("masukkan banyaknya bilangan: ");
scanf("%i", &bilangan);
for(index=0; index < bilangan; index++)
{ printf("bilangan ke%i : ", index+1);
scanf("%i", &nilai[index]);
}
/* tampilkan nilai mahasiswa */
printf("\nbilangan yang telah diinput\n");
for(index=0; index < bilangan; index++)
{ printf("%5.0i", nilai[index]);
}

getch();
}

Mencari total dan rata-rata sejumlah bilangan menggunakan for

/* Mencari total dan rata-rata sejumlah bilangan menggunakan for */
#include"stdio.h"
#include"conio.h"
void main()
{ clrscr();
float r,i,x,t=0;int y;
for(y=1;y<=3;y++)
for(i=0;i<=2;i++)
{
.
printf("Entry bilangan %i : ",y);
scanf("%f",&x);
t=t+x;
y=y+1;
}
printf("\n Total : %.2f",t);
r=t/i;
printf("\n Rata rata : %.2f",r);
getch();
}

kalkulator sederhana

#include
#include
#include

main()

{
float a,b,t,k,x,g;
int pilih;
int lagi;
ulang:
clrscr();
{
.
puts ("KALKULATOR SEDERHANA");
puts ("1. PENJUMLAHAN(+)");
puts ("2. PENGURANGAN(-)");
puts ("3. PERKALIAN(x)");
puts ("4. PEMBAGIAN(/)");
puts ("5. KELUAR");

printf("\nmasukkan pilihan [1-3]: ");
scanf("%i",&pilih);

if (pilih==1)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
t=a+b;
printf("\nnilai %f + %f = %f",a,b,t);

}

else if (pilih==2)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
k=a-b;
printf("\nnilai %f - %f = %f",a,b,k);

}
else if (pilih==3)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
x=a*b;
printf("\nnilai %f x %f = %f",a,b,x);
}
else if (pilih==4)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
g=a/b;
printf("\nnilai %f / %f = %f",a,b,g);
}
else if (pilih==5)
printf("anda memilih untuk keluar!\n");
else
printf("\npilihan yang anda masukkan salah !");
printf("\n\napakah anda ingin mengulang?(y/n)\n");
printf("1. ya\n");
printf("2. tidak\n");
printf("pilihan anda: ");
scanf("\n\n%i",&lagi);
if (lagi==1)
goto ulang;
else
goto end;
}
end:
{
getch();

}
}

membuat segitiga bintang

#include
int main()
{
int n, x, y, c, q;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("segitiga bintang\n");
printf("ketikkan banyaknya baris: ");
scanf("%d",&n);
for (y = 0; y < n; y++)
{
.
for(q = 0; q < n - y; q++)
{
printf("*");
}
printf("\n");
}
printf("\n");
return 0;

}