Script que calcula a carga das unidades se baseado no peso do produto e no peso da embalagem multiplicado pela quantidade de unidades.

• Download calcularCarga.txt
• Enviar nova versão

Esconder código-fonte

 program calcular_carga;

 uses crt;

 var prod,emb,carga:real;
     intUnid:integer;

     begin
     clrscr;
     writeln('Qual o peso do produto?');
     readln(prod);
     writeln('Qual o peso da embalagem?');
     readln(emb);
     writeln('Quantas unidades?');
     readln(intUnid);
     carga:=(prod+emb)*intUnid;
     writeln('a carga total sera',carga);

     end.

Calculadora básica no Lazarus

Gerador de senha Pascal/Lazarus

Array de números aleatórios não-repetidos de um intervalo em Pascal

Maior numero do Vetor

exemplo de vetores

Nenhum comentário foi encontrado.