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

mykos

preciso de opinioes!!!!

Recommended Posts

mykos

Boas ppl!!!

venho aqui pedir a vossa opiniao sobre um programa que fiz.

o exercicio é o seguinte:

Uma fábrica tem possui 6 unidades produtivas. Cada unidade produtiva tem na sua estrutura um conjunto de 8 máquinas. Dada a capacidade de cada máquina, de cada unidade produtiva, indicar:

- a unidade produtiva de maior capacidade

- a máquina com menor capacidade

nota: cada máquina é identificada pela unidade a que pertence e por um número de 1 a 8

aqui esta o codigo do programa:

program ficha7_exercicio3;


uses
  crt;
  
const
linha:array[1..6] of string=('A','B','C','D','E','F');

var
mn,j,i,posm,total,maior:integer;
pr:array[1..6,1..8]of integer;
prlinha:array[1..6]of integer;

begin
gotoxy(10,1);
write('escreva o valor da producao da maquina: ');
gotoxy(1,2);
write('-----------------------------------------------------------');
gotoxy(1,3);
textcolor(yellow);
for i:=1 to 3 do
    begin
         for j:=1 to 8 do
             begin
                  gotoxy((i*20)-19,2+j);
                  write(linha[i],j,': ');
                  readln(pr[i,j]);
             end;
    end;
textcolor(white);
writeln('-----------------------------------------------------------');
textcolor(yellow);
for i:=4 to 6 do
    begin
         for j:=1 to 8 do
             begin
                  gotoxy((20*(i-3))-19,11+j);
                  write(linha[i],j,': ');
                  readln(pr[i,j]);
             end;
    end;
textcolor(white);
writeln('-----------------------------------------------------------');

{calcular a capacidade total produzida por unidade produtiva}
for i:=1 to 6 do
    begin
         total:=0;
         for j:=1 to 8 do
             begin
                  total:=(total+(pr[i,j]));
             end;
         prlinha[i]:=total;
    end;

{determinar a maior produçao}
maior:=0;
for i:=1 to 6 do
    begin
         if (prlinha[i])> maior then
            begin
                 maior:=(prlinha[i]);
            end;
    end;

{determinar a menor capacidade produzida}
mn:=maior;
for i:=1 to 6 do
    begin
         for j:=1 to 8 do
             begin
                  if pr[i,j]<mn then
                     begin
                          mn:=pr[i,j];
                     end;
             end;
    end;
    
gotoxy(1,21);
textcolor(green);
write('A(s) unidade(s) produtiva(s) de maior capacidade e/(sao): ');
{procurar todos os valores iguais à maior produçao por unidade}
for i:=1 to 6 do
    begin
         if prlinha[i]=maior then
            begin
    {escrever as unidade com maior produçao}
              write(linha[i],'/ ');
            end;
    end;
writeln(linha[posm]);

textcolor(red);
writeln('A(s) maquina(s) de menor capacidade e/(sao): ');
{procurar todos os valores iguais à menor capacidade produzida}
for i:=1 to 6 do
    begin
         for j:=1 to 8 do
             begin
                  if pr[i,j]=mn then
                     begin
                  {escrever a(s) maquina(s) de menor capacidade}
                          write(linha[i],j,' | ');
                     end;

             end;
    end;


readkey;
readkey;

end.

                       

aqui está o programa para download para quem nao quiser ter trabalho a compilar.(não tem virus, e para comprovar a baixo tem o scan em diferentes antivirus)

ficha7_exercicio3.exe @ HDD :)

File Info

Report generated: 1.12.2008 at 15.38.24 (GMT 1)

Packer detected: Nothing found [Overlay] *

Self-Extract Archive: Nothing found

Binder Detector:  Nothing found

Detection rate: 0 on 24

Detections

a-squared - Nothing found!

Avira AntiVir - Nothing found!

Avast - Nothing found!

AVG - Nothing found!

BitDefender - Nothing found!

ClamAV - Nothing found!

Comodo - Nothing found! 

Dr.Web - Nothing found!

Ewido - Nothing found!

F-PROT 6 - Nothing found!

G DATA - Nothing found!

IkarusT3 - Nothing found!

Kaspersky - Nothing found!

McAfee - Nothing found! 

MHR (Malware Hash Registry) - Nothing found!

NOD32 v3 - Nothing found! 

Norman - Nothing found!

Panda - Nothing found!

Quick Heal - Nothing found!

Solo Antivirus - Nothing found!

Sophos - Nothing found!

TrendMicro - Nothing found!

VBA32 - Nothing found!   

Virus Buster - Nothing found!

Scan report generated by 

NoVirusThanks.org

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.