-
The All-American Reject - Dirty Little Secreet
Artist : The All-American Reject
Title : Dirty Little Secreet
Album : Move Along
Genre : Alternative rock, Powerpop
Year : 2005
Dirty Little Secret
Intro: A/G 4x Verse: A E F#m Let me know that I've done wrong D When I've known this all along A E F#m I go around a time or two D Just to waste my time with you Prechorus: Bm F#m Tell me all that you've thrown away D Find out games you don't wanna play E You are the only one that needs to know Chorus: A D F#m E I'll keep you my dirty little secret (Dirty little secret) A D F#m Don't tell anyone or you'll be just another regret E (Just another regret, hope that you can keep it) D My dirty little secret Who has to know Verse: A E F#m When we live such fragile lives D A It's the best way we survive E F#m I go around a time or two D Just to waste my time with you Prechorus: Bm F#m Tell me all that you've thrown away D Find out games you don't wanna play E You are the only one that needs to know Chorus: A D F#m E I'll keep you my dirty little secret (Dirty little secret) A D F#m Don't tell anyone or you'll be just another regret E (Just another regret, hope that you can keep it) D My dirty little secret Who has to know F#m D The way she feels inside (inside) F#m Those thoughts I can't deny (deny) D These sleeping dogs won't lie (won't lie) And now I'll try to lie F#m It’s eating me apart D Trace this life out Intro 4x A D F#m E I'll keep you my dirty little secret(Dirty little secret) A D F#m Don't tell anyone or you'll be just another regret(Just another regret) Chorus: A D F#m E I'll keep you my dirty little secret(Dirty little secret) A D F#m Don't tell anyone or you'll be just another regret E (Just another regret, hope that you can keep it) D F#m My dirty little secret D F#m Dirty little secret D A Dirty little secret Who has to know Intro 2x Who has to know
www.ultimate-guitar.com
Boys Like Girls - Thunder
Artist : Boys Like Girls
Title : Thunder
Album : Boys Like Girls
Genre : Alternative rock, punk rock, Powerpop
Year : 2006
THUNDER CHORD
D G/D Today is a winding road C#/D that's taking me to places that I didn't want to go A/D Whoa (whoa, whoa, whoa) D G/D Today in the blink of an eye C#/D I'm holding on to something and I do not know why A/D I tried PRE-CHORUS Bm/D I tried to read between the lines A/D I tried to look in your eyes F#m/D I want a simple explanation D For what I'm feeling inside G/D I gotta find a way out A/D Maybe there's a way out CHORUS D A/D Your voice was the soundtrack of my summer G/D Do you know you're unlike any other? Bm/D A/D You'll always be my thunder, and I said D A/D Your eyes are the brightest of all the colors G/D I don't wanna ever love another Bm/D A/D You'll always be my thunder G/D A/D So bring on the rain D And bring on the thunder (play VERSE) Today is a winding road Tell me where to start and tell me something I don't know Whoa (whoa, whoa, whoa) Today I'm on my own I can't move a muscle and I can't pick up the phone I don't know (I don't know, I don't know, I don't know) (play PRE-CHORUS) And now I'm itching for the tall grass And longing for the breeze I need to step outside Just to see if I can breathe I gotta find a way out Maybe theres a way out (play CHORUS) Your voice was the soundtrack of my summer Do you know you're unlike any other? You'll always be my thunder, and I said Your eyes are the brightest of all the colors I don't wanna ever love another You'll always be my thunder So bring on the rain BRIDGE Em/D Yeah I'm walking on a tightrope Bm/D I'm wrapped up in vines A/D I think we'll make it out G/D But you just gotta give me time D Strike me down with lightning Bm/D Let me feel you in my veins A/D G/D I wanna let you know how much I feel your pain PRE-OUTRO CHORUS D C#/D G/D Today is a winding road that's taking me to places that I didn't want to go A/D Whoa OUTRO CHORUS D A/D Your voice was the soundtrack of my summer G/D Do you know you're unlike any other? Bm/D A/D You'll always be my thunder, and I said D D A/D Your eyes are the brightest of all the colors G/D I don't wanna ever love another Bm/D A/D You'll always be my thunder, and I said D A/D Your voice was the soundtrack of my summer G/D Do you know you're unlike any other? Bm/D A/D You'll always be my thunder G/D A/D So bring on the rain G/D A/D (ring out) Oh baby bring on the pain D And listen to the thunder www.Ultimate-guitar.com
Tugas Pemrograman Dasar
.png)
Soal I
Buatlah sebuah program secara modular untuk membuat kartu hasil studi mahasiswa ( pada semester tertentu dengan matakuliah sebanyak 5 matakuliah, sks, dan huruf mutu diinput melalui keyboard ).
uses crt;
var
s : array [1..5] of integer;
hm : array [1..5] of char;
n : array [1..5] of integer;
i,JS,hms,hmn : integer;
IP : real;
u : char;
procedure header;
begin
write ('Nama Mahasiswa : ');
readln;
write ('Kelas : ');
readln;
write ('Semester : ');
readln;
end;
procedure mata_kuliah;
begin
for i:=1 to 5 do
begin
write ('Matakuliah ',i,': ');readln;
gotoxy (40,(4+i));
write ('SKS : ');readln (s[i]);
gotoxy (60,(4+i));
write ('HM:');readln (hm[i]);
end;
end;
procedure Jumlah_SKS;
begin
JS:=(s[1]+s[2]+s[3]+s[4]+s[5]);
writeln ('Jumlah SKS : ',JS);
end;
procedure conversi;
begin
for i:=1 to 5 do
begin
if upcase(hm[i])='A' then
n[i]:=4
else if upcase(hm[i])='B' then
n[i]:=3
else if upcase(hm[i])='C' then
n[i]:=2
else if upcase(hm[i])='D' then
n[i]:=1
else
n[i]:=0;
end;
end;
procedure hn;
begin
hmn:=(n[1]+n[2]+n[3]+n[4]+n[5]);
end;
procedure HxS;
begin
hms:=((s[1]*n[1])+(s[2]*n[2])+(s[3]*n[3])+(s[4]*n[4])+(s[5]*n[5]));
writeln('HM x SKS : ',hms);
end;
procedure IPK;
begin
IP:=hmn/5;
writeln('IP : ',IP:0:2);
end;
procedure garis;
begin
writeln('==================================================================');
end;
begin
repeat
clrscr;
header;
garis;
mata_kuliah;
garis;
Jumlah_SKS;
conversi;
hn;
HxS;
IPK;
writeln('apakah anda akan mengecek KHS lagi? [y/t]');
readln(u);
until upcase(u)='T';
end.
Hasil Output :
Soal II
Buatlah sebuah program sevara rekrusif untuk menjumlahkan semua bilangan asli mulai dari 1 sampai 10!
uses crt;
function jumlahnya (angka:integer):integer;
begin
if angka=1 then
jumlahnya:=1
else
jumlahnya:=angka+jumlahnya(angka-1);
end;
procedure IBA(var bil:integer);
begin
repeat
clrscr;
write('masukan bilangan:');
readln(bil);
until(bil>0);
end;
var
ba: integer;
begin
IBA (ba);
writeln('jumlah semua bilangan dari satu sampai ',ba,' adalah ',jumlahnya(ba));
readln;
end.
Hasil Output:
Soal III
Buatlah sebuah program untuk mencari hasil perkalian 2 buah bilangan bulat positif dengan menggunakan konsep penjumlahan.
program perkalian_sederhana;
uses crt;
var
c : char;
function perkalian (x,y: integer) : integer;
begin
if (y=0) then
perkalian:=0
else
perkalian:= x+perkalian (x,y-1);
end;
var
a,b: integer;
begin
repeat
clrscr;
writeln ('selamat datang di program perkalian ala firhat ');
writeln ('silahkan masukan bilangan yang akan anda kalikan!');
readln (a);
gotoxy(5,3);
write ('x ');readln(b);
gotoxy(10,3);
writeln (' = ',perkalian(a,b));
writeln;
writeln;
writeln('mau mencoba lagi??? [y/t]');
readln(c);
until upcase(c)='T';
end.
Soal IV
Buatlah sebuah program untuk mencari hasil pembagian 2 buah bilangan bulat positf dengan menggunakan konsep pngurangan. Syaratnya adalah bilangan pertama habis dibagi oleh bilangan kedua!
program pembagian_sederhana;
uses crt;
var
c : char;
function bagi (x,y: integer) : integer;
begin
if (x=0) then
bagi:=0
else
bagi:= x-bagi (x-1,y-1);
end;
var
a,b: integer;
begin
repeat
clrscr;
writeln ('selamat datang di program pembagian ala firhat ');
writeln ('silahkan masukan bilangan yang akan anda bagi!');
readln (a);
gotoxy(5,3);
write (': ');readln(b);
gotoxy(10,3);
writeln (' = ',bagi(a,b));
writeln;
writeln;
writeln('mau mencoba lagi??? [y/t]');
readln(c);
until upcase(c)='T';
end.
Langganan:
Postingan (Atom)
