thaiall logomy background
coding : sort. newbubble.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : newbubble.asp. ID : 2203
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<%
dim numamt, nummax, nummin, ar(100), tmp
numamt = 5 : nummax = 100 : nummin = 50
response.write("Before sorted by new bubble sort<br>")
randomize
for i = 1 to numamt
  ar(i) = int(nummin  + (rnd * ( nummax - nummin + 1 )))
  response.write( i & " : " & ar(i) & "<br>")                
next
xleft=2 : xright=numamt : xkeep=numamt
do
  for j = xright to xleft step -1
    if ar(j-1) > ar(j) then
      tmp = ar(j-1)
      ar(j-1) = ar(j)	  
      ar(j) = tmp
	  xkeep = j
    end if
  next
  xleft = xkeep + 1    
  for j = xleft to xright
    if ar(j-1) > ar(j) then
      tmp = ar(j-1)
      ar(j-1) = ar(j)	  
      ar(j) = tmp
	  xkeep = j
    end if
  next
  xright = xkeep - 1  
loop while xleft > xright
response.write("<hr>After sorted by new bubble sort<br>")
for i = 1 to numamt  
  response.write( i & " : " & ar(i) & "<br>")                
next
%>
จำนวน : 35 บรรทัด
าษาเฮชทีเอ็มแอล (HTML = HyperText Markup Language) คือ ภาษาคอมพิวเตอร์ที่ออกแบบมาเพื่อใช้ในการสร้างเว็บเพจที่เรียกดูผ่านทางเว็บเบราว์เซอร์ (Web Browser) เริ่มพัฒนาโดย ทิม เบอร์เนอรส์ ลี (Tim Berners Lee) ในปัจจุบัน HTML ล่าสุดคือ รุ่น 5 เป็นมาตรฐานหนึ่งของ ISO ซึ่งจัดการโดย World Wide Web Consortium (W3C) ในปัจจุบัน ทาง W3C ผลักดัน รูปแบบของ HTML แบบใหม่ ที่เรียกว่า XHTML รุ่นแรกคือ 1.0 (ม.ค.2543) ซึ่งมีโครงสร้างเป็นแบบ XML (eXtensible Markup Language)
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com