Free Pascal

output :
Berapa tingkat piramid segitiga : 5

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

Perintahnya :
Program Piramid;
Var a,b,tingkat:integer;
begin
write ('Berapa tingkat piramida segitiga :');
readln (tingkat);
for a:=1 to tingkat do
  begin
  for b:=1 to a do
    write (*);
  writeln;
 end;
readln;
end.

=====================================================================================
output :

Berapa tingkat piramid segitiga : 5

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

Perintahnya :
Program Piramid;
Var a,b,tingkat:integer;
begin
write ('Berapa tingkat piramida segitiga :');
readln (tingkat);
for a:=1 to tingkat do
  begin
  for b:=a downto 1 do
    write (*);
  writeln;
 end;
readln;
end.

====================================================================
output :
Panjang persegi : 6
lebar persegi    : 4

@@@@@@
@@@@@@
@@@@@@
@@@@@@

Perintahnya :

Program piramid ;
Var a,b,c,d : integer;
begin
write ('Berapa panjang persegi :');
readln (c);
write ('Berapa lebar persegi :');
readln (d);
for a:=1 to d do
  begin
  for b:=1 to c do
  write ('@');
 writeln;
 end;
readln;
end.

=====================================================================
output :
Berapa tingkat piramid segitiga : 5

1
22
333
4444
55555

Perintahnya :
Program Piramid;
Var a,b,tingkat:integer;
begin
write ('Berapa tingkat piramida segitiga :');
readln (tingkat);
for a:=1 to tingkat do
  begin
  for b:=1 to a do

    write (a);
  writeln;
 end;
readln;
end.

=====================================================================
output :
Berapa tingkat piramida segitiga : 5

4
54
654
7654
87654

Perintahnya :
Program Piramid;
Var a,b,tingkat:integer;
begin
write ('Berapa tingkat piramida segitiga :');
readln (tingkat);
for a:=1 to tingkat do
  begin
  for b:=a downto 1 do
    write (b+3);
  writeln;

 end;
readln;
end.

====================================================================
output :
Berapa tingkat piramid segitiga : 5

2
34
456
5678
678910

Perintahnya :
Program Piramid;
Var a,b,tingkat:integer;
begin
write ('Berapa tingkat piramida segitiga :');
readln (tingkat);
for a:=1 to tingkat do
  begin
  for b:=1 to a do
    write (a+b);
  writeln;
 end;
readln;
end.

========================================================================
output :

Berapa tingkat piramid segitiga : 5

?????

Perintahnya :
Program Piramid;
Var a,b,tingkat:integer;
begin
write ('Berapa tingkat piramida segitiga :');
readln (tingkat);
for a:=1 to tingkat do
  begin
  for b:=1 to a do
    write (b);
  writeln;
 end;
readln;
end.

===========================================================================
output :

1 saya belajar bahasa pascal
2 saya belajar bahasa pascal
3 saya belajar bahasa pascal
4 saya belajar bahasa pascal
5 saya belajar bahasa pascal
6 saya belajar bahasa pascal
7 saya belajar bahasa pascal
8 saya belajar bahasa pascal
9 saya belajar bahasa pascal
10 saya belajar bahasa pascal

Perintahnya :

Program perulangan_for_2_statemen;
Uses crt;
Var i:integer;
begin
  for i:=1 to 10 do

     pwrite (i);
      writeln ('saya belajar bahasa pascal')
readln
end.

========================================================================
output :

1 Saya Cinta Indonesia
2 Saya Cinta Indonesia
3 Saya Cinta Indonesia
4 Saya Cinta Indonesia
5 Saya Cinta Indonesia
6 Saya Cinta Indonesia
7 Saya Cinta Indonesia
8 Saya Cinta Indonesia
9 Saya Cinta Indonesia
10 Saya Cinta Indonesia

Perintahnya :
Program perulangan_while;
Uses crt;
Var i:integer;
begin
  i:=1;
  while (i<10) do

   begin
   writeln (i,'Saya Cinta Indonesia')
   i:=i+1;
 end;
readln;
end.

========================================================================
output :

Perintahnya :
Program Suhu;
Uses crt;
const k=273;

Var f,r,c:real;

begin
 write ('Nilai suhu celsius :');
 readln (c);
 f:=9/5*c+32;

 r:=4/5;
 writeln;
 writeln (konversi suhu dari ',c,' C menjadi ',f,' F,',r,' R dan  ',c+k,' K');
 readln;
end.

======================================================================
output :

Masukan jumlah angka ganjil : 7
1 3 5 7 9 11 13

Perintahnya :
program deret;
Var n,jmlh:integer;
begin
write ('Masukan jumlah angka ganjil :');
readln (jmlh);
   For n:=1 to jmlh do
   write ((2*n)-1,'');
readln;
end.

========================================================================

output :

Masukan batas maximal bilangan ganjil : 20
1 3 5 7 9 11 13 15 17 19

Perintahnya :
program deret;
Var n,bts:integer;
begin
write ('Masukan batas maximal bilangan ganjil :');
readln (bts);
   For n:=1 to (bts+1) div 2 do
   write ((2*n)-1,'');
readln;
end.

=====================================================================
output :

Masukan jumlah angka genap : 7
2 4 6 8 10 12 14

Perintahnya :

program deret;
Var n,jmlh:integer;
begin
write ('Masukan jumlah angka genap :');
readln (jmlh);
   For n:=1 to jmlh do
   write ((2*n),'');
readln;
end.

========================================================================
output :

Masukan batas maximal bilangan genap : 20
2 4 6 8 10 12 14 16 18 20

Perintahnya :
program deret;
Var n,bts:integer;
begin
write ('Masukan batas maximal bilangan genap :');
readln (bts);
   For n:=1 to bts div 2 do
   write ((2*n),'');
readln;
end.

========================================================================
output :

Masukan batas minimal bilangan genap : 10
Masukan batas maximal bilangan genap : 5
6 8 10

Perintahnya :
program deret;
Var n,min,max:integer;
begin
write ('Masukan batas minimal bilangan genap :');
readln (min);
write ('Masukan batas maximal bilangan genap :');
readln (max);
   For n:=(min+1)div 2 to max div 2 do
   write ((2*n),'');
readln;
end.

==================================================================================
output :

Masukan batas minimal bilangan ganjil : 5
Masukan batas maximal bilangan ganjil : 15
5 7 9 11 13

Perintahnya :
program deret;
Var n,min,max:integer;
begin
write ('Masukan batas minimal bilangan ganjil :');
readln (min);
write ('Masukan batas maximal bilangan ganjil :');
readln (max);
   For n:=min div 2 to max div 2 do

   write ((2*n)-1,'');
readln;
end.

===================================================================================