11A3 THĐ 11A3 THĐ - Tài trợ bởi công ty Xồn Xồn
|
| 11A3 THĐ :: Góc Học Tập :: Tin Học
|
|
|
| Tác giả | Thông điệp |
---|
Admin Admin
Tổng số bài gửi : 88 Join date :
27/01/2010 Age : 29 Đến từ : In The Hell
|
Tiêu đề: Pascal Vui Sat Mar 27, 2010 8:40 pm
|
|
| Rảnh rảnh làm cái này zui zui, mọi người vô chạy cái coi Code:uses crt; const max = 9; var i,j:integer; begin clrscr; repeat textcolor(random(15-1)+1); for i:=1 to max do begin for j:=1 to max do if (i=1) or (i=max) or
(j=1) or (j=max) or (j=i) or (i=max-j+1) then write(i) else write('.'); writeln; end; writeln('==================='); until (KeyPressed); end.
về lưu thành file matrix.pas (free pascal) matrix.PAS(Turbo
Pascal) =>chạy rồi sẽ thấy hay ở đây có file đã complier mediafire.com ?vnoy5xudmg1
|
|
|
|
|
|
Trang 1 trong tổng số 1 trang
|
|
| » Free Pascal » PASCAL ZDUI 2
|
|
Permissions in this forum:
| Bạn không có quyền trả lời bài viết
|
11A3 THĐ :: Góc Học Tập :: Tin Học
|
|
|
|
|
|
|
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!! ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt
tình & dễ thương trên diễn đàn.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 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á
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.
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ì
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ỡ...
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
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
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
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
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ả:
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 ?
code này dùng cho free Pascal đc k a ?
Được nha em. 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
code này dùng cho free Pascal đc k a ?
không bạn nha
mik bật được mà
Đượ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)
không hiểu luật giair thichs ik zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
em chả hiểu tại sao nó lại ra đc số em nghĩ 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.
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 |