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

FEXJAC

Ajuda dano erro que não sei

2 mensagens neste tópico

Program Calculadora;

var

icmsct, ct, imptft, tintaot, cmsm, vn, pctms, vlrmassa, chp, vtn, pscg:real;

imp, impms, pesocg, pesoms, chapacg, chapams, aux1, fretecg:real;

aux2, fretems, custocg, customs:real;

Begin

  writeln('CONSTRULAR MATERIAIS PARA CONSTRUÇÃO');

  writeln('Calculadora de Custos 1.0 Beta');

  writeln('1- ICMS 12%');

  writeln('2- ICMS 07%');

  readln(icmsct);

case icmsct of

1 : begin

      ct:= 0.21;

      imptft:= 0.14;

      writeln('T-Tinta');

      writeln('P-Outros');

      readln(tintaot);

      case tintaot of

      T : begin

        writeln('M-Com Massa');

        writeln('S-Sem Massa');

        readln (cmsm);

        case cmsm of

        M : begin

              writeln('Valor da Nota: ');

              readln (vn);

              writeln('Quantidade de Pcts de Massa: ');

              readln (pctms);

              writeln('Valor total da massa: ');

              readln (vlrmassa);

              writeln('Chapa: ');

              readln (chp);

              write('Valor Ton - Frete: ');

              readln (vtn);

              write('Peso da Carga: ');

              readln (pscg);

              imp:= vn*ct;

              impms:= vlrmassa*ct;

              pesocg:= pscg-((pctms*15)/1000);

              pesoms:= (pctms*15)/1000;

              chapacg:= (pesocg*7);

              chapams:= (pesoms*7);

              aux1:= pesocg*vtn;

              fretecg:= aux1+(aux1*imptft);

              aux2:= pesoms*vtn;

              fretems:= aux2+(aux2*imptft);

              custocg:= (((vn+imp+chapacg+fretecg)/vn)-1)*100;

              writeln('Custo da carga sem a massa: ', custocg, '%');

              customs:= (((vlrmassa+impms+chapams+fretems)/vlrmassa)-1)*100;

              writeln('Custo da massa: ', customs, '%');

            end;

        O : begin

              writeln('Valor da Nota: ');

              readln (vn);

              writeln('Chapa: ');

              readln (chp);

              write('Valor Ton - Frete: ');

              readln (vtn);

              write('Peso da Carga: ');

              readln (pscg);

              imp:= vn*ct;

              pesocg:= (pscg/1000);

              chapacg:= (pesocg*7);

              aux1:= pesocg*vtn;

              fretecg:= aux1+(aux1*imptft);

              custocg:= (((vn+imp+chapacg+fretecg)/vn)-1)*100;

              writeln('Custo da carga sem a massa: ', custocg, '%');

            end; {case}

      S : begin

              writeln('Valor da Nota: ');

              readln (vn);

              writeln('Chapa: ');

              readln (chp);

              write('Valor Ton - Frete: ');

              readln (vtn);

              write('Peso da Carga: ');

              readln (pscg);

              imp:= vn*ct;

              pesocg:= (pscg/1000);

              aux1:= pesocg*vtn;

              fretecg:= aux1+(aux1*imptft);

              custocg:= (((vn+imp+chapacg+fretecg)/vn)-1)*100;

              writeln('Custo dos prdutos: ', custocg, '%');

          end; {case}

2 : begin

          ct:= 0.28;

          imptft:= 0.14;

          writeln('T-Tinta');

          writeln('O-Outros');

          readln(tintaot);

      case tintaot of

      T : begin

              writeln('M-Com Massa');

              writeln('S-Sem Massa');

              readln (cmsm);

              case cmsm of

        M : begin

            writeln('Valor da Nota: ');

            readln (vn);

            writeln('Quantidade de Pcts de Massa: ');

            readln (pctms);

            writeln('Valor total da massa: ');

            readln (vlrmassa);

            writeln('Chapa: ');

            readln (chp);

            write('Valor Ton - Frete: ');

            readln (vtn);

            write('Peso da Carga: ');

            readln (pscg);

            imp:= vn*ct;

            impms:= vlrmassa*ct;

            pesocg:= pscg-((pctms*15)/1000);

            pesoms:= (pctms*15)/1000;

            chapacg:= (pesocg*7);

            chapams:= (pesoms*7);

            aux1:= pesocg*vtn;

            fretecg:= aux1+(aux1*imptft);

            aux2:= pesoms*vtn;

            fretems:= aux2+(aux2*imptft);

            custocg:= (((vn+imp+chapacg+fretecg)/vn)-1)*100;

            writeln('Custo da carga sem a massa: ', custocg, '%');

            customs:= (((vlrmassa+impms+chapams+fretems)/vlrmassa)-1)*100;

            writeln('Custo da massa: ', customs, '%');

        end;

        S : begin

              writeln('Valor da Nota: ');

              readln (vn);

              writeln('Chapa: ');

              readln (chp);

              write('Valor Ton - Frete: ');

              readln (vtn);

              write('Peso da Carga: ');

              readln (pscg);

              imp:= vn*ct;

              pesocg:= (pscg/1000);

              chapacg:= (pesocg*7);

              aux1:= pesocg*vtn;

              fretecg:= aux1+(aux1*imptft);

              custocg:= (((vn+imp+chapacg+fretecg)/vn)-1)*100;

              writeln('Custo da carga sem a massa: ', custocg, '%');

        end; {case}

      O : begin

        writeln('Valor da Nota: ');

        readln (vn);

        writeln('Chapa: ');

        readln (chp);

        write('Valor Ton - Frete: ');

        readln (vtn);

        write('Peso da Carga: ');

        readln (pscg);

        imp:= vn*ct;

        pesocg:= (pscg/1000);

        aux1:= pesocg*vtn;

        fretecg:= aux1+(aux1*imptft);

        custocg:= (((vn+imp+chapacg+fretecg)/vn)-1)*100;

        writeln('Custo dos prdutos: ', custocg, '%');

      end; {case}

end;

end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Formata o codigo com o GeSHi.

E que erro da ? Tens que ser mais explicito senão ninguem te vai ajudar...

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