Tin học Lập trình Pascal

[Ngô Nam Khánh]

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

Hãy viết chương trình pascal nhập từ bàn phím biểu thị * để người nhập vẽ hình tam giác bất kì
Vd tam giác như sau
*
**
***
****
*****
Các bạn dân Tin đâu rồi giúp mình vs

 

[Lê Khánh Chi]

Hãy viết chương trình pascal nhập từ bàn phím biểu thị * để người nhập vẽ hình tam giác bất kì
Vd tam giác như sau
*
**
***
****
*****
Các bạn dân Tin đâu rồi giúp mình vs

Bạn tham khảo nhé!!!
Program ve_tam_giac;
Uses crt;
Begin
Writeln('*');
Writeln('**');
Writeln('***');
Writeln('****');
Writeln('*****');
End.
Đây là một kiểu chương trình đơn giản, tùy theo từng loại tam giác mk muốn vẽ mà thay đổi câu lệnh xuất ra thôi.

 

[Ngô Nam Khánh]

Bạn tham khảo nhé!!!
Program ve_tam_giac;
Uses crt;
Begin
Writeln('*');
Writeln('**');
Writeln('***');
Writeln('****');
Writeln('*****');
End.
Đây là một kiểu chương trình đơn giản, tùy theo từng loại tam giác mk muốn vẽ mà thay đổi câu lệnh xuất ra thôi.

Bạn có thể viết chương trình theo câu lệnh lặp được không

 

[Deathheart]

Bạn có thể viết chương trình theo câu lệnh lặp được không

nếu đề cho sẵn số dòng thì làm như bạn trên
Còn đề yêu cầu nhập vào số dòng n thì bạn hãy cho lệnh như sau:
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;

 

[Ngô Nam Khánh]

nếu đề cho sẵn số dòng thì làm như bạn trên
Còn đề yêu cầu nhập vào số dòng n thì bạn hãy cho lệnh như sau:
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;

Mong bạn có thể ghi đầy đủ cả chương trình ra được không ạ

 

[Deathheart]

var i,j,n:integer;
begin
               write('nhap so dong: '); readln(n);
               for i:=1 to n do
                begin
                        for j:=1 to i do
                        write('*');
                         writeln;
                end;
                 readln;
                readln;
end.