Tin học Lập trình Pascal

Ngô Nam Khánh · 4 Tháng năm 2019

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 · 4 Tháng năm 2019

Ngô Nam Khánh said:
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 · 4 Tháng năm 2019

Lê Khánh Chi said:
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 · 4 Tháng năm 2019

Ngô Nam Khánh said:
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 · 4 Tháng năm 2019

Trương Văn Trường Vũ said:
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 · 4 Tháng năm 2019

Mã:

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.

Tìm kiếm

Tìm kiếm

Tin học Lập trình Pascal

Ngô Nam Khánh

Banned

Lê Khánh Chi

Tài năng đoàn viên

Ngô Nam Khánh

Banned

Deathheart

Cựu TMod Vật Lí

Ngô Nam Khánh

Banned

Deathheart

Cựu TMod Vật Lí