F�rum Alinhar Exibi��o de Resultados #561575

26/08/2016

Ol� !

Bom, minha situa��o � a seguinte, um exerc�cio foi a mim proposto, executei-o com �xito sem problema, o funcional do programa est� ok. Por�m em termos est�ticos n�o estou conseguindo fazer o que tenho em mente. Abaixo listarei em (modo console) pois a implementa��o Orientada a Objeto ainda estou terminando, por�m faltam esses ajustes ; como sai o resultado, como eu gostaria que estivesse e o c�digo para que se poss�vel algu�m pudesse me ajudar agradecerei.

Como est� a apresenta��o do Programa :

[url]http://i.imgur.com/B641Zcn.png[/url]

Como eu gostaria que ficasse (Fiz a modifica��o da imagem no PAINT) :

[url]http://i.imgur.com/N7RmnBR.png[/url]

Bom, nessa segunda imagem, o que eu tamb�m gostaria (dentro mesmo do modo console pois orientado objeto j� sei como fazer) era a quest�o do "R$" tamb�m n�o consegui arranjar um jeito para que o mesmo aparece-se ao lado ali dos respectivos valores.

Abaixo est� o C�DIGO para an�lise :

const MAX=5;
Type produto=record  
nome:string;  
preco:real;
End; 
 
tipo_produto=array[1..MAX] of produto;  
var
produtos:tipo_produto;

procedure Leitura(var produtos:tipo_produto);
var
i:integer;
Begin
for i := 1 to MAX do
Begin          
Write(' Nome do Produto  : ');
readln(produtos[i].nome);         
Write(' Preco do Produto : ');
readln(produtos[i].preco);
Writeln;
End;
writeln;
writeln;

writeln('----- LISTAGEM DE PRODUTOS -----');
for i := 1 to MAX do
Begin	
writeln;
writeln(  '   Produto  '                         ,                                            '        Preco      '); 
writeln(  produtos[i] . nome                       ,                                            produtos[i] . preco:0:2);   
End
End;

Begin
Leitura(produtos);
readln();
End.

Desde j� agrade�o qualquer tipo de ajuda.

Andr� Moutinho

Curtir t�pico

+ 0

Responder

Posts

26/08/2016

Natanael Ferreira

Voc� pode utilizar a Format para formatar a string com tamanho fixo.

Teste o c�digo assim:

uses
  SysUtils;

const
  MAX = 2;

Type
  produto = record
    nome: string;
    preco: real;
  End;

  tipo_produto = array [1 .. MAX] of produto;

var
  produtos: tipo_produto;

procedure Leitura(var produtos: tipo_produto);
var
  i: integer;
Begin
  for i := 1 to MAX do
  Begin
    Write(' Nome do Produto  : ');
    readln(produtos[i].nome);
    Write(' Preco do Produto : ');
    readln(produtos[i].preco);
    Writeln;
  End;
  Writeln;
  Writeln;

  Writeln('----- LISTAGEM DE PRODUTOS -----');
  for i := 1 to MAX do
  Begin
    Writeln;
    Writeln('   Produto  ', '        Preco      ');
    Writeln('   ', Format('%-17s', [produtos[i].nome]), 'R$ ' , produtos[i].preco:0:2);
  End
End;

Begin
  Leitura(produtos);
  readln;

End.

Responder

Gostei + 0

26/08/2016

Andr� Moutinho

Voc� pode utilizar a Format para formatar a string com tamanho fixo.

Teste o c�digo assim:

uses
  SysUtils;

const
  MAX = 2;

Type
  produto = record
    nome: string;
    preco: real;
  End;

  tipo_produto = array [1 .. MAX] of produto;

var
  produtos: tipo_produto;

procedure Leitura(var produtos: tipo_produto);
var
  i: integer;
Begin
  for i := 1 to MAX do
  Begin
    Write(' Nome do Produto  : ');
    readln(produtos[i].nome);
    Write(' Preco do Produto : ');
    readln(produtos[i].preco);
    Writeln;
  End;
  Writeln;
  Writeln;

  Writeln('----- LISTAGEM DE PRODUTOS -----');
  for i := 1 to MAX do
  Begin
    Writeln;
    Writeln('   Produto  ', '        Preco      ');
    Writeln('   ', Format('%-17s', [produtos[i].nome]), 'R$ ' , produtos[i].preco:0:2);
  End
End;

Begin
  Leitura(produtos);
  readln;

End.

Ent�o, estou usando o PascalZIM para escrever em console mode, e ele n�o reconhece o SysUtils, assim como o Format.

Responder

Gostei + 0