Guia de Auto Estudo 5

No Guia de Auto Estudo 5 foi proposto:

1º. Utilizar o PascaL para produzir a sua bandeira do Brasil.
 1.1. A primeira delas terá cores aleatórias, a segunda terá as cores da bandeira do Brasil.
 1.2. Utilize um menu para escolher qual das bandeiras será produzida.
 1.3. As bandeiras devem ser produzidas a partir de procedimentos separados para cada uma das figuras.
 1.4. Ela deve conter, no mínimo, duas estrelas.
 1.5. A tarja branca e o texto ao centro são opcionais.

Códido do Programa em PascaL

{*******************PROGRAM BANDEIRADOBRASILPETRUSLUISDASILVAGOMESRIBEIRO*******************}

program bandeiradobrasilpetrusluisdasilvagomesribeiro;

{Programa que desenha uma bandeira do Brasil na forma tradicional ou com cores aleatórias}

var opcao:integer; {Variável que armazenara a sua opção de bandeira}

 procedure fazretangulo;

 {Procedimento para criar o retângulo da bandeira}

 

  var i: integer;

  begin

   if opcao=1

    then begin

     mudecorlapis (random(255),random(255),random(255));

    end

    else begin

     mudecorlapis(22,157,15);

    end;

   for i:= 1 to 4 do

    begin

     pfrente(300);

     pdireita(90);

     pfrente(490);

     pdireita(90);

    end;

  end;

 procedure fazlosango;

 {Procedimento para criar o losango da bandeira}

  var i: integer;

  begin

   if opcao=1

    then begin

     mudecorlapis (random(255),random(255),random(255));

    end

    else begin

     mudecorlapis(255,255,0);

    end;

     pdireita(60);

     pfrente(275);

     pdireita(60);

     pfrente(275);

     pdireita(120);

     pfrente(275);

     pdireita(60);

     pfrente(275);

     pdireita(120);

     pfrente(275);

     pdireita(60);

     pfrente(275);

     pdireita(120);

     pfrente(275);

     pdireita(60);

     pfrente(275);

     pdireita(120);

  end;

 procedure fazcirculo;

 {Procedimento para criar o círculo da bandeira}

   var i: integer;

   begin

   if opcao=1

    then begin

     mudecorlapis (random(255),random(255),random(255));

    end

    else begin

     mudecorlapis(0,0,255);

    end;

    for i:= 1 to 720 do

     begin

      pfrente(1.5);

      pdireita(1);

     end;

   end;

 procedure fazestrelas;

 {Procedimento para criar as estrelas da bandeira}

  var i, j, k: integer;

  begin

   if opcao=1

    then begin

     mudecorlapis (random(255),random(255),random(255));

    end

    else begin

     mudecorlapis(255,255,255);

    end;

   un;

   pfrente(30);

   ul;

   for i:= 1 to 5 do

    begin

     pdireita(27);

     pesquerda(81);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     un;

     pfrente(20);

     ul;

    end;

  

   un;

   ptras(75);

   ul;

   for j:= 1 to 5 do

    begin

     pdireita(27);

     pesquerda(81);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     un;

     pfrente(20);

     ul;

    end;

   un;

   pdireita(90);

   ptras(75);

   ul;

   for k:= 1 to 5 do

    begin

     pdireita(27);

     pesquerda(81);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     pdireita(144);

     pfrente(2);

     pesquerda(72);

     pfrente(2);

     un;

     pfrente(20);

     ul;

    end;

  end;

 procedure regulagemlosangoretangulo;

 {Procedimento para alinhar o losango em relação ao retângulo}

   var i: integer;

    begin

     pfrente(150);

     pdireita(90);

     pfrente(7);

     pesquerda(90);

    end;

 procedure regulagemcirculolosango;

 {Procedimento para alinhar o círculo em relação ao losango}

   var i: integer;

   begin

    pdireita(30);

    pfrente(150);

    pesquerda(90);

   end;

  procedure regulagemestrelascirculo;

  {Procedimento para alinhar as estrelas em relação ao círculo}

   var i: integer;

   begin

    pdireita(90);

    pfrente(30);

    pdireita(90);

   end;

  procedure coloreretangulo;

  {Procedimento para colorir o retângulo}

   begin

    pfrente(1);

    pdireita(90);

    pfrente(1);

    if opcao=1

     then begin

      mudecorpreenche (random(255),random(255),random(255));

     end

     else begin

      mudecorpreenche(22,157,15);

     end;

    pinte;

    ptras(1);

    pesquerda(90);

    ptras(1);

   end;

  procedure colorelosango;

  {Procedimento para colorir o losango}

   begin

    pfrente(1);

    if opcao=1

     then begin

      mudecorpreenche (random(255),random(255),random(255));

     end

     else begin

      mudecorpreenche(255,255,0);

     end;

    pinte;

    ptras(1);

   end;

  procedure colorecirculo;

  {Procedimento para colorir o círculo}

   begin

    pfrente(1);

    pdireita(90);

    pfrente(1);

    if opcao=1

     then begin

      mudecorpreenche (random(255),random(255),random(255));

     end

     else begin

      mudecorpreenche(0,0,255);

     end;

    pinte;

    ptras(1);

    pesquerda(90);

    pesquerda(1);

   end;

{********************Programa principal********************}

begin

  write('Escolha uma opcao(1-Bandeira Aleatória,2-Bandeira Original) ');

  readln(opcao); {Opção a ser escolhida}

  clrscr;

  ar;

  fazretangulo;

  coloreretangulo;

  un;

  regulagemlosangoretangulo;

  ul;

  fazlosango;

  colorelosango;

  un;

  regulagemcirculolosango;

  ul;

  fazcirculo;

  colorecirculo;

  un;

  regulagemestrelascirculo;

  ul;

  fazestrelas;

  dr;

end.

 

Imagens da Bandeira

Opção 1 - Cores Aleatórias

Opção 2 - Cores Originais

Comentário

É possível utilizar o programa Pascal para a criação de desenhos, através do uso de procedimentos e estruturas de controle seqüencial, repetitiva e alternativa. Sendo muito favorável a sua utilização em várias áreas do mercado de trabalho. Entre elas cito a área de engenharia, para a criação de plantas, e a as áreas de marketing, publicidade e propaganda, onde o visual tem muita valorização.