📋 Daftar Isi
Program Cetak Angka
Buatlah program untuk mencetak output seperti di bawah ini dimana yang diinput hanya jumlah barisnya saja.
0 1 2 3 4 5 6 7 8 9
9 8 7 6 5 4 3 2 1 0
0 1 2 3 4 5 6 7 8 9
9 8 7 6 5 4 3 2 1 0
0 1 2 3 4 5 6 7 8 9
Kode Program
program angka;
uses crt;
var i,j,n:integer;
begin
clrscr;
write('Masukkan jumlah baris = ');
readln(n);
For i:= 1 to n do
Begin
If i mod 2<>0 then
begin
For j:= 0 to 9 do
Write(j:1);
end
Else
begin
For j:= 9 downto 0 do
Write (j:1);
end;
Writeln;
End;
readln;
end.
Contoh Output
Program Segitiga Penuh Rata Kiri, Rata Kanan, dan Rata Tengah
Kode Program
Program segitigapenuh;
uses crt;
var
i,j,k,n,pilihan:integer;
c :char;
begin
clrscr;
writeln(' Silahkan Pilih Menu yang Anda inginkan ');
writeln('1. Segitiga rata kiri');
writeln('2. Segitiga rata kanan');
writeln('3. Segitiga rata tengah');
write(' Pilihan Anda = ');
readln(pilihan);
case pilihan of
{Segitiga Rata Kiri}
1: begin
write('Masukkan karakter yang diinginkan = ');readln(c);
write('Masukkan lebar = ');readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write(c:2);
writeln;
end;
end;
{Segitiga Rata Kanan}
2: begin
write('Masukkan karakter yang diinginkan = ');readln(c);
write('Masukkan lebar = ');readln(n);
for i:=1 to n do
begin
for j:=1 to n do
if (j<=n-i+1) then
write(' ':2)
else write(c:2);
writeln;
end;
end;
{Segitiga Rata Kanan}
3: begin
write('Masukkan karakter yang diinginkan = ');readln(c);
write('Masukkan lebar = ');readln(n);
for i:=1 to n do
begin
for j:=n downto i do
write(' ');
for k:=1 to i do
write(c:2);
writeln;
end;
end;
end;
readln;
end.
Contoh Output
Segitiga Penuh Rata Kiri
Segitiga Penuh Rata Kanan
Segitiga Penuh Rata Tengah
Program Segitiga Kosong Tengah Rata Kiri, Rata Kanan, dan Rata Tengah
Kode Program
Program penugasan73;
uses crt;
var
i,j,k,n,pilihan,spasi:integer;
c :char;
begin
clrscr;
writeln(' Silahkan Pilih Menu yang Anda inginkan ');
writeln('1. Segitiga kosong tengah rata kiri');
writeln('2. Segitiga kosong tengah rata kanan');
writeln('3. Segitiga kosong tengah rata tengah');
write(' Pilihan Anda = ');
readln(pilihan);
case pilihan of
{Segitiga Kosong Tengah Rata Kiri}
1: begin
write('Masukkan nilai n = ');readln(n);
write('Masukkan karakter yang diinginkan = ');readln(c);
for i:=1 to n do
begin
for j:=1 to n do
if (j=1) or (i=n) or (j=i) then
write(c:2)
else
write(' ':2);
writeln;
end;
end;
{Segitiga Kosong Tengah Rata Kanan}
2: begin
write('Masukkan nilai n = ');readln(n);
write('Masukkan karakter yang diinginkan = ');readln(c);
for i:=1 to n do
begin
for j:=1 to n do
if (j=n) or (i=n) or (j=n-i+1) then
write(c:2)
else
write(' ':2);
writeln;
end;
end;
{Segitiga Kosong Tengah Rata Tengah}
3: begin
write('Masukkan nilai n = ');readln(n);
write('Masukkan karakter yang diinginkan = ');readln(c);
for i := 1 to n do
begin
for spasi := 1 to n-i+1 do
write (' ');
for j:= 1 to i do
if (j=1) or (j=i) or (i=n) then
write (c:2)
else
write (' ':2);
writeln;
end
end;
end;
readln;
end.
Contoh Output
Segitiga Kosong Tengah Rata Kiri
Segitiga Kosong Tengah Rata Kanan
Segitiga Kosong Tengah Rata Tengah
Program Segitiga Pascal
Kode Program
program segitigapascal;
uses crt;
var i,j,k,m,n,r:integer;
com :real;
begin
clrscr;
writeln('Inputkan jumlah baris = ');
write('n = ');readln(n);
m:=0;
for i:=1 to n do
begin
r:=0;
for j:=1 to n do
begin
if (j<n-i+1) then write(' ':3)
else
begin
com:=1;
for k:=1 to r do
com:=com*(m-k+1)/k;
write(com:3:0);
write(' ':3);
r:=r+1;
end;
end;
writeln;
m:=m+1;
end;
readln;
end.
Contoh Output
Materi Lengkap
Silakan baca juga beberapa artikel menarik kami tentang Struktur Perulangan, daftar lengkapnya adalah sebagai berikut.
