Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  initials
Language: PASCAL
Code:
program Inicialai;
  var initials: string;
       i, j: integer;
       letters: array[1..29] of array[1..5] of string;
       wout: array[1..5] of string;
begin
  letters[1][1] := '    *    ';
  letters[1][2] := '   * *   ';
  letters[1][3] := '  *****  ';
  letters[1][4] := ' *     * ';
  letters[1][5] := '*       *';

  letters[2][1] := '***** ';
  letters[2][2] := '*    *';
  letters[2][3] := '***** ';
  letters[2][4] := '*    *';
  letters[2][5] := '***** ';

  letters[3][1] := ' **** ';
  letters[3][2] := '*    *';
  letters[3][3] := '*     ';
  letters[3][4] := '*    *';
  letters[3][5] := ' **** ';

  letters[4][1] := '***** ';
  letters[4][2] := '*    *';
  letters[4][3] := '*    *';
  letters[4][4] := '*    *';
  letters[4][5] := '***** ';

  letters[5][1] := '*****';
  letters[5][2] := '*    ';
  letters[5][3] := '**** ';
  letters[5][4] := '*    ';
  letters[5][5] := '*****';

  letters[6][1] := '*****';
  letters[6][2] := '*    ';
  letters[6][3] := '**** ';
  letters[6][4] := '*    ';
  letters[6][5] := '*    ';

  letters[7][1] := ' **** ';
  letters[7][2] := '*     ';
  letters[7][3] := '*  ***';
  letters[7][4] := '*    *';
  letters[7][5] := ' **** ';

  letters[8][1] := '*   *';
  letters[8][2] := '*   *';
  letters[8][3] := '*****';
  letters[8][4] := '*   *';
  letters[8][5] := '*   *';

  letters[9][1] := '*';
  letters[9][2] := '*';
  letters[9][3] := '*';
  letters[9][4] := '*';
  letters[9][5] := '*';

  letters[10][1] := '*****';
  letters[10][2] := '    *';
  letters[10][3] := '    *';
  letters[10][4] := '*   *';
  letters[10][5] := ' *** ';

  letters[11][1] := '*  *';
  letters[11][2] := '* * ';
  letters[11][3] := '**  ';
  letters[11][4] := '* * ';
  letters[11][5] := '*  *';

  letters[12][1] := '*   ';
  letters[12][2] := '*   ';
  letters[12][3] := '*   ';
  letters[12][4] := '*   ';
  letters[12][5] := '****';

  letters[13][1] := '*   *';
  letters[13][2] := '** **';
  letters[13][3] := '* * *';
  letters[13][4] := '*   *';
  letters[13][5] := '*   *';

  letters[14][1] := '*   *';
  letters[14][2] := '**  *';
  letters[14][3] := '* * *';
  letters[14][4] := '*  **';
  letters[14][5] := '*   *';

  letters[15][1] := ' *** ';
  letters[15][2] := '*   *';
  letters[15][3] := '*   *';
  letters[15][4] := '*   *';
  letters[15][5] := ' *** ';

  letters[16][1] := '**** ';
  letters[16][2] := '*   *';
  letters[16][3] := '**** ';
  letters[16][4] := '*    ';
  letters[16][5] := '*    ';

  letters[17][1] := ' *** ';
  letters[17][2] := '*   *';
  letters[17][3] := '* * *';
  letters[17][4] := '*  * ';
  letters[17][5] := ' ** *';

  letters[18][1] := '**** ';
  letters[18][2] := '*   *';
  letters[18][3] := '**** ';
  letters[18][4] := '*  * ';
  letters[18][5] := '*   *';

  letters[19][1] := ' ****';
  letters[19][2] := '*    ';
  letters[19][3] := ' *** ';
  letters[19][4] := '    *';
  letters[19][5] := '**** ';

  letters[21][1] := '*****';
  letters[21][2] := '  *  ';
  letters[21][3] := '  *  ';
  letters[21][4] := '  *  ';
  letters[21][5] := '  *  ';

  letters[22][1] := '*   *';
  letters[22][2] := '*   *';
  letters[22][3] := '*   *';
  letters[22][4] := '*   *';
  letters[22][5] := ' *** ';

  letters[23][1] := '*   *';
  letters[23][2] := '*   *';
  letters[23][3] := ' * * ';
  letters[23][4] := ' * * ';
  letters[23][5] := '  *  ';

  letters[24][1] := '*   *   *';
  letters[24][2] := '*   *   *';
  letters[24][3] := ' * * * * ';
  letters[24][4] := ' * * * * ';
  letters[24][5] := '  *   *  ';

  letters[25][1] := '*   *';
  letters[25][2] := ' * * ';
  letters[25][3] := '  *  ';
  letters[25][4] := ' * * ';
  letters[25][5] := '*   *';

  letters[26][1] := '*   *';
  letters[26][2] := ' * * ';
  letters[26][3] := '  *  ';
  letters[26][4] := '  *  ';
  letters[26][5] := '  *  ';

  letters[27][1] := '*****';
  letters[27][2] := '   * ';
  letters[27][3] := '  *  ';
  letters[27][4] := ' *   ';
  letters[27][5] := '*****';

  while true do
  begin
       readln(initials);
       if (length(initials) > 0)
       begin
          wout[1] := '';
          wout[2] := '';
          wout[3] := '';
          wout[4] := '';
          wout[5] := '';
          for i = 1 to length(initials) do
          begin
               if ord(initials[i]) > 64 and ord(initials[i]) < 91
               then 
                    j := ord(initials[i]) - 64
               else
                    if ord(initials[i]) > 96 and ord(initials[i]) < 123
                    then 
                         j := ord(initials[i]) - 96
                    else
                         j := 0;
               if j <> 0
               then
                    begin
                         wout[1] := wout[1] + letters[j][1];
                         wout[2] := wout[2] + letters[j][2];
                         wout[3] := wout[3] + letters[j][3];
                         wout[4] := wout[4] + letters[j][4];
                         wout[5] := wout[5] + letters[j][5];
                    end;
          end;
          writeln(wout[1]);
          writeln(wout[2]);
          writeln(wout[3]);
          writeln(wout[4]);
          writeln(wout[5]);
       end;
  end
end.
Comments: