---

Masukkan kode berikut:

program io3;
uses crt;
var s1, s2:string; i1, i2:integer;
begin
 write('Masukkan nama anda '); readln(s1);
 write('Masukkan umur anda '); readln(i1);
 writeln;
 write('Masukkan nama teman anda '); readln(s2);
 write('Masukkan umur teman anda '); readln(i2);
 readln;
end.

*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.

---

Masukkan kode berikut:

program io2;
uses crt;
var i:nteger; s: string;
begin
 write('Masukkan nama anda '); readln(s);
 write('Masukkan umur anda '); readln(i);
 writeln('Nama anda adalah ',s);
 writeln('Umur anda adalah ',i);
 readln; {menampilkan hasil input}
end;

*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.

---

Masukkan koder berikut:

program io1;
uses crt;
var i: integer;
begin
 write('Input angka 1 sampai 32767'); readln(i);
 writeln(i);
end.

*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.

---

Masukkan kode berikut:

program diamond;
uses crt;
const max=5;
var i,j,k:integer;
begin
 clrscr;
 for i:=1 to max do begin
  for j:=max downto 1 do begin
   if j<=i then write('*')
   else write(' ');
  end;
  for k:=1 to i do write('*');
  writeln;
 end;
 
 for i:=max downto 1 do begin
  for j:=max downto 1 do begin
   if j<=i then write('*')
   else write(' ');
  end;
  for k:=1 to i do write('*');
 end;
 
 readln;
end.

*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.

---

Masukkan kode berikut:

program segitigaSamaSisi;
uses crt;
const max=5;
var i,j,k:integer;
begin
{Segitiga sama kaki merupakan gabungan antara 
2 Tutorial sebelumnya, yaitu Buat Segitiga
di Pascal (1 & 3)}
 for i:=1 to max do begin        {1}
  for j:=max downto 1 do begin   {2}
   if j<=i then write('*')
   else write(' ');
  end;
  for k:=1 to i do write('*');   {3}
  writeln;                       {4}
 end;
 readln;                         {5}
end.

Penjelasan:
1) Statement "for" pertama merupakan sebuah statement yang digunakan untuk memberikan ukuran tinggi pada segitiga yang kita buat.
2) Statement "for" kedua merupakan sebuah segitiga sama kaki yang sikunya mengarah ke kiri.
3) Statement "for" ketiga merupakan sebuah segitiga sama kaki yang sikunya mengarah ke kanan. Pada tutorial satu kita melihat bahwa statement "for" terdiri dari "to", "do" lalu "begin" dan dakhiri "end;". Meskipun pada umumnya seperti hal tersebut, namun perlu diketahui bahwa statement "for" itu hanya terdiri sintaks "for", "to", dan "do" saja. Dan statement tersebut hanya mengeksekusi satu buah pernyataan yang diakhiri dengan ";". Pada tutorial "Buat Segitiga di Pascal Part 1" terlihat sebagai berikut:

program segitiga1;
uses crt;
const max=5;
var i,j:integer;
begin
 for i:=1 to max do begin
  for j:=1 to i do begin    { << disini}
   write('*'):
  end;
  writeln;
 end;
end.

Sebenarnya kode diatas dapat ditulis seperti berikut:

program segitiga1;
uses crt;
const max=5;
var i,j:integer;
begin
 for i:=1 to max do begin
  for j:=1 to i do write('*');   { << disini}
  writeln;
 end;
end.

4) Berfungsi untuk menambahkan line baru, setelah mengeksekusi kedua statement "for" diatas. Kenapa dibutuhkan line baru? Jika kita menggambarnya pada sebuah tabel maka akan tampak seperti berikut:

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

*Tabel yang menampilkan hasil eksekusi program pada tutorial "Buat Segitiga di Pascal Part 1".

Jika kita perhatikan. Yang merupakan kolom adalah statement "for" yang memerintahkan

for j:=1 to max do begin ... 

Statement tersebut merupakan perintah untuk membuat kolom seperti pada tabel. Dan statement for pertama membuat barisnya. Sehingga program akan memiliki kolom dan baris. Seperti table di atas.

5) Melakukan perintah input any key, sehingga program yang dibuat akan tampak terlebih dahulu.

*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.

---

Masukkan kode berikut:

program segitiga4;
uses crt;
const max=5;
var i,j:integer;
begin
 for i:=max downto 1 do begin
  for j:=max downto 1 do begin
   if j<=i then write('*')
   else write(' ');
  end;
  writeln;
 end;
end.

*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.

---

Masukkan kode berikut:

program segitiga3;
uses crt;
const max=5;
begin
 for i:=1 to max do begin
  for j:=max downto 1 do begin
   if j<=i then write('*')
   else write(' ');
  end;
 end;
end.

*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.

---

Masukkan kode berikut:

program segitiga2;
uses crt;
const max=5;
var i,j:integer;
begin
 for i:=max downto 1 do begin
  for j:=1 to i do begin
   write('*');
  end;
  writeln;
 end;

*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.

---

Masukkan kode berikut:

program segitiga1;
uses crt;
const max=5; 
var i,j:integer;
begin
  for i:=1 to max do begin
   for j:=1 to i do begin
    write('*');
   end;
 writeln;
 end;
end. 

Tekan Ctrl+F9 maka program akan berjalan.
*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.