大家会哪几种代码？

迷糊的安安

cls
clrscr();
clc
char clscode[] = {0x1B, 0x5B, 0x48, 0x1B, 0x5B, 0x4A};
clear

克莉丝

1. push    14h
   
2. push    offset unk_4096B0
   
3. call    __SEH_prolog4
   
4. or      [ebp+var_20], 0FFFFFFFFh
   
5. call    __getptd
   
6. mov     edi, eax
   
7. mov     [ebp+var_24], edi
   
8. call    ___updatetmbcinfo
   
9. mov     ebx, [edi+68h]
   
10. mov     esi, [ebp+arg_0]
    
11. call    ?getSystemCP@@YAHH@Z ; getSystemCP(int)
    
12. mov     [ebp+arg_0], eax
    
13. cmp     eax, [ebx+4]
    
14. jz      loc_404E0E
    

复制代码

这样的东西好玩？

myownroc

楼主认识的语言种类也太少了吧

awedcvgyujm

大触人口普查帖_(:з」∠)_

江户川洛奇

让渣渣都不好意思进来了

kuerlulu

渣渣不好意思进来了+1
能简单地写几个rmxp的脚本= =
因为做chm所以能简单地写几个htm的代码= =

艾尔露

1. //毫無反應只是C
   
2. #include<stdio.h>
   
3. void draw_1(int start_row,int end_row,int leading_space);
   
4. void draw_base(int);
   
5. 
   
6. int main()
   
7. {
   
8.         int row,col,star,space;
   
9.         int top_size=5,mid_size=7,bottom_size=9;
   
10.         draw_1(1,top_size,2*(mid_size-top_size));
    
11.         draw_1(2,mid_size,bottom_size-mid_size);
    
12.         draw_1(3,bottom_size,0);
    
13.         draw_base(bottom_size);
    
14.         return 0;
    
15. }
    
16. 
    
17. void draw_1(int start_row,int end_row,int leading_space)
    
18. {
    
19.         int row,col,star,space;
    
20.         for(row=1;row<=end_row;row++)
    
21.         {
    
22.                 if (2*row>2*start_row-1)
    
23.                 {
    
24.                         for (col=1;col<=leading_space;col++)
    
25.                         {
    
26.                                 printf_s("%c",' ');
    
27.                         }
    
28.                         for(space=1;space<=end_row-row;space++)
    
29.                                 printf_s("%c",' ');
    
30.                         for(star=1;star<=2*row-1;star++)
    
31.                                 printf_s("%c",'*');
    
32.                         printf_s("%c",'\n');
    
33.                 }
    
34.         }
    
35. }
    
36. 
    
37. 
    
38. void draw_base(int b_size)
    
39. {
    
40.         int row,col,space,star;
    
41.         for(row=1;row<=b_size/3;row++)
    
42.         {
    
43.                 for(space=1;space<=b_size/2;space++)
    
44.                         printf_s("%c",' ');
    
45.                 for(star=1;star<=b_size;star++)
    
46.                         printf_s("%c",'*');
    
47.                 printf_s("%c",'\n');
    
48.         }
    
49. }

复制代码

{:2_253:}
真正的小渣渣給各位觸手們跪了
嘛真的有學過的只有VB.NET,C和C++吧…

kagamine_len

一种都不会

876加几

继续演示！！！

VB 代码复制

Public Module Judge
    Function Prime(ByVal x As Integer) As Boolean '判断一个数是否是质数
        If x < 2 Then
            Return False
        Elseif x = 2 Then
            Return True
        Else
            Dim i As Integer
            For i = 2 To (x - 1)
                If x Mod i = 0 Then
                    Return False
                End If
            End For
        End If
        Return True
    End Function
End Module
Class Demo
    Sub New()
        If Prime(17) Then
            MsgBox("17是质数")
        Else
            MsgBox("17是合数")
        End If
        If Prime(16) Then
            MsgBox("16是质数")
        Else
            MsgBox("16是合数")
        End If
        '运行结果：17是质数，16是合数
    End Sub
End Class
'以上为VB.NET

Public Module Judge


    Function Prime(ByVal x As Integer) As Boolean '判断一个数是否是质数


        If x < 2 Then


            Return False


        Elseif x = 2 Then


            Return True


        Else


            Dim i As Integer


            For i = 2 To (x - 1)


                If x Mod i = 0 Then


                    Return False


                End If


            End For


        End If


        Return True


    End Function


End Module


Class Demo


    Sub New()


        If Prime(17) Then


            MsgBox("17是质数")


        Else


            MsgBox("17是合数")


        End If


        If Prime(16) Then


            MsgBox("16是质数")


        Else


            MsgBox("16是合数")


        End If


        '运行结果：17是质数，16是合数


    End Sub


End Class


'以上为VB.NET

RUBY 代码复制

def 最大公因数(*num)
  if num.size = 1
    return num[0]
  elsif num.size = 2
    if num[0] % num[1] = 0
      return num[1]
    else
      return 最大公因数(num[1], num[0] % num[1])
    end
  else
    num2 = 最大公因数(num[0], num[1])
    for i in 2...num.size
      num2 = 最大公因数(num2, num[i])
    end
  end
end
p 最大公因数(60, 72, 40) #=>4

def 最大公因数(*num)


  if num.size = 1


    return num[0]


  elsif num.size = 2


    if num[0] % num[1] = 0


      return num[1]


    else


      return 最大公因数(num[1], num[0] % num[1])


    end


  else


    num2 = 最大公因数(num[0], num[1])


    for i in 2...num.size


      num2 = 最大公因数(num2, num[i])


    end


  end


end


p 最大公因数(60, 72, 40) #=>4

和……以前我写的的求和求积……

RUBY 代码复制

def sum(min, max)
  ary = []
  for i in min..max
    ary.push(yield(i))
  end
  num = 0
  for n in ary
    num += n
  end
  return num.truncate == num ? num.truncate : num rescue Nan
end
def multi(min, max)
  ary = []
  for i in min..max
    ary.push(yield(i))
  end
  num = ary[0]
  ary.shift
  for n in ary
    num *= n
  end
  return num.truncate == num ? num.truncate : num rescue Nan
end
p sum(1, 3) {i * 3} #=>18
p sum(0, 4) {i / 2.0} #=>3(舍0)
p multi(1, 3) {i * 2} #=>48

def sum(min, max)


  ary = []


  for i in min..max


    ary.push(yield(i))


  end


  num = 0


  for n in ary


    num += n


  end


  return num.truncate == num ? num.truncate : num rescue Nan


end


def multi(min, max)


  ary = []


  for i in min..max


    ary.push(yield(i))


  end


  num = ary[0]


  ary.shift


  for n in ary


    num *= n


  end


  return num.truncate == num ? num.truncate : num rescue Nan


end


p sum(1, 3) {i * 3} #=>18


p sum(0, 4) {i / 2.0} #=>3(舍0)


p multi(1, 3) {i * 2} #=>48

gonglinyuan

。。。这选项也太少了吧。。
Python、Java、Lisp、Pascal、Lua这些著名语言都被吃了？
既然有VB.NET这种微软黑科技，那么C#、F#这种也该算吧？（虽然我及其讨厌）
另外，像HTML、php等网页相关语言也没有吗?