相关试卷

from PIL import Image

import numpy as np

import matplotlib.pyplot as plt

from random import random

s=input("依次输入左上角和右下角的坐标值（以‘,’分隔，以‘,’结尾）：")

w=[];h=[];k=0;t=0

for i in s:

    if i==",":

        if k%2==0:

            w.append(t)    #append方法用于在列表末尾添加新元素

        else:

            h.append(t)

        t=0;k=k+1

    else:

print(w,h)

im =  #打开图像y.jpg

pix=im.load()

for i in range（）:

    j= h[0]

    while j<=h[1]:

        R,G,B=pix[i,j]

          pix[i,j]=(int(random()*0.8*R),int(random()*0.8*G),int(random()*0.8*B))

        j+=1

plt.figure("y1")          #指定当前绘图对象

plt.imshow(im)            #显示图像

plt.axis("off")           #关闭图像坐标

plt.show()                #弹出包含了图片的窗口

def dtb(num):     #十进制转8位二进制，高低4位分别处理

    i=0;result=""

    while i<8:

        if i<4:

            y=1-num % 2

        else:

            y=num % 2

        num=num//2

        result=str(y)+result

        i+=1

    return result

mw=input("请输入待加密的字符：")

jm=""

mm={"Q":"A","W":"B","E":"C","R":"D","T":"E","Y":"F","U":"G","I":"H","O":"I","P":"J","A":"K","S":"L","D":"M","F":"N","G":"O","H":"P","J":"Q","K":"R","L":"S","Z":"T","X":"U","C":"V","V":"W","B":"X","N":"Y","M":"Z"}

for i in range(len(mw)):

    if "A"<=mw[i]<="Z":

    else:

        jm+=mw[i]

jm1=""

for i in range(len(jm)):

zf="0123456789ABCDEF";result1="";sum=0

for i in :

    sum=int(jm1[i])*8+int(jm1[i+1])*4+int(jm1[i+2])*2+int(jm1[i+3])

    result1+=zf[sum]

    sum=0

print("密文为：",result1)

Const INF = 2147483646

Dim n As Long， a As Long

Dim dis(1 To 10001) As Long， flag(1 To 10001) As Boolean

Dim head(1 To 10001) As Long， nxt(1 To 10001) As Long

Dim ed(1 To 10001) As Long， value(1 To 10001) As Long

Dim cnt As Long， tby As Long， sss As String

Dim i As Long， j As Long

Private Sub Command1_Click()

    cnt = 0

    n = Val(Text1.Text)

    For i = 1 To n

        dis(i) = INF : flag(i) = False : head(i) = 0

    Next i

    tby = 1

    sss = Text2.Text

    For i = 1 To n

        For j = 1 To n

            If i <> j Then Call addedge(i， j， a)

        Next j

    Next i

    Dim ans As Long

    dis(1) = 0 : ans = 0

    For i = 1 To n

        Dim hg As Long， u As Long

        hg = INF

        u = 0

        For j = 1 To n

            If  Then

                hg = dis(j)

                u = j

            End If

        Next j

        flag(u) = True

        Dim p As Long

        p = head(u)

        Do While p <> 0

            Dim v As Long

            v = ed(p)

            If Not flag(v) And dis(v) > value(p) Then

                dis(v) = value(p)

            End If

            p = nxt(p)

        Loop

    Next i

    Label1.Caption = Str(ans)

End Sub

Sub addedge(a As Long， b As Long， x As Long)

    cnt = cnt + 1

    value(cnt) = x

    ed(cnt) = b

    nxt(cnt) = head(a)

    head(a) = cnt

End Sub

Function Getin() As Long

    Dim aaa As String

    aaa = Mid(sss， tby， 1)

    If aaa = " " Then tby = tby + 1

    aaa = Mid(sss， tby， 1)

    Dim bbb As Long

    bbb = 0

    Do While aaa <> " " And tby <= Len(sss)

        bbb = bbb * 10 + Val(aaa) : tby = tby + 1

        aaa = Mid(sss， tby， 1)

    Loop

    Getin = bbb

End Function

Const maxn = 500005

Dim n As Long， a As Long， b As Long

Dim f(1 To maxn) As Long

Dim i As Long， tby As Long

Private Sub Command1_Click()

    tby = 1

    n = Val(Text1.Text) : a = Val(Text2.Text) : b = Val(Text3.Text)

    For i = 1 To n

        f(i) = Getin()

    Next i

    Dim l As Long， r As Long， m As Long

    l = 0: r = n

    Do While l <= r

        m = (l + r) / 2

        If Then

            r = m - 1

        Else

            l = m + 1

        End If

    Loop

    Label1.Caption = Str(r + 1)

End Sub

Function check(x As Long)

    Dim y As Long

    y = x

    For i = 1 To n

    Dim tmp As Long

    If tmp > 0 Then

        If y < 0 Then

            check = True

            Exit Function

        End If

    Next i

    check = False

End Function

Function Getin() As Long

    Dim aaa As String

    aaa = Mid(Text4.Text， tby， 1)

    If aaa = " " Then tby = tby + 1

    aaa = Mid(Text4.Text， tby， 1)

    Dim bbb As Long

    bbb = 0

    Do While aaa <> " " And tby <= Len(Text4.Text)

        bbb = bbb * 10 + Val(aaa) : tby = tby + 1

        aaa = Mid(Text4.Text， tby， 1)

    Loop

    Getin = bbb

End Function