contoh program if..then..else pada pascal

if ... then.. else
digunakan untuk memilih kondisi dan memberikan nilai pada kondisi tersebut bila benar dan bila salah.
bentuk sintaksnya:
IF (kondisi) THEN nilai_jika_benar;
  ELSE nilai_jika_salah;

Kondisi berisi 3 komponen -->    sesuatu yang dibandingkan OPERATOR nilai pembanding
OPERATOR : dapat berupa tanda =, >, <, <>, >=, <=, and, not, or

Contoh 1 :
jika nilai > 70 maka LULUS, jika tidak maka GAGAL

program kelulusan;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai>70 then writeln('LULUS')
else writeln('GAGAL');
readln;
end.

IF Majemuk
untuk > 1 statement

Contoh 2 :
untuk mengetahui nilai siswa
jika nilai >= 85 maka nilai A
>=75 maka nilai B
>=65 maka nilai C
< 65 maka nilai D

program penilaian;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai >=85 then writeln('nilai A')
else if nilai>=75 then writeln('nilai B')
else if nilai>=65 then writeln('nilai C')
else writeln('nilai D');
readln;
end.

SELAMAT MENCOBA :)

apa seh mythomania ?

Siapa seh orang di dunia ini yang gak pernah berbohong??

Gak bisa di pungiri, sengaja atau tidak pasti kita pernah berbohong. Entah itu berbohong ke teman kita, pacar, keluarga, dosen bahkan membohongi diri kita sendiri.

Mungkin berbohong sudah menjadi hal yang biasa sekarang, tapi jika berbohong itu sudah menjadi kebiasaan, waaaahh, bisa bahaya. Bisa jadi anda menderita penyakit Mythomania.

apa seh mythomania?

Mythomania dapat disebut juga penyakit suka berbohong, Secara garis besar mythomania adlah orang yang secara rela dan sadar melakukan kebohongan dengan membuat cerita hayalan/fiktif.

Para penderita mythomania memiliki kecenderungan sangat kuat untuk berbohong pada orang lain, namun bukan karena ingin membohongi, tapi karena keinginan mendapatkan perhatian lebih besar dari orang lain. 

Berbeda dengan seorang pembohong biasa yang sadar bahwa ia tengah berbohong dan mampu membedakan antara kenyataan dan bukan kenyataan.
seorang mythomaniac tdk sepenuhnya menyadari bahwa ia sedang berbohong. ia tidak mampu membedakan antara ‘kenyataan’ yg berasal dari imaginasinya dan kenyataan yang sebenarnya.

penyebab? 
banyak faktor yang mempengaruhi seseorang untuk berbohong / mengarang cerita. bisa disebabkan oleh kegagalan / kekecewaan pada masa lalunya.

Mythomaniac sendiri sebenarnya adalah korban. ia korban dari ketidakbahagiaan dalam hidupnya dan korban dari penderitaan yang terlalu terus menerus. ia tdk mampu mengekspresikan keaslian dirinya sehingga selalu ingin bersembunyi di balik topeng.

tujuan ?

gak lain dan gak bukan adalah untuk menemukan kebahagiaan dan mendapatkan perhatian yang lebih dari orang yg di cintai walaupun dengan cara berbohong. 

Jadi, bila kamu mengalami keinginan sangat kuat untuk lebih diperhatikan oleh orang lain, kemudian  mengarang cerita bohong dan sering,  maka kamu mengalami mythomania. 

sedikit saran neh yaaa :

jangan membiasakan berbohong, jujurlah !! itu jauh lebih baik, dari pada kamu terus terusan hidup dalam "kepura-puraan" dan "kebohongan"  dengan cara  mengarang cerita yg sama sekali tidak benar adanya.
T E L L _ T H E _ T R U T H ! :)

#RESUME = tugas wajib mahasiswa

gak tau kenapa, dosen tu rajin bener ngasih tugas ngeresume.
ya mungkin niatnya bener sehhh, biar kita baca BAB yg kita pelajari.
tapi emang harus ya di tulis ulang?? cukup baca aja kan udaaahh...
gak perlu di tulis kan????
#hemat pena #hemat tenaga #okesip

udah gitu klo tugas resume pastii buanyaaakkk bget. 1-2 lembar folio. gimna gak keriting neh tangan.
huuuhh

ngerjainnya lama, dan ngoreksinya pasti cepet.
di liat liat doang, bolak balik 10 detik udah jadi nilai.
padahalllll,, ngerjain resume tu tadi gak cukup 1 jam. hmmm


besok, klo aku udah jadi guru (dosen klo bisa #amiin)
pasti murid2ku ku kasih tugas resume jg. HAhhahhaha :D *modus Balas dendam.

TUGAS TUGAS dan TUGAS

baru awal semester tugas tugas udah bejibun, numpuk, ngantri minta di kerjain.
ndak tau kenapa kok kayaknya adaa aja tugas tiap hari.
mati satu tumbuh seribuuu...
yg bikin makalah lah, observasi, bikin program, tugas kelompok,
| baspro & statistik | ini matkul favorit yg gak pernah absen tiap minggu buat kasih tugas.
(y) salut buat dosennya. hhhee

KEEP Fighting deh for this semester! Chayooo.. \'o'/ cemungudhh kkak :)

sendiri lebih baik

emang salah ya klo gue gak pengen punya pacar (untuk saat ini)
ya klo besok besok seh... belon tau. heheheee

GUE GAK SUKA di bilang masih galauin mantan lah,di kira belum move on ato parahnya lagi masih ngarepin mantan. plissss... NGGAK !
gue emang lagi pengen sendiri aja . TITIK
cuma itu alasanku.

emang harus ya gue cari pacar?
ndak usah buru buru juga kalee...
nikmatilah masa kesendirianmu sebagai jomblo ini, tanpa harus ada yg ngatur ngatur
ngelarang, tanpa harus ngejaga perasaan org, tanpa harus perhatiin orang
padhal kita ja belum tentu bisa perhatiin diri sendiri.
ya gak di pungkiri juga jadi jomblo tu pasti kadang ngerasa kesepian.
punya hati tapi gak punya cinta. ciyaaaaannnn *pukpukpuk*

eitss.. jangan salah walopun gak punya cinta (yg lebih sering di anggap 'PACAR')
tapi setidaknya gue masi punya temen-temen gue yang gue cintai. #cieeelahhh
yaahh.. sedikit menghibur diri lah.

klo kata ELLO :
"hari hari ku lewati hanya sendiri, tanpa kekasih
tapi tetap ku nikmati, indahnya hari, tanpa tambatan hati...
..................................
walaupun ku sendiri, tapi aku masi ada
masih ada CINTA dihatiii "

seperi judul postinganku ini :
'SENDIRI LEBIH BAIK
| single is simple n couple is trouble | #okesip

mengapa harus aku cinta sahabatku?

mengapa harus aku cinta sahabatku...??

karena persahabatan adalah cinta itu sendiriii
cinta yang tidak mengenal batas,

monggo di cek,,,
-sejelek jeleknya sahabat kita, pernahkah kita bosan bertemu tiap hari ama mereka? yang ada juga orang lain yang bosen ngeliat kita bareeng terus ama sahabat kita.
-selemot-lemotnya sahabat kita, pernahkah kita marah berhari hari padanya?, paling sehari terus besoknya narsis bareng lagi
-sepahit pahitnya ejekan sahabat, pernahkah kita ngambek padanya? biasanya cuma dianggap gurauan sesaat kan...

makanyaa,,, kalau mau mencinta tanpa batas,,, jadikanlah 'mereka' sahabatmu yang akan selalu bersama kita.
let's have fun with our friendship...^^

repost by : Akmad ari wibowo - #ACS  #MatkomB

#lastday liburan

16 September 2012
ga tau neh perasaanku gimana, mesti sedih ato seneng

seneng bisa masuk kuliah lagi, bisa ketemu temen temen, ketemu dosen dosen ( --") , ketemu tukang parkir, ketemu tukang jualan batagor ( hHHHaha :D) , dan yg pasti ketemu kampus pastinya. udah lama juga gak nyampah di kampus. hhhe

tapi, sedihnya neeehhh harus say "GOODBYE" to freedom.
gak ada lagi bangun siang,
gak bisa lagi kelayapan seharian penuh,

and now I have to say" WELCOME" to tahun ajaran baru, yapp SEMESTER 3

hmmm.. Iam not ready to study ( btw, binder ku ku taroh mana ya? pena? pasti udah ilang -- )
sebenernya gak ada persiapan lebih seh untuk semester ini, yg pastinya punya target naikin IP, paling gak pertahanin lahhh, skrg ni aku juga lagi mo usaha buat cari beasiswa, mudah mudahan dapet, doain yaa  #pray AMIINyaALLAH^^