Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

bsntuga

Stand de Carros

Recommended Posts

bsntuga

pode ser util a alguem

// Stand App by bsntuga
// 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. 

Share this post


Link to post
Share on other sites
Danielt7

eu nao sou muito experiente em pascal ate por acaso sou novato mas em que formato devo fazer esta pagina do stand

obrigado


Penso noventa e nove vezes e nada descubro; deixo de pensar, mergulho em profundo silêncio - e eis que a verdade se me revela. - Albert Einstein

Share this post


Link to post
Share on other sites
thoga31

mande um mail: daniel.alexandre11@hotmail.com

obrigado

O espírito do P@P é a partilha pública de conhecimentos.

eu nao sou muito experiente em pascal ate por acaso sou novato mas em que formato devo fazer esta pagina do stand

Este é um programa que vai correr em consola. Deverá ser guardado num ficheiro com a extensão *.pas e deverá ser compilado por um compilador como o Free Pascal.

Consulte este tópico para mais informações sobre o assunto, e não hesite em publicar as suas dúvidas que teremos todo o gosto em esclarecer.

Cumprimentos.


Knowledge is free!

Share this post


Link to post
Share on other sites
Danielt7

Não percebi muito bem.

Devemos usar o pythonscripter ou usar o console do python

Cumprimentos


Penso noventa e nove vezes e nada descubro; deixo de pensar, mergulho em profundo silêncio - e eis que a verdade se me revela. - Albert Einstein

Share this post


Link to post
Share on other sites
apocsantos

Boa noite,

Python ?? Não estás equivocado ? Este programa deve ser gravado com ficheiro com extenção .pas, e posteriormente ser compilado com o Freepascal. E é deve ser executado na consola do sistema operativo.

Coridias cumprimentos,

Apocsantos


"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Share this post


Link to post
Share on other sites
Danielt7

UPS.. Enganei-me do Post

Edited by Danielt7

Penso noventa e nove vezes e nada descubro; deixo de pensar, mergulho em profundo silêncio - e eis que a verdade se me revela. - Albert Einstein

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.