Tutorial Program Segitiga Pascal

"Pascal adalah Bahasa pemrograman yang termasuk dalam kategori “High Level Language” atau bahasa pemrograman tingkat tinggi Instruksi-instruksinya sangat sistematis dan terstruktur."

Sahabat blogger kali ini saya akan share bagaimana cara membuat bermacam-macam bentuk pogram segitiga pascal, berawal ketika aku berada di semester dua perkuliahan , seorang dosen menugaskan tugas yang begitu sulit ini ,dengan susah payah aku-pun berusaha mengerjakan tugas ini , hasilnya gagal dan gagal lagi namun aku tidak menyerah dan terus mencoba membuat program segitiga , akhirnya setelah beberapa kali eksperimen sayapun berhasil membuatnya program segitiga pascal itu hehehe, berikut tutorialnya :

>    Program Looping segitiga bintang (*) Piramida dengan menggunakan reverse word – REPEAT
Program SegitigaUntilRepeat;

uses crt;
Var
a,b : integer;
Repeat
for a :=  1 to 5 do begin ;
for b := 1 to a do begin ;
Write ('*',' ' );
end;
writeln;
end;
Until  a = 5;

Begin
Repeat
for a :=  1 to 5 do begin ;
for b := a to 5 do begin ;
Write ('*',' ' );
end;
writeln;
end;
Until  a = 5;
End;
readln;
end.

OUTPUT :



>    Program Looping  segitiga angka ke bawah naik (1-5) menggunakan reverse word - FOR
Program Looping;
uses crt;
Var a,b:integer;
Begin
clrscr;
     for a := 1 to 5 do begin
     for b := a to 5 do begin
Write (b,' ');
end;
Writeln;
end;
Readln;
end.




>    Program Looping segitiga angka keatas menurun (5-2) menggunakanan reverse word - FOR

Program Looping;
uses crt;
Var a,b:integer;
Begin
     for a := 5 downto 2 do begin
     for b := 5 downto a do begin
Write (b,' ');
end;
Writeln;
end;
Readln;
end.




>    Program Looping segtiga angka ke atas naik (1-4) menggunakanan reverse word - FOR

Program Looping;
uses crt;
Var a,b:integer;
Begin
     for a := 1 to 4 do begin
     for b := 1 to a do begin
Write (a,' ');
end;
Writeln;
end;
Readln;
end.




>    Program Looping segtiga angka ke atas naik (1-5) menggunakanan reverse word - FOR
Program Looping;
uses crt;
Var a,b:integer;
Begin
     for a := 1 to 5 do begin
     for b := 1 to a do begin
Write (b,'  ');
end;
Writeln;
end;
Readln;
end.


>    Program Looping segtiga angka ke atas naik (1 * B ) menggunakanan reverse word - FOR

Program Looping;
uses crt;
Var a,b:integer;
Begin
     for a := 1 to 5 do begin
     for b := 1 to a do begin
Write (a * b, ' ');
end;
Writeln;
end;
Readln;
end.



0 comments