có ai có code pascal chuyển động 3d siêu sinh động ko xin code

2 câu trả lời

#Source Code Tỏ Tình Bằng Qrcode
import pyqrcode
import string
import os
from time import time, ctime
a = 1

for a in range (7): print("")
print("                  ░██████╗░██████╗░░█████╗░░█████╗░██████╗░███████╗")
print("                  ██╔═══██╗██╔══██╗██╔══██╗██╔══██╗██╔══██╗██╔════╝")
print("                  ██║██╗██║██████╔╝██║░░╚═╝██║░░██║██║░░██║█████╗░░")
print("                  ╚██████╔╝██╔══██╗██║░░██╗██║░░██║██║░░██║██╔══╝░░")
print("                  ░╚═██╔═╝░██║░░██║╚█████╔╝╚█████╔╝██████╔╝███████╗")
print("                  ░░░╚═╝░░░╚═╝░░╚═╝░╚════╝░░╚════╝░╚═════╝░╚══════╝")
print("")
print("                          Việt đẹp trai !!!")
print("")

fname = '.png'
s = str(input("                           >>>CONTENT: "))
t = str(ctime(time()))
t = t.replace(':',"'")
fname = '[' + t + ']' + fname
print("                           >>>Processing...")
url = pyqrcode.create(s, encoding='utf-8')
url.png(fname, scale = 10)
print("                           >>>Done!")
os.startfile(fname)

while (True): a = a + 1

để chạy code này:

bước 1:bạn phải vào cmd gõ lệnh là pip install pyqrcode

bước 2 bạn đổi tên ở print("                          Việt đẹp trai !!!") dòng này bạn đổi tên của bạn vào 

bước 3 bạn chạy code trên cmd 

chúc bạn thanh công 

uses crt,graph; const r=50; s=3; var gd,gm,x,y,mx,my,nen: integer; c: char; procedure Bong(x,y,mau: word); begin setcolor(mau); setfillstyle(1,mau); fillellipse(x,y,r,r); end; begin gd:= detect; initgraph(gd,gm,”); nen:=cyan; setbkcolor(nen); mx:= getmaxx; my:= getmaxy; randomize; x:= random(mx-2*r)+r; y:=random(my-2*r)+r; bong(x,y,red); repeat  c := readkey; if (c = #0) then begin c := readkey; case c of #75: while (not keypressed) and (x>r) do begin bong(x,y,nen);x:=x-s;bong(x,y,red);delay(100) end; #77: while (not keypressed) and (x begin bong(x,y,nen);x:=x+s;bong(x,y,red);delay(100) end; #72: while (not keypressed) and (y>r) do begin bong(x,y,nen);y:=y-s;bong(x,y,red);delay(100) end; #80: while (not keypressed) and (y begin bong(x,y,nen);y:=y+s;bong(x,y,red);delay(100) end; end; end; until c=#27; closegraph; end.

Câu hỏi trong lớp Xem thêm