Selasa, 03 November 2015
Kamus Bahasa Alay Lengkap
Penggunaan kata-kata "ALAY" Semakin merajalela dan mulai mengganggu ketika berkomunikasi. Hala ini akhirnya terjadi juga sama saya ketika berbicara kepada si alayers beberapa hari yang lalu.
Dari hasil perbincangan tersebut, saya mendapat beberapa kata "BARU" dalam hidup saya, Diantaranya :
A
Add : Et, Ett (biasanya minta di add facebooknya)
Aja : Ja, Ajj
Aku : Akyu, Akuwh, Akku
Anak : Nax, Anx, Naq
Apa : Pa, PPa,pha
B
Banget : Bangedh, Beud, Beut
Baru : Ru
Bokep : Bokebb
Belum : Lom, Lum,lomz
Boleh : Leh
Buat : Wat, Wad
C
Ciyus = Serius
Cakep : Ckeppz
Cape : Cppe, Cpeg
Cewek : Cwekz
Cowok : Cwokz
Cuekin : Cuxin
Curhat : Cvrht
D
Deh : Dech, Deyh
Dong : Dumz, Dum
Dulu : Duluw
G
Gitu : Gtw, Gitchu, Gituw
H
Habis: abizzz
Hai : Ui
Halo : Alow
I
Imut : Imoetz, Mutz, muetzz,moetz
Ini : Iniyh, Nc,nech
K
Kakak : Kakagg
Kalau : Kaluw, Klw, Low
Kalian : Klianz
Kamu : Kamuh, Kamyu, Qmu, Kamuwh
Kan : Khan, Kant, Kanz
Karena : Coz, Cz
Kenal : Nal
Ketawa : xixixi, haghaghag,wkwkwkw
Keren : Krenz, Krent, Kyeent
Khusus : Khuzuz
Kok : KoQ, KuQ, Kog, Kug
Kurang :Krang, Krank,ckalank
L
Lagi : Ghiy, Ghiey, Gi
Love : Luph, Luff, Loupz, Louphh
Loh : Loch, Lochkz, Loch
Lucu : Luthu, Uchul, Luchuw
Lupa : Lupz
M
Maaf : Mu’uv, Muupz, Muuv
Main : Men
Makan : Mumz, Mamz, mamam
Manis : Maniezt, Manies
Masuk : Suk, Mzuk, Mzug, Mzugg
Misalnya : jadi misalna, misal’a, misal.a
N
Nih : Niyh, Niech, Nieyh
Nggak : Gga, Gax, Gag, Gx
P
Paling : Plink, P’ling
Pasti : Pzt, pzty
Punya : Pya, P’y
R
Reply : Repp
Rumah : Humz, Hozz, Uz
S
Salam : Lam
Sayang : Saiank, Saiang, chaiank,taiankk
Sempat : S4
Setiap : Styp
Siapa : Sppa, Cppa, Cpa, Spa
Sorry : Cowwyy, Sowry,cowly yach
SMS : ZMZ, XMX, MZ
Sih : Siech, Sieyh, Ciyh,cehh
Sorry : Cowwyy, Sowry,cowly yach
T
Tuh : Tuwh, Tuch
Tapi : PPi
Tau : Taw, Tawh, Tw
Terus : Rus, Tyuz, Tyz
Tiap : Tyap
Tempat :T4
U
Udah : Dagh, Uwdach
Y
Ya : Yupz, Ia, Iupz, Yua, Ea
Yang : Iank/Iang, Eank/Eang
Yuk : Yuq, Yuqz, Yukz
Di atas adalah vacubulary yang versi kata perkata bila anda ingin yang bentuk kalimat nih
QmO dLaM iDopQhO (kamu dalam hidupku..)
k’tHwA„„„„„„„� ��„„ (ketawa…)
cNeNk…………….. (dan senang)
tHanKz b’4„„„„„„ (thanks before, terimakasih sebelumnya)
yOz aLaWAiCe d bEzT……………. (you always the best, kamu selalu yang terbaik -ALAWAICE? WTF?)
iN meYe heArD„„„„„„, (in my heart, dalam hatiku -btw MEYE? APA ITU HAHA)
q tWo……………… (aku tau……)
qMo mANk cLiD wAd cYanK m qHo…………. (kamu memang sulit buat sayang sama aku…)
tPhE qMo pLu tHwO„„„ (tapi kamu perlu tau….)
mY LuPi”………… (my love, cintaku, lupi lupi di kuping gue kedengerannya kayak permen yupi) aLwaYs 4’U…………… (always for you, cuman buat kamu)
cO’nA cMa qMo YaNk Co WaD qHo cYuM………… (soalnya cuma kamu yang cowo buat aku senyum -oke ni si ophi jelas jelas tidak mengikuti kaidah yang benar dalam membuat struktur kalimat)
tHo_tHo………….. (dadah -ini dadah doang ribet banget nulisnya)
LupHz yOu„„„„„„, (love you, sayang kamu)
bU_bU„„„„„„(bubu)
satu lagi..
satu lagi deh…
TaKe mE 2 yOuR hEaRtZzz???? ????????? ????? (take me to your heart, bawa aku ke dalam hatimu)
cXnK qMoh tO cKiDnAAAAaaaAaAaaaa……. (sayang kamu tuh sakitnya…)
m_tHa apOn YoH……………… (minta ampun ya…)
I’m ReGrEeEeeEEeeEet nOw……………. (aku menyesal sekarang)
naFaZ„„„„„„„„� ��, (napas)
bNcHi qOh nGmBAnK………………. (benci aku ngambang)
hOeKkkKKk…………….. (sound effect muntah, HOEEEKK -tuh kan muntah HAHA).
nPhA jDe gnE????????? ?????? (mengapa jadi begini?)
i dOn’t LiKe tHaT………….. (I don’t like that, aku tidak suka itu)
ckIdDDdddDDDd„„„„„� �, „„„„„„„„„„ „„„ „„ (SAKIIIIIIT! -ini ngomong sakitdoang kayak suara ban ngerem ehm)
pGEn qOh tO bLanK……………………. . (pengen aku tuh bilang)U bLOkE mY hEaLtH!!!!!! !!!!!!!!! ! (you bloke my health, kamu cowokesehatanku, atau kamu merusak kesehatanku? -HAHAHAHAHA YOU BROKE MY HEART KOK JADI YOU BLOKE MY HEALTH? jauh gitu artinyaaaa! LOL)
i tHinK…………….. (aku pikir…)
it’Z DISGUSTING vOiCE……………….. (itu suara menjijkan -ga nyambung)
anDeE…………………. (andaiii…)
adJA g2 dRe wAL…………….. (aja gitu dari awal)
qTaH gAg mKeN dIEM”aN gNe tOh???!?@??@ ?@??@@?@? (kita ga makin diemdieman gini tho’?)
qOh g Mo iDoP dLAM kmNfqAn………. (aku ga mau hidup dalam kemunafikan-WUESSS angin berhembus)
tHiZ iZ buLLsHiT!!!! !!!!!!! (this is bullshit!, ini semua omongkosong!!! -penuh amarah membara)
sHiT!!!!!!!! !!!!!!!!! !!!!! !!!!!!!!!!!! !!!! (shit!!!!!! TA* )
SADAM WITHOUT WORD!!!!!!!! !!!!!!!!! !! (sadam without word, sadam tanpa kata -WTF tiba tiba bawa sadam? ato DIAM maksudnya? oh diam deh kayaknya)
HAifTf……………… (huff)
qoH tLuZ”aN uCHA bWaD tTeP qEqEUh cXnK qMo………. (aku terus terusan berusaha buat tetep kekeuh sayang kamu…)
bUD„„„„„„„„„ , (but, tetapi…)hUhuHuHfTFTf………….. .. (huft huft -ehem ophi centil deh)cIa” adJA………………… (sia sia aja -CIA? yang di amerika?)
shIt???????? ???? (TA*??????)maYbe??????? ???????? (maybe, mungkin????? )
Mungkin ada banyak kata lagi yang sudah atau akan beredar. Semoga saja ini hanya sekedarnya saja dipakai (sebagai bahan becandaan) dan tidak dipakai pada forum atau komunikasi resmi. Selain itu tentu saja ini tidak boleh menjadi kebiasaan, karena dikhawatirkan dapat melupakan kita dari kaidah Bahasa Resmi kita yang sesuai dengan KBBI.
Bila rekan-rekan ada tambahan kata lainnya silahkan ditambahkan pada komentar ya. Walaupun kita bukan dari kalangan "ALAYERS" tetap saja mau gak mau harus tau, agar komunikasi dengan mereka yang memakai kata-kata tersebut berjalan lancar
Jangan lupa bila Artikel ini Bermanfaat Buat anda Silahkan Comment
Mengatasi Masalah Invalid Security Certificate pada Browser
Mengatasi Masalah Invalid Security Certificate pada Browser
Hari ini saya sempat menemui masalah mengenai security certificate pada browser saya karena merubah tanggal awal pada komputer ke tanggal yang lama. Tapi saya bisa memperbaikinya dan browser google chrome bisa kembali berjalan dengan baik,Untuk itu saya ingin berbagi kepada anda, mengapa masalah Invalid Security Certificate bisa muncul pada brower yang anda gunakan.
Invalid Security Certificate bisa muncul pada browser anda karena dua hal yaitu:
Sertifikat website dibuat oleh pribadi dan bukan dibeli dari lembaga yang punya wewenang (Maka pada browser anda akan tampil tulisan "The certificate is not trusted because it is self signed".
Browser yang anda gunakan sudah habis masa berlakunya dan harus diperpanjang (Maka pada browser anda akan muncul "Secure Connection Failed - The certificate will not be valid until 11/05/2010 07.00 (Error code: sec_error_expired certificate)"
Untuk masalah pertama ("The certificate is not trusted because it is self signed") seperti diatas kita bisa masuk ke situs atau website dengan cara berikut ini:
1. Klik link "Or you can add an exception"
2. Klik tombol "Add exception"
3. Selanjutnya klik tombol "Get Certificate"
4. Terakhir klik tombol "Confirm Security Exception"
1. Klik link "Or you can add an exception"
2. Klik tombol "Add exception"
3. Selanjutnya klik tombol "Get Certificate"
4. Terakhir klik tombol "Confirm Security Exception"
Dengan langkah seperti demikian anda bisa masuk ke website yang anda tuju
Sedangkan untuk masalah kedua ("The certificate will not be valid until 11/05/2010 07.00") disebabkan oleh sudah habisnya masa berlaku browser yang anda instal di komputer. Setiap browser seperti Mozilla Firefox, Explorer, dll biasanya memiliki tanggal expirednya. Untuk itu anda dapat memperpanjang tanggal dengan cara menginstal versi terbarunya. Terkadang juga masalah ini muncul bukan karena masa berlaku browser yang sudah habis, melainkan anda pernah mengubah tanggal komputer ke tanggal yang lama. Untuk itu anda hanya perlu mengganti tanggal komputer yang lama ke tanggal yang baru. Caranya berikut ini:
Lihat sudut kanan bawah dekstop anda, akan menunjukan waktu atau jam terkini
Klik 2 kali kemudian anda tinggal mengubah tanggalnya (bulan dan tahun)
Maka selesailah sudah masalah anda soal security certificate. Semoga artikel ini bermanfaat, selamat mencoba!
Version English :
Today I was having problems on the security certificate on my browser because changing the start date to the date on the old computer. But I can fix it and google chrome browser can run well again, for that I want to share with you, why is Invalid Security Certificate problems can arise in brower you use.
Invalid Security Certificate bisa muncul pada browser anda karena dua hal yaitu:
Certificate website created by private and not purchased from an institution that has the authority (so the browser will show made"The certificate is not trusted because it is self signed".
The browser you use expired and must be renewed (so the browser will appear)"Secure Connection Failed - The certificate will not be valid until 11/05/2010 07.00 (Error code: sec_error_expired certificate)"
For the first issue ("The certificate is not trusted Because it is self-signed") as above we can go to the website or the website in the following ways:
1. Click the link "Or you can add an exception"
2. Click the "Add exception"
3. Then click the "Get Certificate"
4. Finally click the "Confirm Security Exception"
1. Click the link "Or you can add an exception"
2. Click the "Add exception"
3. Then click the "Get Certificate"
4. Finally click the "Confirm Security Exception"
With such a move so you can go to the website you are going
As for the second issue ("The certificate will not be valid until 11/05/2010 07:00") is caused by the expiration of the browser you have installed on your computer. Each browser such as Mozilla Firefox, Explorer, etc. usually have expirednya date. For that you can extend the date by installing the latest version. Sometimes also the problem arises not because of the validity browser is out of stock, but you've changed the date to the date of the old computer. For that you only need to replace your old computer to a new date. You do the following:
1. See the bottom right corner of your desktop, it will show the current time or clock
2. Click 2 times then you just change the date (month and year)
Then it was over your problems about security certificate. Hopefully this article useful, good luck!
Hari ini saya sempat menemui masalah mengenai security certificate pada browser saya karena merubah tanggal awal pada komputer ke tanggal yang lama. Tapi saya bisa memperbaikinya dan browser google chrome bisa kembali berjalan dengan baik,Untuk itu saya ingin berbagi kepada anda, mengapa masalah Invalid Security Certificate bisa muncul pada brower yang anda gunakan.
Invalid Security Certificate bisa muncul pada browser anda karena dua hal yaitu:
Sertifikat website dibuat oleh pribadi dan bukan dibeli dari lembaga yang punya wewenang (Maka pada browser anda akan tampil tulisan "The certificate is not trusted because it is self signed".
Browser yang anda gunakan sudah habis masa berlakunya dan harus diperpanjang (Maka pada browser anda akan muncul "Secure Connection Failed - The certificate will not be valid until 11/05/2010 07.00 (Error code: sec_error_expired certificate)"
Untuk masalah pertama ("The certificate is not trusted because it is self signed") seperti diatas kita bisa masuk ke situs atau website dengan cara berikut ini:
1. Klik link "Or you can add an exception"
2. Klik tombol "Add exception"
3. Selanjutnya klik tombol "Get Certificate"
4. Terakhir klik tombol "Confirm Security Exception"
1. Klik link "Or you can add an exception"
2. Klik tombol "Add exception"
3. Selanjutnya klik tombol "Get Certificate"
4. Terakhir klik tombol "Confirm Security Exception"
Dengan langkah seperti demikian anda bisa masuk ke website yang anda tuju
Sedangkan untuk masalah kedua ("The certificate will not be valid until 11/05/2010 07.00") disebabkan oleh sudah habisnya masa berlaku browser yang anda instal di komputer. Setiap browser seperti Mozilla Firefox, Explorer, dll biasanya memiliki tanggal expirednya. Untuk itu anda dapat memperpanjang tanggal dengan cara menginstal versi terbarunya. Terkadang juga masalah ini muncul bukan karena masa berlaku browser yang sudah habis, melainkan anda pernah mengubah tanggal komputer ke tanggal yang lama. Untuk itu anda hanya perlu mengganti tanggal komputer yang lama ke tanggal yang baru. Caranya berikut ini:
Lihat sudut kanan bawah dekstop anda, akan menunjukan waktu atau jam terkini
Klik 2 kali kemudian anda tinggal mengubah tanggalnya (bulan dan tahun)
Maka selesailah sudah masalah anda soal security certificate. Semoga artikel ini bermanfaat, selamat mencoba!
Version English :
Today I was having problems on the security certificate on my browser because changing the start date to the date on the old computer. But I can fix it and google chrome browser can run well again, for that I want to share with you, why is Invalid Security Certificate problems can arise in brower you use.
Invalid Security Certificate bisa muncul pada browser anda karena dua hal yaitu:
Certificate website created by private and not purchased from an institution that has the authority (so the browser will show made"The certificate is not trusted because it is self signed".
The browser you use expired and must be renewed (so the browser will appear)"Secure Connection Failed - The certificate will not be valid until 11/05/2010 07.00 (Error code: sec_error_expired certificate)"
For the first issue ("The certificate is not trusted Because it is self-signed") as above we can go to the website or the website in the following ways:
1. Click the link "Or you can add an exception"
2. Click the "Add exception"
3. Then click the "Get Certificate"
4. Finally click the "Confirm Security Exception"
1. Click the link "Or you can add an exception"
2. Click the "Add exception"
3. Then click the "Get Certificate"
4. Finally click the "Confirm Security Exception"
With such a move so you can go to the website you are going
As for the second issue ("The certificate will not be valid until 11/05/2010 07:00") is caused by the expiration of the browser you have installed on your computer. Each browser such as Mozilla Firefox, Explorer, etc. usually have expirednya date. For that you can extend the date by installing the latest version. Sometimes also the problem arises not because of the validity browser is out of stock, but you've changed the date to the date of the old computer. For that you only need to replace your old computer to a new date. You do the following:
1. See the bottom right corner of your desktop, it will show the current time or clock
2. Click 2 times then you just change the date (month and year)
Then it was over your problems about security certificate. Hopefully this article useful, good luck!
Kumpulan Program Pascal dengan TPW 1.5
Kumpulan Program Pascal dengan TPW 1.5
Kumpulan program pascal ini merupakan kumpulan latihan saat saya belajar bahasa
pemrograman pascal. saya menggunakan Turbo Pascal for Windows (TPW) Versi
1.5 sebagai kompilernya. Mungkin ada kekurangan disana sini, tapi mudah-mudahan
kumpulan program ini bermanfaat bagi pembaca yang berminat dan baru mempelajari
bahasa pemrograman pascal.Berikut kumpulan dari program yang di pelajari saat mempelajari tentang bahasa pemrograman tingkat dasar :
Membuat Program keliling lingkaran
program genap;
uses wincrt;
var
x : integer;
begin
write('masukkan sembarang angka =');read (x);
if x mod 2=0 then
write('genap')
else
write('ganjil')
end.
Membuat program bilngankelipatan5
program bilangankelipatan5;
uses wincrt;
var bil,batas:integer;
begin
write('Masukkan integer positif,=');
readln(batas);
for bil:=5 to batas do
if bil mod 5=0 then
write(bil,' ');
end.
Membuat Program deretABCDE
program deretABCDE;
uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='a' to 'e' do
write(i,' ');
end.
Membuat program Deretan angka sampai 10
program deratangka1sampai10;
uses wincrt;
var i,batas:integer;
begin
{write('Masukkan integer positif,=');
readln(batas);}
for i:=1 to 10 do
write(i);
end.
Membuat program DeretAngka2
program deretangka2;
uses wincrt;
var i,batas:integer;
begin
write('masukkan integer positif=');
readln(batas);
for i:=batas downto 1 do
write(i,' ');
end.
Membuat program deretEDCBA
program deretEDCBA;
uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='e' downto 'a' do
write(i,' ');
end.
Membuat program GanjilGenap
program Ganjilgenap;
uses wincrt;
var bil:integer;
begin
for bil:=6 to 16 do
if bil mod 2=1 then
write(bil,' ');
readln;
end.
Membuat program grade
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);
Membuat program Hadiah belanja
program hadiahBelanja;
Uses wincrt;
var
x:integer;
begin
write('masukkan harga=');read(x);
if x<=49.999 then write ('maaf sampeyan dereng beruntung') else if x<=99.999 then write ('selamat sampeyan mendapatkan mie goreng') else if x<=149.999 then write ('selamat sampeyan mendapatkan gelas cantik') else if x<=199.999 then write ('selamat sampeyan mendapatkan piring cantik') else if x<=5000.000 then write ('selamat mendpatkan sampeyan payung cantik') end. Membuat program binatang program binatang; uses wincrt; var baris,kolom:integer; begin clrscr; for baris:=1 to 8 do begin for kolom:=1 to baris do write('KUCING'); writeln; end; readln; end. Membuat program HurufAsampaiZ program hurufAsampaiZ; uses wincrt; var i,batas:char; begin write('Masukkan huruf a sampai z=');read(batas); for i:= 'a' to batas do write(i,' '); end. Membuat Program jenis bilangan bulat program jenis_bilangan_bulat; uses wincrt; var x : integer; begin write ('Masukkan sembarang angka=');read(x); if x >0 then
write ('positif')
else
if x <0 then write('negatif') else write ('nol') end. Membuat deretangka1sampai10 program deratangka1sampai10; uses wincrt; var i,batas:integer; begin {write('Masukkan integer positif,='); readln(batas);} for i:=1 to 10 do write(i); end. Membuat program deretABCDE program deretABCDE; uses wincrt; var i,batas:char; begin {write('masukkan integer positif='); readln(batas);} for i:='a' to 'e' do write(i,' '); end. Membuat Program bilanganKelipatan5 program bilangankelipatan5; uses wincrt; var bil,batas:integer; begin write('Masukkan integer positif,='); readln(batas); for bil:=5 to batas do if bil mod 5=0 then write(bil,' '); end. Membuat Program HurufAsampaiZ program hurufAsampaiZ; uses wincrt; var i,batas:char; begin write('Masukkan huruf a sampai z=');read(batas); for i:= 'a' to batas do write(i,' '); end. Membuat Program Menghitung Jarak Program Menghitung_Jarak; Uses WinCrt; var x1,x2,y1,y2:integer; d:real; begin Writeln('Program Menghitung Jarak Titik A dan B'); Writeln('======================================'); Writeln; Write('Masukan Nilai A (X1): ');readln(x1); Write('Masukan Nilai B (X2): ');readln(x2); Write('Masukan Nilai A (Y1): ');readln(y1); Write('Masukan Nilai B (Y2): ');readln(y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); Writeln; Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2); end. Membuat Program Kontreversi Suhu Program Konversi_Suhu; Uses WinCrt; var f,c:real; begin Writeln('Program Konversi Fareinheit Ke Celcius'); Writeln('======================================'); Writeln; Write('Masukan Suhu dalam Farenheit: ');readln(f); c:=5/9*(f-32); Writeln; Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2); end. Membuat Program Kontreversi Waktu Program Konversi_Waktu; Uses Wincrt; Var j,m,d,h:integer; begin Writeln('Program Konversi Waktu'); Writeln('======================'); Writeln; Write('Masukkan Jumlah Jam : ');readln(j); Write('Masukkan Jumlah Menit : ');readln(m); Write('Masukkan Jumlah Detik : ');readln(d); Writeln; h:=(j*3600)+(m*60)+d; Writeln('Jadi Hasil Konversi : ',h,' Detik'); end. Membuat Program Kontreversi Waktu1 Program Konversi_Waktu1; Uses WinCrt; var j,m,d,dm,sisa,sisa1:integer; begin Writeln('Program Konversi Waktu 1'); Writeln('========================'); Writeln; Write('Masukkan Jumlah Detik : ');readln(dm); if (dm/3600)>0 then
begin
j:=dm div 3600;
sisa:=dm-(j*3600);end
else
begin
j:=0;
sisa:=dm;
end;
if (sisa/60)>0 then
begin
m:=sisa div 60;
sisa1:=sisa-(m*60);
end
else
begin
m:=0;
sisa1:=sisa;
end;
d:=sisa1;
Writeln;
Writeln('Hasil => ',j,' jam ',m,' menit ',d,' detik');
end.
Kumpulan program pascal ini merupakan kumpulan latihan saat saya belajar bahasa
pemrograman pascal. saya menggunakan Turbo Pascal for Windows (TPW) Versi
1.5 sebagai kompilernya. Mungkin ada kekurangan disana sini, tapi mudah-mudahan
kumpulan program ini bermanfaat bagi pembaca yang berminat dan baru mempelajari
bahasa pemrograman pascal.Berikut kumpulan dari program yang di pelajari saat mempelajari tentang bahasa pemrograman tingkat dasar :
Membuat Program keliling lingkaran
program genap;
uses wincrt;
var
x : integer;
begin
write('masukkan sembarang angka =');read (x);
if x mod 2=0 then
write('genap')
else
write('ganjil')
end.
Membuat program bilngankelipatan5
program bilangankelipatan5;
uses wincrt;
var bil,batas:integer;
begin
write('Masukkan integer positif,=');
readln(batas);
for bil:=5 to batas do
if bil mod 5=0 then
write(bil,' ');
end.
Membuat Program deretABCDE
program deretABCDE;
uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='a' to 'e' do
write(i,' ');
end.
Membuat program Deretan angka sampai 10
program deratangka1sampai10;
uses wincrt;
var i,batas:integer;
begin
{write('Masukkan integer positif,=');
readln(batas);}
for i:=1 to 10 do
write(i);
end.
Membuat program DeretAngka2
program deretangka2;
uses wincrt;
var i,batas:integer;
begin
write('masukkan integer positif=');
readln(batas);
for i:=batas downto 1 do
write(i,' ');
end.
Membuat program deretEDCBA
program deretEDCBA;
uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='e' downto 'a' do
write(i,' ');
end.
Membuat program GanjilGenap
program Ganjilgenap;
uses wincrt;
var bil:integer;
begin
for bil:=6 to 16 do
if bil mod 2=1 then
write(bil,' ');
readln;
end.
Membuat program grade
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);
Membuat program Hadiah belanja
program hadiahBelanja;
Uses wincrt;
var
x:integer;
begin
write('masukkan harga=');read(x);
if x<=49.999 then write ('maaf sampeyan dereng beruntung') else if x<=99.999 then write ('selamat sampeyan mendapatkan mie goreng') else if x<=149.999 then write ('selamat sampeyan mendapatkan gelas cantik') else if x<=199.999 then write ('selamat sampeyan mendapatkan piring cantik') else if x<=5000.000 then write ('selamat mendpatkan sampeyan payung cantik') end. Membuat program binatang program binatang; uses wincrt; var baris,kolom:integer; begin clrscr; for baris:=1 to 8 do begin for kolom:=1 to baris do write('KUCING'); writeln; end; readln; end. Membuat program HurufAsampaiZ program hurufAsampaiZ; uses wincrt; var i,batas:char; begin write('Masukkan huruf a sampai z=');read(batas); for i:= 'a' to batas do write(i,' '); end. Membuat Program jenis bilangan bulat program jenis_bilangan_bulat; uses wincrt; var x : integer; begin write ('Masukkan sembarang angka=');read(x); if x >0 then
write ('positif')
else
if x <0 then write('negatif') else write ('nol') end. Membuat deretangka1sampai10 program deratangka1sampai10; uses wincrt; var i,batas:integer; begin {write('Masukkan integer positif,='); readln(batas);} for i:=1 to 10 do write(i); end. Membuat program deretABCDE program deretABCDE; uses wincrt; var i,batas:char; begin {write('masukkan integer positif='); readln(batas);} for i:='a' to 'e' do write(i,' '); end. Membuat Program bilanganKelipatan5 program bilangankelipatan5; uses wincrt; var bil,batas:integer; begin write('Masukkan integer positif,='); readln(batas); for bil:=5 to batas do if bil mod 5=0 then write(bil,' '); end. Membuat Program HurufAsampaiZ program hurufAsampaiZ; uses wincrt; var i,batas:char; begin write('Masukkan huruf a sampai z=');read(batas); for i:= 'a' to batas do write(i,' '); end. Membuat Program Menghitung Jarak Program Menghitung_Jarak; Uses WinCrt; var x1,x2,y1,y2:integer; d:real; begin Writeln('Program Menghitung Jarak Titik A dan B'); Writeln('======================================'); Writeln; Write('Masukan Nilai A (X1): ');readln(x1); Write('Masukan Nilai B (X2): ');readln(x2); Write('Masukan Nilai A (Y1): ');readln(y1); Write('Masukan Nilai B (Y2): ');readln(y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); Writeln; Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2); end. Membuat Program Kontreversi Suhu Program Konversi_Suhu; Uses WinCrt; var f,c:real; begin Writeln('Program Konversi Fareinheit Ke Celcius'); Writeln('======================================'); Writeln; Write('Masukan Suhu dalam Farenheit: ');readln(f); c:=5/9*(f-32); Writeln; Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2); end. Membuat Program Kontreversi Waktu Program Konversi_Waktu; Uses Wincrt; Var j,m,d,h:integer; begin Writeln('Program Konversi Waktu'); Writeln('======================'); Writeln; Write('Masukkan Jumlah Jam : ');readln(j); Write('Masukkan Jumlah Menit : ');readln(m); Write('Masukkan Jumlah Detik : ');readln(d); Writeln; h:=(j*3600)+(m*60)+d; Writeln('Jadi Hasil Konversi : ',h,' Detik'); end. Membuat Program Kontreversi Waktu1 Program Konversi_Waktu1; Uses WinCrt; var j,m,d,dm,sisa,sisa1:integer; begin Writeln('Program Konversi Waktu 1'); Writeln('========================'); Writeln; Write('Masukkan Jumlah Detik : ');readln(dm); if (dm/3600)>0 then
begin
j:=dm div 3600;
sisa:=dm-(j*3600);end
else
begin
j:=0;
sisa:=dm;
end;
if (sisa/60)>0 then
begin
m:=sisa div 60;
sisa1:=sisa-(m*60);
end
else
begin
m:=0;
sisa1:=sisa;
end;
d:=sisa1;
Writeln;
Writeln('Hasil => ',j,' jam ',m,' menit ',d,' detik');
end.
Langganan:
Postingan
(
Atom
)