Tin học Viết chương trình in ra màn hình

[trongvu_98]

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

Viết chương trình in ra màn hình các hình sau:
a)

*
***
*****
*******
*********​

b)

*******
*****
***
*
***
*****
*******​

Cho em đoạn mã của đoạn này ạ!
Nếu có thể xin thầy cô cho em luôn cái clip để em xem rõ ràng hơn

 

[trongvu_98]

Không ai giải dùm em hết à.Chắc em hết kiểm tra được rồi

 

[gauconmary_tn]

Dùng chương trình pascal hả bạn!
Mình ko chắc chắn lắm! Tại mình cũng mới học giống bạn

 

[trongvu_98]

Hic. Mấy anh chị cũng chả giải dùm em tí nào. Vậy em chết chắc rồi

 

[saklovesyao]

Bạn dùng phần mềm gì ? Có nói thì chúng mình mới có thể giúp bạn được

 

[o0_zz_0o]

var i, j: integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do write(' ');
for j:=1 to n-i+1 do write('* ' );
end;
readln;
end.

bài 2

var i, j: integer;
begin
for i:=1 to 5 do
begin
for j:=1 to i do write(' ');
for j:=1 to n-i+1 do write('* ' );
end;
for i:=4 downto 1 do
begin
for j:=1 to i do write(' ');
for j:=1 to n-i+1 do write('* ' );
end;
readln;
end.
readln;
end.

Anh ơi, em nghĩ bài này chỉ cần sử dụng câu lệnh writeln thôi vì đề bài đâu có yêu cầu nhập n đâu ạ
với lại theo tên trongvu_98 thì bạn đây có lẽ chỉ mới học lớp 8 bằng em thôi và nếu theo chương trình tin bình thường thì bọn em chỉ mới học cách sử dụng biến trong chương trình
Nếu như mình nói đúng thì bạn có thể giải như thế này
BÀi 1:

program hihi;
uses crt;
begin
     clrscr;
        writeln('     *     ' );
        writeln('    * *    ' );
        writeln('   * * *   ' );
        writeln('  * * * *  ' );
        writeln(' * * * * * ' );
        readln;
end.

BÀi 2

program hihi;
uses crt;
begin
     clrscr;
        writeln('******* ' );
        writeln(' ***** ' );
        writeln('  *** ' );
        writeln('   * ' );
        writeln('  ***' );
        writeln(' ***** ' );
        writeln('******* ' );
        readln;
end.

 

[trongvu_98]

Cảm ơn anh 11thanhkhoeo và bạn o0_zz_0o, bài của anh thi em thử rồi nó ra lỗi chỗ n và theo như bài của bạn kia thi bài đó đúng.Thanks all

 

[concanhcam]

bài 1
var i, j: integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do write(' ');
for j:=1 to 5-i+1 do write('* ' );
end;
readln;
end.

bài 2


var i, j: integer;
begin
for i:=1 to 5 do
begin
for j:=1 to i do write(' ');
for j:=1 to 5-i+1 do write('* ' );
end;
for i:=4 downto 1 do
begin
for j:=1 to i do write(' ');
for j:=1 to 5-i+1 do write('* ' );
end;
readln;
end.
readln;
end.

Bạn thử xem nhé mình chưa thử

 

[o0_zz_0o]

bài 1
var i, j: integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do write(' ');
for j:=1 to 5-i+1 do write('* ' );
end;
readln;
end.

bài 2


var i, j: integer;
begin
for i:=1 to 5 do
begin
for j:=1 to i do write(' ');
for j:=1 to 5-i+1 do write('* ' );
end;
for i:=4 downto 1 do
begin
for j:=1 to i do write(' ');
for j:=1 to 5-i+1 do write('* ' );
end;
readln;
end.
readln;
end.
Bạn thử xem nhé mình chưa thử

Bài concanhcam cần bổ sung thêm câu lệnh writeln trong cặp begin end để xuống dòng tạo thành các tam giác