Koding Pemrograman Pascal Bag III (CETAK, BINTANG)

Halaman terakhir yaitu membagikan Koding Pemrograman Pascal yang pernah saya pelajari sewaktu sekolah dan kuliah di semester awal dulu barang kali ada yang masih menpelajari. Maka pada kesempatan kali ini saya akan memberikan tutorial bagaimana membuat Koding Pemrograman Pascal Bag III (CETAK, BINTANG).

Nah saya sarankan menggunakan Free Pascal (FPC) karna disamping gratis aplikasi ini juga dapat berjalan di semua sistem operasi termasuk di Windows 10 64 Bit. Bagi kalian yang belum mempunyai Free Pascal. 

Kalian bisa unduh disitusnya langsung dan pilih sistem operasi yang kalian gunakan dan juga bagi pengguna Windows ber Processor Intel dan AMD 32/64 Bit unduhan nya berbeda dan harap di perhatikan sebelum mengunduh. Klik Disini.

Kalo sudah di unduh tampilannya seperti diatas, saatnya saya bagikan koding yang pernah saya kerjakan dulu saat di lab kampus, karna project nya lumayan banyak, saya akan buat perhalaman dan mohon maaf saya tidak menyediakan link unduhan projectnya. Jadi kalian Copas saja kodingnya ke Free Pascal.

CETAK

1. Cetak For (Penjumlahan Perulangan)

Input

program perulangan;
uses crt;
var
       i,jumlah:integer;
begin

       clrscr;

       i:=1;

       for i:=1 to 19 do
      
       begin
        jumlah:=jumlah+i;
        write(i,' ');
       end;

       writeln;
       writeln('Hasil Penjumlahan Perulangan: ',jumlah);

readln;
end.

Output

2. Cetak Luas (Persegi, Lingkaran)

Input

PROGRAM CASE_OF1;
uses crt;
const phi=3.14;
var
  p,l,r,luas: real;
  nilai : integer;
begin
  clrscr;
  write('Masukkan Panjang : ');
  readln(p);
  write('Masukkan lebar : ');
  readln(l);
  write('Masukkan r : ');
  readln(r);
  write('Masukkan Pilihan : ');
  readln(nilai);

case nilai of

1 : begin
    luas := p * l ;
    writeln('Luas Persegi Panjang adalah : ',luas:0:2,' cm');
    end;
2 : begin
    luas := phi * r * r ;
    writeln('Luas Lingkaran adalah : ',luas:0:2,' cm');
    end;

end;
readln
end.

Output

3. Cetak Repeat (Hasil Penjumlahan Peulangan)

Input

program perulangan_repeat;
uses crt;
var
       i,jumlah:integer;
begin

       clrscr;

       i:=1;

       repeat
        begin
          jumlah:=jumlah+i;
          write(i,' ');
          i:=i+2;
        end;
       until i >= 20;
       
       writeln;
       writeln('Hasil Penjumlah Perulangan: ',jumlah);

readln;
end.

Output

4. Cetak While (Hasil Penjumlahan Perulangan)

Input

program perulangan_while;
uses crt;
var
       i,jumlah:integer;
begin

       clrscr;

       i:=1;

       while(i<=19) do

       begin
        jumlah:=jumlah+i;
        write(i,' ');
        i:=i+2;
       end;

       writeln;
       writeln('Hasil Penjumlah Perulangan: ',jumlah);

readln;
end.

Output

BINTANG

1. Bintang Segitiga

Input

program gambar_titik;
uses crt;
var i,j,n : integer;
begin
clrscr;
write('Masukan nilai n = ');readln(n);
writeln('Bentuk gambarnya');
i:=(2-(n mod 2));
repeat
for j:=1 to (n-i) div 2 do write(' ');
for j:=1 to (n-(2*((n-i) div 2))) do write('*');
writeln;
i:=i+2;
until (i>n);
readln
end.

Output

2. Bintang Berlian

Input

program gambar_titik2;
uses crt;
var i,j,n : integer;
begin
clrscr;
write('Masukan nilai n = ');readln(n);
writeln('Bentuk gambarnya');
i:=(2-(n mod 2));
repeat
for j:=1 to (abs(n-i) div 2) do write(' ');
for j:=1 to (n-(2*(abs(n-i) div 2))) do write('*');
writeln;
I:=i+2;
until (i>(n*2));
readln
end.

Output

3. Bintang Segitiga Warna Merah

Input

PROGRAM triangle_genap;

USES crt;

VAR
  i, j, x ,baris_sg3: byte;

CONST
  rdx = 'radix ''2006';

BEGIN

  textcolor(6);
  clrscr;
  Write('Jumlah baris segitiga: ');
  Readln(baris_sg3);
  textcolor(12);

  FOR i := baris_sg3 DOWNTO 1 DO
  BEGIN
    Inc(x);
    gotoxy(10 + x, i + 2);
    FOR j := 1 TO i DO
    BEGIN
      Write(#30)
    END;
  END;

  FOR i := baris_sg3 DOWNTO 1 DO
  BEGIN
    gotoxy(baris_sg3 + 10,i + 2);
    FOR j := i DOWNTO 1 DO Write(#30);
  END;

  gotoxy(11,baris_sg3 + 3);
  textcolor(7);
  Readln;

END.

Output

4. Bintang Tangga Kiri

Input

Program BintangTangga;
uses crt;
const akhir=5;
var baris, kolom: integer;
begin
clrscr;
  for baris:=1 to akhir do
  begin
  for kolom:=1 to baris do
  write(#30);
  writeln;
end;
readln;
end.

Output

5. Bintang Persegi

Input

Program BintangKubus;
uses crt;
Var i, j, x, y:integer;
Begin
clrscr;
Write('Masukkan Dimensi Kubus: ');Readln(x);
y:=0;
  For i:=1 to x do
  Begin
for j:=1 to x do
Begin
y:=y+1;
write('*':4);
if y mod x=0 then
Writeln;
End;
End;
readln;
End.

Output

6. Bintang Tangga Kanan

Input

program kampretozz;
uses crt;
var
   i, j: integer;
begin
   clrscr;
   for i:=0 to 5 do begin
     for j:=5-i downto 0 do begin
       write(' ');
     end;
     for j:=0 to i do begin
       write('*');
     end;
     writeln;
   end;
   readln;
end.

Output

7. Bintang Besar Segitiga

Input

uses crt;
var
   i, j: integer;
begin
   clrscr;
   for i:=0 to 4 do begin
     for j:=5-i downto 0 do begin
       write(' ');
     end;
     for j:=0 to i do begin
       write('* ');
     end;
     writeln;
   end;
   readln;
end.

Output

Demikian artikel mengenai Koding Pemrograman Pascal Bag III (CETAK, BINTANG), semoga informasi yang diberikan bermanfaat.