program bahasa pascal bagian 1

Program menentukan grade 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 mencari 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 persamaan kuadrat 2
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 mencari 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 nilai rata2
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.

pujaan hati- kangen band

Intro : A E F#m C#m D A Bm E

A E
Hei pujaan hati apa kabarmu
F#m C#m
Ku harap kau baik-baik saja
D A
Pujaan hati andai kau tau
Bm E
Ku sangat mencintai dirimu

A E
* hey pujaan hati setiap malam
F#m C#m
Aku berdoa kepada sang Tuhan
D A
Berharap cintaku jadi kenyataan
Bm E
Agar ku tenang meniti kehidupan
D E
Hey pujaan hati, pujaan hati
D E
pujaan hati,., pujaan hati

Reff :
A E
Mengapa engkau tau membalas cintaku
F#m C#m
Mengapa engkau abaikan rasaku
D A
Ataukah mungkin hatimu membatu
Bm E
Hingga kau tak pernah pedulikan aku
A E
Cobalah mengerti keadaanku
F#m C#m
Dan cobalah pahami keinginanku
D A
Ku ingin engkau menjadi milikku
Bm E
Lengkapi jalan cerita hidupku

D E
pujaan hati,., pujaan hati

Interlude : A E F#m C#m D A Bm E
Balik ke *, Reff 2x

D E
pujaan hati,., pujaan hati
D E
pujaan hati,., pujaan hati
D E
pujaan hati,., pujaan hati
D E
pujaan hati,., pujaan hati

Angkasa – Jangan Ada Dusta Di Antara Kita

C#m G#m
Semua terserah padamu
A E
Aku begini adanya
C#m G#m
Ku hormati keputusanmu
A F#m B
Apapun yang akan kau katakan E B C#m
Ketika pertama ku jumpa denganmu
A G#m F#m B
Bukankah pernah ku tanyakan padamu kasih
E B C#m .
Takkan kecewakah kau pada diriku

A G#m F#m B
Takkan menyesalkah kau hidup denganku nanti [intro] E B C#m F#m B E E B C#m
Memang kau bukan yang pertama bagiku
A G#m F#m B
Pernah satu hati mengisi hidupku dulu
E B C#m
Dan kini semua kau katakan padaku
A G#m F#m B
Jangan ada dusta di antara kita kasih [intro] E B C#m F#m B E [chorus]
C#m G#m
Semua terserah padamu
A E
Aku begini adanya
C#m G#m
Ku hormati keputusanmu
A F#m A B
Apapun yang akan kau katakan
A E/G# F#m E
Sebelum terlanjur kita jauh melangkah
B E
Kau katakan saja [interlude] E B C#m F#m B
E B C#m F#m B C# D#m A#m
Semua terserah padamu
B F#
Aku begini adanya
D#m A#m
Ku hormati keputusanmu
B G#m B C#
Apapun yang akan kau katakan
B F# G#m F#
Sebelum terlanjur kita jauh melangkah
C# F#
Kau katakan saja

Zigaz | Sahabat Jadi Cinta

Intro: B
B E
Kuhantarkan bak di pelataran
E G#m
Hati yang temaran
E B
Matamu juga mata mataku
C#m F#m
Ada hasrat yang mungkin terlarang

*
E B .
Satu kata yang sulit terucap
E G#m
Hingga batinku tersiksa
E B
Tuhan tolong aku jelaskanlah
C#m F#m
Perasaanku berubah jadi cinta

Reff :
B F#m
Tak bisa hatiku merafikan cinta
G#m F#m
Karena cinta tersirat bukan tersurat
E D#m
Meski bibirku terus berkata tidak
C#m F#m
Mataku terus pancarkan sinarnya

E B
Kudapati diri makin tersesat
E G#m
Saat kita bersama
E B
Desah nafas yang tak bisa truskan
C#m F#m
persahabatan jadi cinta

Back To *
Back to Reff

Reff*:
B F#m
Apa yang kita kini tengah rasakan
G#m F#m
Mengapakah kita coba persatukan
E D#m
Mungkin cobaan untuk persahabatan
C#m F#m B
Atau mungkin sebuah takdir Tuhan

wali

[intro] C#m G#m A E A E href="http://www.chordfrenzy.com/chord/1917/wali/baik-baik-sayang-kord-lirik-lagu#" class="showTip B">B .

E G#m C#m G#m
Aku tak ingin kau menangis bersedih
A E B
Sudahi air mata darimu
E G#m C#m G#m
Yang aku ingin arti hadir diriku
A E B
kan menghapus dukamu sayang

A B E C#m
Karena bagiku kau kehormatanku
F#m B
Dengarkan dengakan aku

[chorus]
C#m G#m A E
Hanya satu pintaku untukmu dan hidupmu
A E F#m B
Baik baik sayang ada aku untukmu
C#m G#m A E
Hanya satu pintaku di siang dan malammu
A E F#m B
Baik baik sayang karna aku untukmu


E G#m C#m G#m
Semua keinginan akan aku lakukan
A E B
Sekuat semampuku sayang

A B E C#m
Karena bagiku kau kehormatanku
F#m B
Dengarkan dengakan aku

[chorus]
C#m G#m A E
Hanya satu pintaku untukmu dan hidupmu
A E F#m B
Baik baik sayang ada aku untukmu
C#m G#m A E
Hanya satu pintaku di siang dan malammu
A E F#m B
Baik baik sayang karna aku untukmu

[interlude] C#m A B E
C#m A B

[chorus]
C#m G#m A E
Hanya satu pintaku untukmu dan hidupmu
A E F#m B
Baik baik sayang ada aku untukmu
C#m G#m A E
Hanya satu pintaku di siang dan malammu
A E F#m B
Baik baik sayang karna aku untukmu

[outro] E

adrian

Kuingin Kau Tahu - Adrian Martadinata

Bm D G Bm
Selama aku pergi ku akan mengingatmu

Bm D G A F#m G
Tak hanya sementara selalu dan selalu kurindukan

F#m G A
Senyummu untukku di sini

Reff:

B
E
Ku ingin kau tahu meskipun ku jauh

G#m F# E .
Ku ada di hatimu

B E
Ku ingin kau tahu meskipun kau jauh

G#m F# E F# Bm
Kau tetap milikku selamanya

Bm D G A F#m
Ku bernyanyi untukmu, untukmu yang kurindukan

G F#m G A
Tetaplah setia menungguku kan kembali

Reff:

B E
Ku ingin kau tahu meskipun ku jauh

G#m F# E
Kau ada di hatiku

B E
Ku ingin kau tahu meskipun kau jauh

G#m F# E F# B
Kau tetap milikku selamanya

kotak

Beraksi - Kotak

Intro: F# G F# G F# G F# A B G 3x
F# G-F# G-F# G-F# G-F#

F# G-F# G-F#
Ketika siapa saja sendirian
F# G-F# G-F#
Berdiam diri tak ada hiburan
F# G-F# G-F#
Jika kau merasakan kesepian
F# A
Datang kemari kita senang-senang .

B
Semua berdiri
G A-G-F#
waktunya beraksi


F# G F# G F# G F# A B G


F# G-F# G-F#
Penindasan kekerasaan gak jaman
F# G-F# G-F#
Kami datang membawa perdamaian
F# G-F# G-F#
Ciptakan suasana tak terlupakan
F# A
Lantangkan suaramu dan teriakkan

B
Alunan distorsi
G A B
kotak pun beraksi

B G-B B G-B
Yang ada disana, yang ada disini
A-G-F#
Semua ikut bernyanyi
B G-B
Hey, yang datang disini
B G-B
Jangan bikin keki
A-G-F#
Bikin suasana happy

G-F#
Beraksi..
G-F#
Beraksi..

Interlude: F# G F# F F# 3x

F# G-F#
Hey.., yang ada disana
A-G-F#
Semua bernyanyi
F# G-F#
Hey.., yang ada disini
A-G-F#
Semua happy

kotak

Kotak - Sebelum Ku Kembali kord dan lirik

Intro : B

C# D#m
Terjaga
B C# D#m
Ku diujung pagi
B C# D#m
Bawa ku
B C# G#m
Nikmati indah duniawi .
B C# D#m
Sendiri

B C# D#m
Bertanya dihati
B C# D#m
Akankah
B C# G#m
Semuanya akan abadi

F# B D#m C#
Ku pejamkan sejenak mataku
F# B D#m C# A# B
Ku buka hatiku sebelum ku kembali untukmu

B C# D#m
Ku yakini
B C# D#m
Nikmat yang kau beri
B C# D#m
Segalanya
B C# G#m
Padamu kan kembali

F# B D#m C#
Ku pejamkan sejenak mataku
F# B D#m C#
Ku buka hatiku sebelum ku kembali
F# B D#m C#
Ku pejamkan sejenak mataku
F# B D#m C# A# B
Ku buka hatiku sebelum ku kembali untukmu

Car Battery Charger

This charger will quickly and easily charge most any lead acid battery. The charger delivers full current until the current drawn by the battery falls to 150 mA. At this time, a lower voltage is applied to finish off and keep from over charging. When the battery is fully charged, the circuit switches off and lights a LED, telling you that the cycle has finished.



Part Total Qty. Description Substitutions
R1 1 500 Ohm 1/4 W Resistor
R2 1 3K 1/4 W Resistor
R3 1 1K 1/4 W Resistor
R4 1 15 Ohm 1/4 W Resistor
R5 1 230 Ohm 1/4 W Resistor
R6 1 15K 1/4 W Resistor

R7 1 0.2 Ohm 10 W Resistor
C1 1 0.1uF 25V Ceramic Capacitor
C2 1 1uF 25V Electrolytic Capacitor
C3 1 1000pF 25V Ceramic Capacitor
D1 1 1N457 Diode
Q1 1 2N2905 PNP Transistor
U1 1 LM350 Regulator
U2 1 LM301A Op Amp
S1 1 Normally Open Push Button Switch
MISC 1 Wire, Board, Heatsink For U1, Case, Binding Posts or Alligator Clips For Output
Notes.

Gambar rangkaian skematik efek gitar FA-1 Preamp dari Boss

Kali ini kita akan mempelajari sebuah sirkuit rangkaian efek gitar FA-1 dari boss, FA-1 merupakan pedal keluaran sekitar tahun 80-an tepatnya di awal tahun, pedal ini sudah tidak diproduksi lagi jika dicari di pasaranpun harganya juga meroket, maka dari itu tidak ada salahnya jika kita pelajari rangkaian elektroniknya. Sekedar mengingat lagi pedal ini merupakan pream/EQ yang banyak diminati oleh para gitaris pada eranya.

Nah untuk mempersingkat kata maka bagi kamu yang pengen mengetahui rangkaian dari DS-2 berikut ini adalah bagannya:

Klik digambar untuk memperbesar..!!

boss fa-1

boss fa-1
.