Membuat Segitiga Biner dengan Menggunakan Bahasa Pemrograman Pascal

CopasCoding

Untuk membuat sebuah segitiga piramida biner dengan menggunakan bahasa pemrograman pascal sangatlah mudah, hal pertama yang perlu dilakukan adalah mengetahui logika dari segitiga yang ingin kita buat, seperti contoh soal




Jawaban dari program pascal membuat segitiga biner

0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 		program copas_coding;
uses crt;
var
i,j : Integer;
a,b :Integer;
c :Integer;
begin
 clrscr;
 a := 1;
 b := 0;
 c := 0;
 for i :=1 to 5 do
 begin
    if (i mod 2 = 0) then
       begin
        a := 1;
        b := 0;
       end
    else
       begin
        a := 0;
        b := 1;
       end;
    for j := 1 to i do
       begin
        write(a,' ');
        a := b;
        b := c;
        c := a;
       end;
    WriteLn();
 end;
end.