EXAMPLE PROGRAM USING FOR LOOPS


Program For_loops;

Uses
  Crt;

Const
  Row_max = 5;
  Col_max = 5;
  Max_odd = 99;

Var
  Row, Col: Integer;
  Sum, Count: Integer;

Begin
  Clrscr;
  For Row := 1 to Row_max Do
    For Col := 1 to Col_max Do
      Write('*');
  Writeln;
  Writeln;

  For Row := 1 to Row_max Do
    Begin
      For Col := 1 to Col_max Do
        Write('*');
      Writeln
    End;
  Writeln;

  For Row := 1 to Row_max Do
    Begin
      For Col := 1 to Row Do
        Write('*');
      Writeln
    End;
  Writeln;

  For Row := 1 to Row_max Do
    Begin
      For Col := 1 to Row_max + 1 - Row Do
        Write('*');
      Writeln
    End;
  Writeln;

  { Add all odd integers from 1 to Max_odd }

  Sum := 0;
  For Count := 1 to Max_odd Do
    If Count MOD 2 = 1
      Then Sum := Sum + Count;

  Write('Sum of odd numbers from 1 to ', Max_odd);
  Writeln(' is ', Sum);

  Readln
End.


OUTPUT FROM PROGRAM RUN:

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

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

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

Sum of odd numbers from 1 to 99 is 2500