1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Pascal] Stand de Carros

Discussão em 'Programação' iniciada por n0stress, 5 de Fevereiro de 2009. (Respostas: 0; Visualizações: 1223)

  1. pode ser util a alguem
    Código:
    // Stand App by me
    // 1.02.2009
    
    program Stand;
    
    {$APPTYPE CONSOLE}
    
    uses
      SysUtils;
    
    // Abrimos os registos dos carros, com nome, e custo.
    type
    TCarros = Record
    nome:string[30];
    custo:integer;
    end;
    
    // Abrimos os registos dos produtos, com nome, e custo.
    type
    TProdutos = Record
    nome:string[30];
    custo:integer;
    end;
    
    // Declaraçao de Variaveis
    var
    fiat, porshe, mercedes: TCarros; // Declaramos estas variaveis, porque vao pertencer ao registo dos carros
    radio, gps, pneus: TProdutos;  // Declaramos estas variaveis, porque vao pertencer ao registo dos produtos
    carro: integer;
    produto: integer;
    total: integer;
    
    ///////// Atruibuiçao de Valores - TCarros /////////
    
    // Atribuiçao de Valores ao Fiat
    begin
     with fiat do
     begin
     nome:= 'Fiat Uno';
     custo:= 850;
    end;
    
    // Atribuiçao de Valores ao Porshe
    with porshe do
     begin
     nome:= 'Porshe';
     custo:= 2500;
    end;
    
    // Atribuiçao de Valores ao Mercedes
    with mercedes do
     begin
     nome:= 'Mercedes Benz';
     custo:= 2050;
    end;
    
    ///////// Fim da Atruibuiçao de Valores - TCarros /////////
    
    ///////// Atruibuiçao de Valores - TProdutos /////////
    
    // Atribuiçao de Valores ao Radio
    with radio do
    begin
    nome:= 'Radio';
    custo:= 45;
    end;
    
    // Atribuiçao de Valores ao Gps
    with gps do
    begin
    nome:= 'Gps';
    custo:= 125;
    
    // Atribuiçao de Valores aos Pneus
    with pneus do
    begin
    nome:= 'Pneus';
    custo:= 450;
    end;
    
    ///////// Fim da Atruibuiçao de Valores - TProdutos /////////
    
    // Menu De Opçoes
    
    Writeln('Bem Vindo Ao Stand Forum-Maximus');
    Writeln('');
    Writeln('Temos Varios Carros ao seu dispor..');
    Writeln('Destacamos Hoje os seguintes:');
    Writeln('');
    Writeln('Opcao 1');
    Writeln('Nome: ',fiat.nome);
    Writeln('Custo: ',fiat.custo);
    Writeln('');
    Writeln('');
    Writeln('Opcao 2');
    Writeln('Nome: ',porshe.nome);
    Writeln('Custo: ',porshe.custo);
    Writeln('');
    Writeln('');
    Writeln('Opcao 3');
    Writeln('Nome: ',mercedes.nome);
    Writeln('Custo: ',mercedes.custo);
    Writeln('Indique o carro que mais lhe agrada, 1,2 ou 3:');
    Readln(carro);
    Writeln('');
    // Escolha do carro..
    // Se escolhido o Fiat Uno
    if (carro = 1) then
    begin
    Writeln('Escolheu a opcao numero um, que equivale ao ',fiat.nome, ' com o custo de ',fiat.custo,' Euros');
    Writeln('');
    Writeln('O ',fiat.nome, ' encontra-se em bom estado, mas voce pode melhora-lo');
    Writeln('Para Isso Temos Diversos Produtos ao seu dispor, observe:');
    writeln('');
    writeln('Opcao 1');
    writeln('Produto: ',radio.nome);
    writeln('Custo: ',radio.custo);
    writeln('');
    writeln('Opcao 2');
    writeln('Produto: ',gps.nome);
    writeln('Custo: ',gps.custo);
    writeln('');
    writeln('Opcao 3');
    writeln('Produto: ',pneus.nome);
    writeln('Custo: ',pneus.custo);
    Writeln('Indique o Producto que mais lhe agrada, 1,2 ou 3:');
    Readln(produto);
    if (produto = 1) then
    begin
    total:= fiat.custo + radio.custo;
    writeln('');
    writeln('Acabou de adquirir um ',radio.nome,' para o seu ',fiat.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    if (produto = 2) then
    begin
    total:= fiat.custo + gps.custo;
    writeln('');
    writeln('Acabou de adquirir um ',gps.nome,' para o seu ',fiat.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    if (produto = 3) then
    begin
    total:= fiat.custo + pneus.custo;
    writeln('');
    writeln('Acabou de adquirir uns ',pneus.nome,' para o seu ',fiat.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    end;
    
    // Se escolhido o Porshe Carrera GT Turbo
    if (carro = 2) then
    begin
    Writeln('Escolheu a opcao numero dois, que equivale ao ',porshe.nome, ' com o custo de ',porshe.custo,' Euros');
    Writeln('');
    Writeln('O ',porshe.nome, ' encontra-se em bom estado, mas voce pode melhora-lo');
    Writeln('Para Isso Temos Diversos Produtos ao seu dispor, observe:');
    writeln('');
    writeln('Opcao 1');
    writeln('Produto: ',radio.nome);
    writeln('Custo: ',radio.custo);
    writeln('');
    writeln('Opcao 2');
    writeln('Produto: ',gps.nome);
    writeln('Custo: ',gps.custo);
    writeln('');
    writeln('Opcao 3');
    writeln('Produto: ',pneus.nome);
    writeln('Custo: ',pneus.custo);
    Writeln('Indique o Producto que mais lhe agrada, 1,2 ou 3:');
    Readln(produto);
    if (produto = 1) then
    begin
    total:= porshe.custo + radio.custo;
    writeln('');
    writeln('Acabou de adquirir um ',radio.nome,' para o seu ',porshe.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    if (produto = 2) then
    begin
    total:= porshe.custo + gps.custo;
    writeln('');
    writeln('Acabou de adquirir um ',gps.nome,' para o seu ',porshe.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    if (produto = 3) then
    begin
    total:= porshe.custo + pneus.custo;
    writeln('');
    writeln('Acabou de adquirir uns ',pneus.nome,' para o seu ',porshe.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    end;
    
    // Se escolhido o Mercedes Benz
    if (carro = 3) then
    begin
    Writeln('Escolheu a opcao numero tres, que equivale ao ',mercedes.nome, ' com o custo de ',mercedes.custo,' Euros');
    Writeln('');
    Writeln('O ',mercedes.nome, ' encontra-se em bom estado, mas voce pode melhora-lo');
    Writeln('Para Isso Temos Diversos Produtos ao seu dispor, observe:');
    writeln('');
    writeln('Opcao 1');
    writeln('Produto: ',radio.nome);
    writeln('Custo: ',radio.custo);
    writeln('');
    writeln('Opcao 2');
    writeln('Produto: ',gps.nome);
    writeln('Custo: ',gps.custo);
    writeln('');
    writeln('Opcao 3');
    writeln('Produto: ',pneus.nome);
    writeln('Custo: ',pneus.custo);
    Writeln('Indique o Producto que mais lhe agrada, 1,2 ou 3:');
    Readln(produto);
    if (produto = 1) then
    begin
    total:= mercedes.custo + radio.custo;
    writeln('');
    writeln('Acabou de adquirir um ',radio.nome,' para o seu ',mercedes.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    if (produto = 2) then
    begin
    total:= mercedes.custo + gps.custo;
    writeln('');
    writeln('Acabou de adquirir um ',gps.nome,' para o seu ',mercedes.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    if (produto = 3) then
    begin
    total:= mercedes.custo + pneus.custo;
    writeln('');
    writeln('Acabou de adquirir uns ',pneus.nome,' para o seu ',mercedes.nome);
    writeln('Muito Obrigado pelas suas compras!');
    writeln('Voce gastou no nosso stand: ',total, ' euros');
    writeln('Volte Sempre!');
    Readln;
    end;
    end;
    
    
    end;
    end. 
     

Partilhar esta Página