Coding Pascal Pengurutan Data "UAS"

Hai kawan, hari ini lg moodnya posting nih ,
kali ini, aku pengen share tentang coding pengurutan angka pada pascal

Silahkan dibaca* kawan  ◦^⌣^◦

------------------------------------------------------------------------------------------------------
 
program UAS;
uses crt;
var
a : array[1..100] of integer;

i, j, t, n : integer;

begin
clrscr;


        write('Ketik Jumlah angka yang diinput = ');read(n);
        writeln('==================================');
        writeln;

for j := 1 to n do
        begin
        write('Masukkan nilai test ',j,' : ');
        read (a[j]) ;
        end;

for i := j-1 downto 1 do
        for j := 1 to i do
        if a[j] < a[j+1] then
        begin
        t := a[j];
        a[j] := a [j+1];
        a[j+1] := t;
        end;

        writeln;
        writeln('Urut Data Terbesar ke kecil');
        for j := 1 to n do
                begin
                write(a[j] : 3) ;
                end;

readln;
readln;
end.




-------------------------------------------------------------------------------------------

»»  READMORE...

Auto Text emotion

Sinis 1 -> (¬_¬)
Sinis 2 -> (¬-̮¬)
Cium 1 -> (˘⌣˘)ε˘`)
Cium 2 -> ( ˘ з˘ )
Tunjuk 1 -> (σ`▽´)-σ
Tunjuk 2 -> (o˘з˘)-σ
Tunjuk 3 -> (σ‾▿‾)-σ
Tunjuk 4 -> (^▽^)-σ
Tunjuk 5 -> (´̯ ̮`̯ )-σ
Tunjuk 6 -> (ʃ⌣ˆ)-σ *source : http://myname-icha.blogspot.com
Shock ->（　ﾟ Дﾟ）
Jatuh Cinta 1 -> ♥(´⌣`ʃƪ)
Jatuh Cinta 2 -> (≧▽≦)づ♥
Jatuh Cinta 3 -> ƪ(♥ε♥)ʃ

Jatuh Cinta 4 -> (ʃƪ♥ﻬ♥)
Jatuh Cinta 5 -> ƪ(♥•*⌣*•♥)ʃ
So Sweet -> (ˆ⌣ˆʃƪ)
Senyum 1  ->  ◦^⌣^◦
Senyum 2 -> ツ
Senyum 3 -> ❀◕ ‿ ◕❀
Senyum 4 -> (∩_∩)
Peluk 1 -> (ɔ ˘⌣˘)˘⌣˘ c)
Peluk 2 -> (з´⌣`ε)
Hore 1 -> \(´▽`)/
Hore 2 -> °\(^▿^)/°
Hore 3 -> \(ˆ▿ˆ)/
Hore 3 -> ╭(^▽^)╯
Toss ->  (˛•̃•̃)/\(•̃•̃¸)
Intip -> (ʃ⌣ƪ)
Sabar Ya -> (´._.`)\('́⌣'̀ )
Nangis -> (╥﹏╥)
Cubit 1 -> ( ˘ з˘ )-c<ˇ_ˇ")
Cubit 2 -> (" ˆ⌣ˆ>ԅ(ˆ⌣ˆԅ)
Cubit 3 -> ┌(´▽`)-C<‾⌣‾)
Cubit 4 ->  (ˇ▼ˇ)-c<ˇ_ˇ) 
Dance 1 -> ~(˘▽˘~) (~˘▽˘)~
Dance 2 -> ~(¯▿¯~)(~¯▿¯)~ 
Kabur 1 ->  ~(\ ‾o‾)/
kabur 2 -> \(`o´\)
Kedip Kedip 1 -> ( ื▿ ืʃƪ)
Kedip Kedip 2 -> ( >͡ .̮ Ơ̴͡ )*
Gemes 1 -> (>̯͡⌣<̯͡)
Gemes 2 -> (˘̩̩̩~˘̩̩̩ƪ)
Gemes 3 -> ♥(>̯┌┐<)•°
Bidadari -> ε(´⌣`)з 
Sedih 1-> (⌣́_⌣̀)
Sedih 2 -> ε(╯__╰")з
Kacamata -> Ơ̴̴̴̴̴̴͡.̮Ơ̴̴͡ 
Shock -> ( ° △ ° ")‎
Please -> (ˇʃƪˇ)
Capek/Mati -> (✗_✘)
Curiga -> (♉ . ♉)
Peace/Piss -> (◦^⌣^◦)♉
Bintang 1 -> ★
Bintang 2 -> ☆
Love 1 -> ♥
Love 2 -> ♡​
Bunga -> ❀
Smile -> ☺
Mahkota -> ♕
Tunjuk -> ☞↻
Nada Musik -> ♪
Simbol 1 -> ™
Simbol 2 -> ♣

»»  READMORE...

Auto Text karakter

•҉•ωªκªκªκªκª•҉• тнαηкѕ 
•⌣okε ;):D⌣•°˚˘˙ :)≈¤♣(y)※ÖƘ€:)≈¤♣ ☺öůώĦ •"̮• 
H∂∂... H∂∂... H∂∂... H∂∂... H∂∂ 
MET 多Ǿ多Ǿ长
Baby I Love ┐('⌣'┐) U (´▽`ʃƪ) ,Love (┌'⌣')┌ U (ʃƪ´▽`) , Love (┐'⌣'┌) U (┌'⌣'┐), So Much (ʃˆ▽ˆƪ)
 º°˚˚°º♏:)ª:)K:)ª:)§:)Ǐ:)♓º°˚˚° Ɣā  ♍ªŭ ƍ䪠Ъќ
LOE ┒('o'┒) GUE (┌','┐) END  ┒(⌣́_⌣̀)┎
You ↗ You ↙ You → You ↓ You ↪ You ↫ You ↯ You ↱ You ↶ and You ↴  

٩(-̮̮̃-̃)۶ ٩(͡๏̯͡๏)۶ ٩(̾●̮̮̃̾•̃̾)۶ ٩(•̮̮̃•̃)۶ ٩(̮̮̃̃)۶ ٩(̮̮̃•̃)۶ 
ټ 
ツ "̮ (•̯͡.•̯͡ (•͡. •͡ !) ε(•˛.•̃)з (•͡. •͡) ε(¬.¬)з 
ε( •̃͡-̮•̃͡)з (•̃o•̃) (•͡. •͡ !) •̃͡(º-̮º) •̃͡ (•̃͡-̮•̃͡) 

Ђixxx²‎ :( Ђixxx²‎ :( 
●̮̮__●̮̮ HiIixXx 

˚◦°• hмм...(―˛―“)..•°◦˚‎ ♌⌣__ ⌣♌◦°◦ººĦħммм... 
ε(⌣.⌣")з Ɨƚ♏♏♏♏♏♏,¸¸,•°˚°ºº 
‎ƪ(‾ε‾“)ʃ tau akhƪ("‾ε‾)ʃ‎ *source : http://myname-icha.blogspot.com
(ˇ_ˇ'')‎ ƪ(˘⌣˘)┐ ƪ(˘⌣˘)ʃ ┌(˘⌣˘)ʃ‎ ‎ 

(⌣_⌣”)‎ ƪ(‾_‾)ʃ‎ (-̩̩-̩̩͡_-̩̩-̩̩͡)‎ (-̩̩̩-̩̩̩-̩̩̩-̩̩̩-̩̩̩___-̩̩̩-̩̩̩-̩̩̩-̩̩̩-̩̩̩)‎ 
(¬_¬“)‎ :OŎő•••őŎő:O (o˘з˘)hmm.. 
(◦ "̮ ◦) (◦ "̮ ◦)•*¨*•.¸ ✗_ ✘ (• ˆ⌣ˆ •) 
( • ε • “) └(•̃˛•̃)┐\(•̃˛•̃)/└(•̃˛•̃)┐‎ 

ƪ(˘ە˘)┐ ƪ(˘ە˘)ʃ ┌(˘ە˘)ʃ 
(•͡˘˛˘ •͡)"" curiga ‎‎‎‎(•͡˘˛˘ •͡)"" 
(..•͡˘_˘ •͡..)HaRap² CeMaS•••••• 
Ε===┌ ( ¯ ▽¯)┘ kejarrrrrrr !!!‎ 
(*,_,)ﾉ⌒●~* 
('-' ) (._. ) ( ._.) ( '-')‎ 
‎‎ 
♥̸̨ ♥̨ ♡̷̷̷̷̷̷ ♡̨ ♡̷̬̩̃̊ ♡̲̅ ♑ ♥̲̅ ☀̲̅ 
°♡♥tнänκ чöü♥♡ 

(*,_,)ﾉ⌒●~* LEMPAR BOM!!
‎‎¸.••´¯••¸. BOM!! ( '•. ¸¸.•'´)
. />=)/ • (` '•. ¸ ¸.•'´)
♊. • BLAAAARR!!!
_/ \_ (¸. •'´'. ¸ '`'•.¸)
(

╔╗╔╦══╦╗╔╦══╦╗╔╦══╗
║╚╝‎║╔╗║╚╝‎║╔╗║╚╝‎║╔╗║
║╔╗║╔╗║╔╗║╔╗║╔╗║╔╗║
╚╝‎╚╩╝‎╚╩╝‎╚╩╝‎╚╩╝‎╚╩╝‎╚╝‎
Ciluuk (ʃ⌣ƪ) baa ƪ(˚▽˚)ʃ
( o '.' o ) Ooo...Oo
..!!..Ṁ̭̥̈̅̄ṁ̭̥̈̅̄н☀('.._..')☀нṁ̭̥̈̅̄Ṁ̭̥̈̅̄ ..!!.....
(っˆヮˆ)っ нё헤нё헤нё헤нё헤 ټ•°˚°•.. 
ε(- ^____^ -)з‎‎‎‎
(• ˆ⌣ˆ •)
(◦ "̮ ◦) 
(っ •͡ з •͡)
( ⌣́_⌣̀ ) 
(っ 'o')ﾉ⌒ ~ ː̗̀☀̤̣̈̇ː̖́.• FiRe iN d HoLe!!!
(ˊ•___•ˋ) нммρƒƒ ◦°◦ºº
(づ„_____`´___ „)づ≈
.ε(´ ' ⌣ ' )з◦♡◦ђåª◦♡◦ђåª◦♡◦ђåª◦♡◦ε(´ ' ⌣ ')з 
~ (˘o ˘")
‎ː̗̀(☉,☉)ː̖́ ๑•ิ.•ั๑ Ơ̴̴͡.Ơ̴͡
Ơ̴̴̴̴̴̴͡.̮Ơ̴̴͡ ⌣̴͡͡i̲_i̲⌣̴͡͡ ⌣̴͡͡د̲⌣̴͡͡ >̴̴̴̴̴͡.̮Ơ̴͡
(Q╰_╯)=○☆‎(x,☉")
╮("•͡_•͡)╭ ‎ >̴̴̴̴̴͡.̮Ơ̴͡* (¯―¯٥)
シ ッ ツ ヅ ‎°\(^▿^)/°
╮(•˘︿ ˘•)╭ ♏βwoO°Ћ!!
╰(◣﹏◢)╯ϐӑӑӑӇ!!
(O •͡ -̮ •͡O) (◦^ʃƪ^◦)

Нαρρч вιяτнdαч τσ υ
ωīsн you αιι τнε вεsτ
мαч αιι чoυя dяεαмs ςσмз τяυз
ωιsн υ нαρρy αlωαys
αιι τнε вεsτ īη ευεячτнϊηg
мαч Gσd вιзss u αιωαчs

◦°◦βε†ε◦°◦βε†ε◦°◦βε†ε◦°◦ :(
[̲̅̅B̲̅][̲̅̅ê][̲̅̅T][̲̅̅ü][̲̅̅L] ••• (y)
Ɓȃήƍeєë†††
ßlackßerry® 

ƚ♏♏♏♏♏♏,¸¸,•°˚°ºº Ёмǻήƍ Ë♏Bêêê®®® ‎ƪ(ˇ_ˇ'!l)‎ʃ Ếеéèє мMmº°˚˚°º»/:) ... ∞ >:/ ξeз♏мÕοÖο♉hĥ :'( ∞ ahhh.... 
(")-(")_.-""-.,/^
:' '; )_, ) (o_ )'-.___)'-._)
- e n d u s - e n d u s - 
Ƒάсэв∞ќ
Follº°˚˚°ºow

──╔╗────────╔╗──
──╠╬═╦══╦═╦═╣║──
──║║╚╣║║║╬║╬║╚╗─
─╔╝╠═╩╩╩╣╔╩═╩═╝─
─╚═╝────╚╝────── 


… … … … … … …….. .„–~–„………… ..
. … … … … … … ……./:.:. :.:.:.|.. ……… …
. … … … … … … ……|;.;.; .;.;.;/.. ……… …
. … … … ._„„„„„„„… );.;.;.;.;.| ……… ……
. … … „-”:.:.:.:.:. :.”~-„;.;.;.;| ……… ……..
. … .. (_„„„„„„—„„_:.:. );.;.;..”„…………
. … „-”:.:.:.:.:. :.:.:”"-„/;.;.;.; .;.”„…….. …..
. .. (:.___„„„„„„„„„___);.;.;.;. ;.;.;.|.. ……
. .. /”":.:.:.:.: .:.:.:¯”"\ ;.;.;.;.; .;.„”……. ……
. . \:.__„„„„„„„„„„„„„„__/;;;;;;;;; ;;/\…..
. .. \.:.:.:.:.:. :.:.:.:.: .);;;;;;; ;;;/:::\. ……… …
. … . \„„„„—~~~;;;;;; ;;;;;;;„”::::::: \…..
. … … . “”"~~–„„„„„„„„„„„-”:::::::::: ::\
. … … … … … \::::::::::: ::::::::: :::::\… ….. 
╔══╦═╦═╦══╦═╦═╗
║║║║║║║╠╗╔╣║║║║
║║║║╦║║║║║║╦║╔╝
╚╩╩╩╩╩╩╝╚╝╚╩╩╝ 

*══════════*
║ . ╭═¤═╮
║ ╭╯\( •̃͡-̮•̃͡) ║. 。•oо○•- brmmm
║ ╰ ⊙═⊙╯
*══════════*
║ . ╭═¤═╮ .╭═══════╮
║ ╭╯ ΘΘ. ║. ότώ..τo
║ ╰⊙ ═ ⊙╯.╰═══════╯
* ══════════* 



☆┌─┐. ─┐☆.................
　│▒│ /▒/...................
　 │▒│/▒/.......................
　 │▒ /▒/─┬─ ............................
　│▒│▒|▒│▒│........................
┌┴─┴─┐-┘─┘ ●●****●●...
│▒┌──┘▒▒▒│.......................
└┐▒▒▒▒▒▒┌┘.......................
　└┐▒▒▒▒┌....................... 


Loading. . . 
█ 1% 
██ 10% 
███ 20% 
████ 30% 
█████ 40% 
██████ 50% 
███████ 60% 
████████ 70% 
█████████ 80 % 
██████████ 90% 
Loading . . . 
████████████100% Success 

GANTI SENDIRI NAMA KAMU :
✿.｡˜*•. ˜"*°•.˜"*°•¸,ø¤º°`°º¤ø,¸•°*"˜.•°*"˜ .•*˜ ｡.✿
˜*•.˜"*°•.˜"*° • SYAFINA •°*"˜.•°*"˜ .•*˜
✿.｡˜*•. ˜"*°•.˜"*°•¸,ø¤º°`°º¤ø,¸•°*"˜.•°*"˜ .•*˜ ｡.✿

ORANG / PASANGAN :
♥☻ ☻♥
./█\./█\
..||. .||..


•.•´ ●/ /▌ / \ SYMBOLS : ☺ ♥ ♠ ☤ ☑ ☥ ✵ ☹ ♪ ♀ ✩ ✉ ☠ ✔ ♂ ✇ ✖ ☁ ✌ ♛ ❁ ♖ ✽ ✝ ☪ ☂ ♝ ✏ ❀ ✍ ✂ ☭ ☮ ✿ ✺ ☃ ☼ ✾ ☯ ☾ ☝ ☛ ♞ ☚ ♘ ☄ ☟ ♟ 
•*´¨*•.¸¸.•*´¨*•.¸¸.•*´¨*•.¸¸.•*´¨*•.¸¸.•
::: (\_(\ ...*...*...*...*...*...*...*...*...*...*...*...*
*: (=' :') :::::::: •♥• You Are Only Mine •♥• :::::::::::*
•.. (,('')('')¤...*...*...*...*...*...*...*...*...*...*...*
¸.•*´¨*•.¸¸.•*´¨*•.¸¸.•*´¨*•.¸¸.•*´¨*•.¸


SYMBOL :
z ʎ x ʍ ʌ u ʇ s ɹ q p o u ɯ ן ʞ ɾ ı ɥp ƃ ɟ ǝ p ɔ q ɐ
α в ¢ ∂ є f g ∂н ι נ к ℓ м и σ ρ q я ѕ т υ ν ω χ у z
Ă β Č Ď Ĕ Ŧ Ğ ĎĤ Ĩ Ĵ Ķ Ĺ М Ń Ő Р Q Ŕ Ś Ť Ú V Ŵ Ж Ŷ Ź
ค ๒ ς ๔ є Ŧ ﻮ ๔ђ เ ן к l ๓ ภ ๏ ק ợ г ร t ย ש ฬ ץ א z
∆ ๒ ς ∂ ∑ ﾓ б ∂ｻ ⅰ ﾉ к ﾚ ㎡ и ◊ ㄕ q Я ㄅ ₮ ㄩ √ ῳ ㄚ z
a в c d e ғ g dн ι j ĸ l м n o p q r ѕ т υ v w х y z
α в с ḋ ε ƒ ģ ḋh ï ј ќ l ṃ ṉ ø ρ σ ɾ ṡ τ υ ṿ ώ χ ÿ ʐ
α в c d є f g dh í j k l m n σ p q r s t u v w х ч z
α β γ δ ε ζ η δθ j ι κ λ μ ν ο π ρ ς σ τ υ φ ω χ ψ 


. B). ;;)
< Î \.<3./Ŭ>
☁/ \☁☁/ \☁ 

ミ★ѕєlαмαт мαlαм.. ωαктυηyα тι∂υя.. ѕωєєт∂яєαм..★彡

»»»»»»»»»»

╱◥◣
│∩ │◥███◣ ╱◥███◣
╱◥◣ ◥████◣▓∩▓│∩ ║
│╱◥█◣║∩∩∩ ║◥█▓ ▓█◣
││∩│
▓ ║∩田│║▓ ▓ ▓∩ ║ 

ııllllııllıı♣ѕyαƒιηα♣lıllllııll
*SR*(*)*SR*(*)*SR*(*)*SR*(*)*SR*(*)*SR*(*)*SR*(*)*SR*(*)*SR*(*)*SR*

»»»»»»»»»»

̸ǦǿǾǿƌ ({})
=D morning̸ ~o)
~all ♍♈ friends~ ‎ :)~o):)~o):)~o)Have a nice day !!~o):).

‎
»»»»»»»»»»*source : http://myname-icha.blogspot.com
♐ .keluar naik
__¡'""""""""""""'?
/_ I. B I S ?
'-0-""""""""'00"''"
Stop paakk....!!
Akhirnya
#:-s>. Ñýâ♍e
/!! Ĵuĝa !
_/ \_
Aduh  demi ({})km‎
:)/ ‎. Ǻq
/! Ĵaǜħ²
/>. Ðɑŧɐnĝ
‎

_Π___＿ 。 ðařį
/____＿/ ＼。 rumah
｜ 田田｜門｜ 

Ƈµmà Mo
Ƃiläñб ‎ ‎•*...* • ♏ǒ®ŇϞŇǤ •*...*•

»»»»»»»»»»

Tiii...n Tiii...n!!
brruum______
,___/"|(",),// /___,
:!_(@)_i____!(@)_!>;mici..mici
oRg KeYeN mO
LeWaT (",)
sPecial dTg WaT nGucaPn
☀☀☀☀
*RO**ML**RO**ML**RO**ML**RO**RO**ML**RO**RO**ML**RO**ML**RO**ML**RO**ML**RO**ML*
*...*(*)Göö∂ morning(*)*...*

»»»»»»»»»»

(y)S ĩ ĩ ĩ  !! (y) Sĩ ĩ ĩ  !! ;)

»»»»»»»»»»

:* ♍uuuªaªa©©hhh♡:*♡

»»»»»»»»»»

<3*CA*Šîþ*CA*<3
<3*CA*Šîþ*CA*<3
<3*CA*Šîþ*CA*<3
<3*CA*Šîþ*CA*<3
<3*CA*Šîþ*CA*

»»»»»»»»»»

(y)sip:D ‎/) (y) sipp :D
/' / (y) sipp :D
-+' (___ (y) sipp :D
_) (y) sipp :D
__) (y) sipp :D
__) (y) sipp :D
___) (y) sipp :D

»»  READMORE...