Tin học Ảo thuật qua màn hình với PASCAL

trà nguyễn hữu nghĩa · 21 Tháng bảy 2018

Code đây nha. Test đi rồi biết.

Mã:

 Program Ao_Thuat;
 uses crt;

 var n,m,i,kq,x,y: integer;
     h: string[1];

 BEGIN
      n := 1;
      kq := 0;
      clrscr;
      writeln('Ban hay nghi mot so bat ky tu 1 - 60');Delay(1000);
      write('Toi se doan so ban nghi la gi...');readln;
      repeat
            clrscr;
            Gotoxy(30,2);Write('A O  T H U A T');
            m := n;
            x := 1;
            y := 1;
            while m <= 60 do
            begin
                 for i := m to m + n-1 do
                 begin
                      inc(y);
                      if i <= 60 then
                      begin
                           gotoxy(x*4,y*2);
                           write(i);
                      end;
                      if y >= 5 then begin y := 1;inc(x);end;
                 end;
                 m := m + 2*n;
            end;
            Gotoxy(4,12);
            write('Co so ban nghi khong (c = co)? ');
            readln(h);
            if h = 'c' then inc(kq,n);
            n := n*2;
      until n > 32;
      clrscr;
      if not (kq in [1..60]) then write('Vui long kiem tra lai!')
      else write('Co phai so ban nghi la: ',kq);
      readln;
 END.

trà nguyễn hữu nghĩa · 21 Tháng bảy 2018

À quên nữa. Test thử cho các bạn biết chứ không thì lại bảo là "điêu"

Giả sử mình nghĩ số 13 (số nguyên tố cho đệp)

Cái này có số 13

cái này không

cái này có

cái này thì không

cái này cũng không

Và đây chính là kết quả

son_gohan · 22 Tháng bảy 2018

@trà nguyễn hữu nghĩa vẫn miệt mài ra game cho anh em xả stress

trà nguyễn hữu nghĩa · 22 Tháng bảy 2018

son_gohan said:
@trà nguyễn hữu nghĩa vẫn miệt mài ra game cho anh em xả stress

e cũng đâu có gì làm nên rảnh thì viết thôi ạ.....tại máy e cùi chứ không là e qua Visual studio roài, xài Pascal chán quá

honganh140503@gmail.com · 26 Tháng mười hai 2019

trà nguyễn hữu nghĩa said:
e cũng đâu có gì làm nên rảnh thì viết thôi ạ.....tại máy e cùi chứ không là e qua Visual studio roài, xài Pascal chán quá

anh ơi, có trang nào dạy tốt ngôn ngữ máy tính ko ? Anh chỉ em với.

trà nguyễn hữu nghĩa · 26 Tháng mười hai 2019

honganh140503@gmail.com said:
anh ơi, có trang nào dạy tốt ngôn ngữ máy tính ko ? Anh chỉ em với.

Ngôn ngữ máy tính hay ngôn ngữ lập trình nhỉ....
lập trình thì có nhiều web hay lắm, em tìm trên mạng ra đầy
còn ngôn ngữ máy tính anh còn không biết nó là gì

honganh140503@gmail.com · 26 Tháng mười hai 2019

trà nguyễn hữu nghĩa said:
Ngôn ngữ máy tính hay ngôn ngữ lập trình nhỉ....
lập trình thì có nhiều web hay lắm, em tìm trên mạng ra đầy
còn ngôn ngữ máy tính anh còn không biết nó là gì

à ngôn ngữ lập trình, em gõ vội nên lỡ...

Valhein AIC · 4 Tháng tư 2020

trà nguyễn hữu nghĩa said:

Code đây nha. Test đi rồi biết.

Mã:

 Program Ao_Thuat;
 uses crt;

 var n,m,i,kq,x,y: integer;
     h: string[1];

 BEGIN
      n := 1;
      kq := 0;
      clrscr;
      writeln('Ban hay nghi mot so bat ky tu 1 - 60');Delay(1000);
      write('Toi se doan so ban nghi la gi...');readln;
      repeat
            clrscr;
            Gotoxy(30,2);Write('A O  T H U A T');
            m := n;
            x := 1;
            y := 1;
            while m <= 60 do
            begin
                 for i := m to m + n-1 do
                 begin
                      inc(y);
                      if i <= 60 then
                      begin
                           gotoxy(x*4,y*2);
                           write(i);
                      end;
                      if y >= 5 then begin y := 1;inc(x);end;
                 end;
                 m := m + 2*n;
            end;
            Gotoxy(4,12);
            write('Co so ban nghi khong (c = co)? ');
            readln(h);
            if h = 'c' then inc(kq,n);
            n := n*2;
      until n > 32;
      clrscr;
      if not (kq in [1..60]) then write('Vui long kiem tra lai!')
      else write('Co phai so ban nghi la: ',kq);
      readln;
 END.

làm sao để nói không anh

trà nguyễn hữu nghĩa · 4 Tháng tư 2020

Valhein AIC said:
làm sao để nói không anh

Không phải nhấn có thì tức là không đó em, nhấn phím nào đó trừ "c" ra là được

System32 · 4 Tháng tư 2020

trà nguyễn hữu nghĩa said:
e cũng đâu có gì làm nên rảnh thì viết thôi ạ.....tại máy e cùi chứ không là e qua Visual studio roài, xài Pascal chán quá

Thử dùng Python ý

. Máy cùi chạy vẫn được. Mình toàn dùng Python

trà nguyễn hữu nghĩa · 4 Tháng tư 2020

System32 said:
Thử dùng Python ý. Máy cùi chạy vẫn được. Mình toàn dùng Python

Python mà code mấy cái này thì chán lắm.....code AI hay web hay game gì bá đạo mới có hứng

System32 · 4 Tháng tư 2020

Thực ra nếu bạn biệt dùng Python code kết hợp với 1 vài ứng dụng đồ họa khác thì chắc vẫn làm được game thôi

Đây là 1 ví dụ đơn giản sau (tạo 1 video):

Mã:

from manimlib.imports import *

class OpeningManimExample(Scene):
    def construct(self):
        title = TextMobject("This is some \\LaTeX")
        basel = TexMobject(
            "\\sum_{n=1}^\\infty "
            "\\frac{1}{n^2} = \\frac{\\pi^2}{6}"
        )
        VGroup(title, basel).arrange(DOWN)
        self.play(
            Write(title),
            FadeInFrom(basel, UP),
        )
        self.wait()

        transform_title = TextMobject("That was a transform")
        transform_title.to_corner(UP + LEFT)
        self.play(
            Transform(title, transform_title),
            LaggedStart(*map(FadeOutAndShiftDown, basel)),
        )
        self.wait()

        grid = NumberPlane()
        grid_title = TextMobject("This is a grid")
        grid_title.scale(1.5)
        grid_title.move_to(transform_title)

        self.add(grid, grid_title)  # Make sure title is on top of grid
        self.play(
            FadeOut(title),
            FadeInFromDown(grid_title),
            ShowCreation(grid, run_time=3, lag_ratio=0.1),
        )
        self.wait()

        grid_transform_title = TextMobject(
            "That was a non-linear function \\\\"
            "applied to the grid"
        )
        grid_transform_title.move_to(grid_title, UL)
        grid.prepare_for_nonlinear_transform()
        self.play(
            grid.apply_function,
            lambda p: p + np.array([
                np.sin(p[1]),
                np.sin(p[0]),
                0,
            ]),
            run_time=3,
        )
        self.wait()
        self.play(
            Transform(grid_title, grid_transform_title)
        )
        self.wait()

Chạy code trên với thư viện manim, kết hợp với FFmpeg, Cairo, Latex và Sox thì đây là kết quả:

Hoàng Vũ YS · 4 Tháng tư 2020

trà nguyễn hữu nghĩa said:

Code đây nha. Test đi rồi biết.

Mã:

 Program Ao_Thuat;
 uses crt;

 var n,m,i,kq,x,y: integer;
     h: string[1];

 BEGIN
      n := 1;
      kq := 0;
      clrscr;
      writeln('Ban hay nghi mot so bat ky tu 1 - 60');Delay(1000);
      write('Toi se doan so ban nghi la gi...');readln;
      repeat
            clrscr;
            Gotoxy(30,2);Write('A O  T H U A T');
            m := n;
            x := 1;
            y := 1;
            while m <= 60 do
            begin
                 for i := m to m + n-1 do
                 begin
                      inc(y);
                      if i <= 60 then
                      begin
                           gotoxy(x*4,y*2);
                           write(i);
                      end;
                      if y >= 5 then begin y := 1;inc(x);end;
                 end;
                 m := m + 2*n;
            end;
            Gotoxy(4,12);
            write('Co so ban nghi khong (c = co)? ');
            readln(h);
            if h = 'c' then inc(kq,n);
            n := n*2;
      until n > 32;
      clrscr;
      if not (kq in [1..60]) then write('Vui long kiem tra lai!')
      else write('Co phai so ban nghi la: ',kq);
      readln;
 END.

code này dùng cho free Pascal đc k a ?

trà nguyễn hữu nghĩa · 4 Tháng tư 2020

Hoàng Vũ YS said:
code này dùng cho free Pascal đc k a ?

Được nha em.

System32 said:

Thực ra nếu bạn biệt dùng Python code kết hợp với 1 vài ứng dụng đồ họa khác thì chắc vẫn làm được game thôi

Đây là 1 ví dụ đơn giản sau (tạo 1 video):

Mã:

from manimlib.imports import *

class OpeningManimExample(Scene):
    def construct(self):
        title = TextMobject("This is some \\LaTeX")
        basel = TexMobject(
            "\\sum_{n=1}^\\infty "
            "\\frac{1}{n^2} = \\frac{\\pi^2}{6}"
        )
        VGroup(title, basel).arrange(DOWN)
        self.play(
            Write(title),
            FadeInFrom(basel, UP),
        )
        self.wait()

        transform_title = TextMobject("That was a transform")
        transform_title.to_corner(UP + LEFT)
        self.play(
            Transform(title, transform_title),
            LaggedStart(*map(FadeOutAndShiftDown, basel)),
        )
        self.wait()

        grid = NumberPlane()
        grid_title = TextMobject("This is a grid")
        grid_title.scale(1.5)
        grid_title.move_to(transform_title)

        self.add(grid, grid_title)  # Make sure title is on top of grid
        self.play(
            FadeOut(title),
            FadeInFromDown(grid_title),
            ShowCreation(grid, run_time=3, lag_ratio=0.1),
        )
        self.wait()

        grid_transform_title = TextMobject(
            "That was a non-linear function \\\\"
            "applied to the grid"
        )
        grid_transform_title.move_to(grid_title, UL)
        grid.prepare_for_nonlinear_transform()
        self.play(
            grid.apply_function,
            lambda p: p + np.array([
                np.sin(p[1]),
                np.sin(p[0]),
                0,
            ]),
            run_time=3,
        )
        self.wait()
        self.play(
            Transform(grid_title, grid_transform_title)
        )
        self.wait()

Chạy code trên với thư viện manim, kết hợp với FFmpeg, Cairo, Latex và Sox thì đây là kết quả:

Ảo nhỉ....python có vẻ mạnh nhưng vẫn thích java hơn....vì mình nghĩ làm game thì python thua java nhiều

Valhein AIC · 4 Tháng tư 2020

Hoàng Vũ YS said:
code này dùng cho free Pascal đc k a ?

không bạn nha

Hoàng Vũ YS · 4 Tháng tư 2020

Valhein AIC said:
không bạn nha

mik bật được mà

System32 · 4 Tháng tư 2020

trà nguyễn hữu nghĩa said:
Được nha em.

Ảo nhỉ....python có vẻ mạnh nhưng vẫn thích java hơn....vì mình nghĩ làm game thì python thua java nhiều

Sở dĩ Python chạy được như trên là vì 2 điều:

1. Windows (và Linux) và các ứng dụng chạy trên Windows sử dụng ngôn ngữ lập trình C/C++
2. CPython là phiên bản Python mặc định khi được cài trên Windows và Linux. CPython là 1 ngôn ngữ được kết hợp bởi ngôn ngữ C và Python và hiện là phiên bản mặc định khi cài Python và sử dụng phổ biến nhất. CPython cũng có hàm tương tác với một số ngôn ngữ khác, trong đó có C. Do vậy Python có thể tương tác với ứng dụng chạy trên Windows.

Java chủ yếu dùng để lập trình Android apps nên phổ biến với Android. Lập trình Java thì cần dùng Android Studio (Cái này chạy năng phết, nặng hơn cả Visual Studio). Mà Visual Studio thì không hỗ trợ lập trình Java, nhưng vẫn có thể dùng Visual Studio để lập trình Android với 1 số ngôn ngữ khác ít phổ biến hơn

Python thì lại phổ biến với Windows và Linux (Linux phổ biến hơn) và lại rất nhẹ. Bởi Python sử dụng GIL (Global Interpreter Lock). GIL hoạt động khá giống 1 máy ảo, và GIL chỉ sử dụng dụy nhất 1 luồng của CPU. Python cũng có IDLE để gõ Python code (thay cho Visual Studio), thậm chí Notepad cũng có thể dùng để gõ Python (Cả 2 đều có giao diện đơn giản nhưng không thoải mái lắm, nhưng ít ra IDLE có cài đặt thay đổi giao diện)

Ender Dragon Boy Vcl · 4 Tháng tư 2020

không hiểu luật
giair thichs ik
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz

Axiore_Ro · 17 Tháng tư 2020

em chả hiểu tại sao nó lại ra đc số em nghĩ

trà nguyễn hữu nghĩa said:

Code đây nha. Test đi rồi biết.

Mã:

 Program Ao_Thuat;
 uses crt;

 var n,m,i,kq,x,y: integer;
     h: string[1];

 BEGIN
      n := 1;
      kq := 0;
      clrscr;
      writeln('Ban hay nghi mot so bat ky tu 1 - 60');Delay(1000);
      write('Toi se doan so ban nghi la gi...');readln;
      repeat
            clrscr;
            Gotoxy(30,2);Write('A O  T H U A T');
            m := n;
            x := 1;
            y := 1;
            while m <= 60 do
            begin
                 for i := m to m + n-1 do
                 begin
                      inc(y);
                      if i <= 60 then
                      begin
                           gotoxy(x*4,y*2);
                           write(i);
                      end;
                      if y >= 5 then begin y := 1;inc(x);end;
                 end;
                 m := m + 2*n;
            end;
            Gotoxy(4,12);
            write('Co so ban nghi khong (c = co)? ');
            readln(h);
            if h = 'c' then inc(kq,n);
            n := n*2;
      until n > 32;
      clrscr;
      if not (kq in [1..60]) then write('Vui long kiem tra lai!')
      else write('Co phai so ban nghi la: ',kq);
      readln;
 END.

Valhein AIC · 17 Tháng tư 2020

Axiore_Ro said:
em chả hiểu tại sao nó lại ra đc số em nghĩ

bởi vì cái này rất dễ nếu bạn chú ý mấy con số nó xuất hiên thì bạn sẽ bik tại sao

Tin học Ảo thuật qua màn hình với PASCAL

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH

Học sinh

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH

Học sinh

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH

Học sinh

Học sinh

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH

Học sinh chăm học

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH

Học sinh chăm học

Học sinh

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH

Học sinh

Học sinh

Học sinh chăm học

Học sinh mới

Học sinh

Học sinh