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

bsntuga

Stand de Carros

6 mensagens neste tópico

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. 

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não percebi muito bem.

Devemos usar o pythonscripter ou usar o console do python

Cumprimentos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

UPS.. Enganei-me do Post

Editado por Danielt7
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora