Viết chương trình pascal tạo hình tam giác

Hàng đầu tiên sẽ là 0 1 0, trong đó chỉ có giá trị 1 có được một khoảng trống trong tam giác Pascal, còn 0 là không nhìn thấy.

Hàng thứ hai được tạo bằng cách cộng hai số liên tiếp nhau từ hàng thứ nhất: (0 + 1) và (1 + 0).

Các hàng còn lại cũng được tạo bằng cách cộng như trên. Ví dụ với hàng thứ ba là cộng các số liên tiếp nhau từ hàng thứ hai: (0 + 1), (1 + 1) và (1 + 0).

Lời giải: bài tập vẽ tam giác Pascal trong C

Chúng ta sử dụng ba vòng lặp lồng nhau. Một vòng lặp bên ngoài để điều khiển số hàng. Hai vòng lặp bên trong: một vòng lặp để in khoảng trống và một vòng lặp để in giá trị.

Viết chương trình nhập chiều cao của 1 tam giác (số hàng của tam giác) , in ra tam giác có dạng :

*
***
*****
*******

Program ve_tam_giac;
uses crt;
var center,i,j,max,h:integer;
max_hang ,k:integer;

begin
clrscr();
Write(‘ Nhap vao chieu cao cua tam giac : ‘);readln(h);
max:=h+h-1;
center:=(max div 2) + 1;
for i=1 to h do
begin
max_hang:=i+i-1;
k:=(max-max_hang) div 2;
for j=1 to max do
begin
if(j>k and j<(k+max_hang+1)) then write(‘*’)
else write(‘ ‘);
end.
writeln(”);
end.
readln();
end.

Share this:

• Twitter
• Facebook

Like this:

Like Loading...

Related

Đề: Viết chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật, hình thang trong một chương trình. Sau đó hỏi chọn một trong các phương án tính diện tích bằng cách chọn trong các lệnh sau:

0. Trở về màn hình và không thực hiện thao tác.

1. Tính diện tam giác.

2. Tính diện tích hình tròn.

3. Tính diện tích hình vuông.

4. Tính diện tích hình chữ nhật.

5. Tính diện tích hình thang.

Cách làm:

Mã:

Program Tinh_dien_tich; Uses crt; Var chon: Char; Procedure Hinh_tam_giac; Var a, h, s: Real; Begin Wite ('nhap canh huyen, chieu cao hinh tam giac ') ; readln (a, h) ; S: =a*h/2; Write ('dien tich hinh ta m giac la: ', s: 5) ; End; Procedure Hinh_tron; Uses crt; Var s, r: Real; Begin Write ('nhap ban kinh: ') ; readln (r) ; S: =3.14*r*r; Write ('dien tich cua hinh tron la: ', s: 5: 2) ; End; Procedure Hinh_vuong; Uses crt; Var a, s: Real; Begin Write ('nhap chieu dai canh: ') ; readln (a) ; S: =a*a; Write ('dien tich hinh vuong: ', s: 5: 2) ; End; Procedure Hinh_chu_nhat; Uses crt; Var a, b, s: Real; Begin Write ('nhap chieu dai: ') ; readln (a) ; Write ('nhap chieu rong: ') ; readln (b) ; S: =a*b; Write ('dien tich hinh chu nhat la: ', s: 6: 2) ; End; Procedure Hinh_thang; Uses crt; Var a, b, h, s: Real; Begin Write ('nhap day lon: ') ; readln (a) ; Write ('nhap day nho: ') ; readln (b) ; Write ('nhap chieu cao: ') ; readln (h) ; S: =((a+b) *h) /2; Write ('dien tich hinh thang la: ', s: 6: 2) ; End; {phan chuong trinh chinh} Begin Clrscr; Writeln ('0. Thoat') ; Writeln ('1. Dien tich hinh tam giac) ; Writeln ('2. Dien tich hinh tron) ; Writeln ('3. Dien tich hinh vuong) ; Writeln ('4. Dien tich hinh chu nhat) ; Writeln ('5. Dien tich hinh thang) ; Writeln (nhan mot phim de chon') ; Readln (chon) ; Case chon of "0" : Exit; "1" : Hinh_tam_giac; "2" : Hinh_tron; "3" : Hinh_vuong; "4" : Hinh_chu_nhat; "5" : Hinh_thang; Else write ('sai') ; End; Readln; End .

 

1. Bài toán

  Yêu cầu: Viết chương trình tam giác Pascal

• Input:
• Output: In ra màn hình tam giác Pascal

2. Giải thuật:

Bước 1. Nhập thông tin: Không nhập thông tin
Bước 2. Xử lý:

• Bước 2.1. Dùng lệnh write in ra màn hình tam giác pascal
           1
          1     1
       1     2     1
    1     3     3     1
1     4     6     4     1

Bước 3. Xuất ra màn hình tam giác dạng Pascal;.

3. Code Pascal:

Program Tam_giac_Pascal; uses crt; Begin Writeln(' 1'); Writeln(' 1 1'); Writeln(' 1 2 1'); Writeln(' 1 3 3 1'); Writeln('1 4 6 4 1'); Readln; End.

4. Giải thích code

Dòng lệnhÝ nghĩaProgram Tam_giac_Pascal;Khai báo tên chương trìnhuses crt;Khai báo hàm thư việnWriteln('');Để in ra màn hình các dòng đúng dạng tam giác Pascalreadln;Dừng màn hình khi chạy chương trình cho bạn xem.

5. Kết Quả Pascal

Kết luận: Đối với bài này chúng ta dùng lệnh in ra màn hình write để canh chỉnh sao cho đúng với dạng tam giác Pascal là ok.