Ir ao conteúdo
  • Cadastre-se

Duvida em programar Pascal


Posts recomendados

Olá.
Estou tendo dificuldade para resolver um programa para receber e comparar preços um determinado produto de fornecedores.
No entanto foi pedido para resolver utilizando ate 3 fornecedores e no máximo 5, mais para melhorar eu criei o programa para fazer comparações de ate no máximo 5 fornecedores.
Montei o programa testei beleza mais quando eu utilizo de menos que 5 fornecedores o programa esta comparando o preço dos fornecedores que você informou + com o preço dos fornecedores que você nao utilizou e esta me racando a cabeçeira .
me ajudem se possivel =D
 

Program Pzim ;Var PO, UN, F1, F2, F3, F4, F5, MF: string;FO, K: integer;P1, P2, P3, P4, P5, UN1, UN2, UN3, UN4, UN5, Q1, Q2, Q3, Q4, Q5, MP: real;Beginwriteln('Programa para calcular cotação de um determinado produto');writeln('Digite o nome do produto ao qual sera realizado a cotação e tecle enter');readln(PO);writeln('Digite a quantidade de fornecedores que irão participar da cotação.');writeln('Obs.: Máximo de 5 fornecedores.');readln(FO);while FO>5 do begin writeln('Você ecedeu o valor máximo de 5 fornecedores. Por favor faça a cotação com no máximo 5 fornecedores');writeln('Digite a quantidade de fornecedores que irão participar da cotação.');writeln('Obs.: Máximo de 5 fornecedores.');readln(FO);end;writeln('Digite a unidade de medição utilizada para quantificar o produto e tecle enter');readln(UN);K:=1;MP:=0;if K<=FO thenbeginwriteln('Digite o nome do ',K ,'º fornecedor e tecle enter');readln(F1);writeln('Digite o preço do produto do ',K ,'° fornecedor e tecle enter');readln(P1);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K ,'º fornecedor e tecle enter');readln(Q1);UN1:=P1/Q1;K:=(K+1);if (MP>UN1) then beginMP:=UN1;MF:=F1;end;end;if K<=FO thenbeginwriteln('Digite o nome do ',K,'º fornecedor e tecle enter');readln(F2);writeln('Digite o preço do produto do ',K,'° fornecedor e tecle enter');readln(P2);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K,'º fornecedor e tecle enter');readln(Q2);UN2:=P2/Q2;K:=(K+1);if (MP>UN2) then beginMP:=UN2;MF:=F2;end;end;if K<=FO thenbeginwriteln('Digite o nome do ',K,'º fornecedor e tecle enter');readln(F3);writeln('Digite o preço do produto do ',K,'° fornecedor e tecle enter');readln(P3);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K,'º fornecedor e tecle enter');readln(Q3);UN3:=P3/Q3;K:=(K+1);if (MP>UN3) then beginMP:=UN3;MF:=F3;end;end;if K<=FO thenbeginwriteln('Digite o nome do ',K,'º fornecedor e tecle enter');readln(F4);writeln('Digite o preço do produto do ',K,'° fornecedor e tecle enter');readln(P4);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K,'º fornecedor e tecle enter');readln(Q4);UN4:=P4/Q4;K:=(K+1);if (MP>UN4) then beginMP:=UN4;MF:=F4;end;end; if K<=FO thenbeginwriteln('Digite o nome do ',K,'º fornecedor e tecle enter');readln(F5);writeln('Digite o preço do produto do ',K,'° fornecedor e tecle enter');readln(P5);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K,'º fornecedor e tecle enter');readln(Q5);UN5:=P5/Q5;K:=(K+1);if (MP>UN5) then beginMP:=UN5;MF:=F5;end;end;writeln('Tabela de fornecedores do produto ', PO);writeln('Nome   ',F1,'   Quantidade   ',Q1,'   Preço Total',   P1,'   Preço por unidade   ',   UN1);writeln('Nome   ',F2,'   Quantidade   ',Q2,'   Preço Total',   P2,'   Preço por unidade   ',   UN2);writeln('Nome   ',F3,'   Quantidade   ',Q3,'   Preço Total',   P3,'   Preço por unidade   ',   UN3);writeln('Nome   ',F4,'   Quantidade   ',Q4,'   Preço Total',   P4,'   Preço por unidade   ',   UN4);writeln('Nome   ',F5,'   Quantidade   ',Q5,'   Preço Total',   P5,'   Preço por unidade   ',   UN5);writeln('O fornecedor com o produto de menor preço é: ',MF);writeln('O seu preço por unidade de produto é: ',MP, 'na unidade de ',UN);End.
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...