Tin học 11: Viết chương trình Pascal

[Lâm Băng Cự Giải]

[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.

ai giúp em với ạ, em cần gấp lắm ạ

một ô vuông là một dấu cách nhá mọi người. Đề là viết chương trình để vẽ hình trên ạ

 

[Lâm Băng Cự Giải]

@Nguyễn Thánh Tiền giúp em với ạ

 

[Nguyễn Thánh Tiền]

cách 1


var i, j :integer;
begin
for i:=4 downto 1 do
begin
for j:=1 to i do
write (" ");
if i=4 then writelln("*")
else
begin
write("*");
for j := 1 to (4-i-1)*2+ 1 do
write(" ");
writelln("*");
end;
for i:=9 downto 1 do
write("*");
end,

cach 2

procedure ve()
begin
writelln("    *");
writelln("   * *");
writelln("  *   *");
writelln(" *     *");
writelln("********");
end;
begin 
ve();
end.

khuyên dùng cách 2

Than

 

[Lâm Băng Cự Giải]

cách 1


var i, j :integer;
begin
for i:=4 downto 1 do
begin
for j:=1 to i do
write (" ");
if i=4 then writelln("*")
else
begin
write("*");
for j := 1 to (4-i-1)*2+ 1 do
write(" ");
writelln("*");
end;
for i:=9 downto 1 do
write("*");
end,

cach 2

begin
writelln("    *");
writelln("   * *");
writelln("  *   *");
writelln(" *     *");
writelln("********");
end.

khuyên dùng cách 2

Than

nhưng theo cách hai thì có cả cách cả sao em sợ ko vẽ đv anh ạ

 

[Lâm Băng Cự Giải]

thầy em bảo sử dụng hàm produce anh ạ

 

[Nguyễn Thánh Tiền]

thầy em bảo sử dụng hàm produce anh ạ

đã sửa

nhưng theo cách hai thì có cả cách cả sao em sợ ko vẽ đv anh ạ

cách 2 100% thành công nhưng không thay đổi được cạnh tam giác

cách 1 anh không nhớ pascal nên có thể sai cú pháp

Ps bài này mà thầy giáo bắt dùng procedure làm gì kg biết

những chương trình khoảng vài ngàn dòng code mà lặp nhau thì còn dùng đc

 

[Lâm Băng Cự Giải]

đã sửa



cách 2 100% thành công nhưng không thay đổi được cạnh tam giác

cách 1 anh không nhớ pascal nên có thể sai cú pháp

Ps bài này mà thầy giáo bắt dùng procedure làm gì kg biết

những chương trình khoảng vài ngàn dòng code mà lặp nhau thì còn dùng đc

hjhj thầy bảo dùng cho quen anh ạ mai thầy bắt nạp bài rồi mà em còn chưa biết dùng nó vào như thế nào huhu

 

[Nguyễn Thánh Tiền]

hjhj thầy bảo dùng cho quen anh ạ mai thầy bắt nạp bài rồi mà em còn chưa biết dùng nó vào như thế nào huhu

anh đã sửa mà

 

[Lâm Băng Cự Giải]

dạ em thấy rồi ạ cảm ơn anh nhiều