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

mykos

preciso de opinioes!!!!

1 mensagem neste tópico

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

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