# data[].attributes.body
Jogo Mario- Scratch

# data[].attributes.body
Pascal

# data[].attributes.attachment_link.readable_text
Program empresa;

Uses crt;

var vendas: array [1..2,1..4] of Real;
    custo: array [1..2,1..4] of Real;
    balanco: array [1..2,1..4] of Real;
    op: String;
    nome,nomeproduto: String;
    c,i,n: Integer;
    soma,media,max,min: Real;
    
Procedure inserir_dados;
begin
    clrscr;
    Writeln('Qual o nome da empresa ?');
    Readln(nome);
    clrscr;
    Writeln('Qual o produto que comercializa ?');
    Readln(nomeproduto);
    clrscr;
    Writeln('A empresa',' ', nome,' ','vende o seguinte produto: ',nomeproduto);
    Writeln('Carregue no enter para continuar');
    Readln();
    clrscr;
    For c:= 1 to 2 do
    For i:=1 to 4 do
    Begin
        clrscr;
        Writeln ('No mês',' ',c,' qual o custo de ',nomeproduto,' na semana ',i,' ?');
        Readln (custo[c,i]);
        clrscr;
        Writeln ('No mês ', c,', qual o valor de vendas de ',nomeproduto,' na semana ',i,' ?');
        Readln (vendas[c,i]);
        clrscr;
    end;
    end;
   
Procedure mostrar_dados;
    begin
    For c:=1 To 2 Do
    For i:=1 To 4 Do
    Begin
        Writeln ('No mês ', c, ', o custo na semana ',i, ' = ', custo[c,i]:0:2);
        Writeln ('No mês ', c, ', as vendas na semana ',i, ' = ', vendas[c,i]:0:2);
    End;
    Writeln('Prima o enter ir para o menu');
    Readln ();
    clrscr;
    end;   

Function conta_balanco (vendas, custos: real):real;
begin
    conta_balanco:=vendas-custos;
end;
// vendas semanais
Procedure vendas_semanais;
begin
    For c:=1 To 2 Do
    For i:=1 To 4 Do
    Begin
    Writeln('Na semana ',i,' do mês ',c,'o total das vendas é de: ',vendas[c,i]:0:2);
End;
Writeln('Prima o enter para voltar ao menu');
end;

// custos semanais
Procedure custos_semanais;
begin
    For c:=1 To 2 Do
    For i:=1 To 4 Do
    Begin
    Writeln('Na semana ',i,' do mês ',c,'o total dos custos é de: ',custo[c,i]:0:2);
End;
Writeln('Prima o enter para voltar ao menu');
end;
 
// balanço semanal
Procedure balanco_semanal;
begin
    For c:=1 to 2 Do
    For i:=1 to 4 Do
    Begin
        balanco[c,i]:= conta_balanco(vendas[c,i],custo[c,i]);
        Writeln('O balanço semanal é de: ',balanco[c,i]:0:2);
        if balanco[c,i] > 0 then
        Writeln('Parabéns pelo resutado! Continue assim.')
        else
        Writeln('Não deixe que o resultado o pare. Continue a melhorar.');
    end;
    Writeln('Prima o enter para voltar ao menu');
end;

// vendas mensal
Procedure vendas_mensal;           
begin
    for c:= 1 to 2 do
    begin
        soma:= 0;
        for i:= 1 to 4 do
        begin 
            soma:= soma+vendas[c,i];
        end;
    Writeln (' O valor das vendas no mês ', c,' foi: ', soma:0:2); 
    End;
    Writeln('Prima o enter para voltar ao menu');
End;     

// custos mensais
Procedure custos_mensal;           
begin
    for c:= 1 to 2 do
    begin
        soma:= 0;
        for i:= 1 to 4 do
        begin 
            soma:= soma+custo[c,i];
        end;
    Writeln ('O valor do custo mensal no mês ', c,'é de ', soma:0:2);
    End;
    Writeln('Prima o enter para voltar ao menu');
End;

// balanco mensal
Procedure balanco_mensal;
begin
    for c:= 1 to 2 do
    begin
        soma:= 0;
        for i:= 1 to 4 do
        begin 
            balanco[c,i]:= conta_balanco(vendas[c,i],custo[c,i]);
            soma:= soma+balanco[c,i];
        end;
    Writeln ('O balanço no mês ', c,'é de: ', soma:0:2);
    if soma>0 then
    Writeln('Parabéns pelo resutado! Continue assim.')
    else
    Writeln('Não deixe que o resultado o pare. Continue a melhorar.');
    End;
    Writeln('Prima o enter para voltar ao menu');
End;

// total das vendas
Procedure vendas_total;
begin
    soma:= 0;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        soma:= soma+vendas[c,i];
    end;
    Writeln ('O valor total de vendas é de: ', soma:0:2);
    Writeln('Prima o enter para voltar ao menu');
End;

// total dos custos
Procedure custos_total;
begin
    soma:= 0;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        soma:= soma+custo[c,i];
    end;
    Writeln ('O valor total dos custos é de: ', soma:0:2);
    Writeln('Prima o enter para voltar ao menu');
End;
// balanco total
Procedure balanco_total;
begin
    soma:= 0;
    For c:=1 to 2 Do
    For i:=1 to 4 Do
    Begin
        balanco[c,i]:= conta_balanco(vendas[c,i],custo[c,i]);
        soma:= soma+balanco[c,i];
    end;
    Writeln('O valor do balanço total é de: ',soma:0:2);
    begin
    if soma>0 then
        Writeln('Parabéns pelo resutado! Continue assim.')
        else
        Writeln('Não deixe que o resultado o pare. Continue a melhorar.');
    end;
    Writeln('Prima o enter para voltar ao menu');
end;

// media de vendas
Procedure vendas_media;
begin
    soma:= 0;
    media:= 0;
    n:= 0;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        soma:= soma+vendas[c,i];
        n:= n+1;
    end;
    media:= soma/n;
    Writeln ('O valor da média das vendas é de: ', media:0:2);
    Writeln('Prima o enter para voltar ao menu');
end;

// media de custos
Procedure media_custos;
begin
    soma:= 0;
    media:= 0;
    n:= 0;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        soma:= soma+custo[c,i];
        n:= n+1;
    end;
    media:= soma/n;
    Writeln ('O valor da média dos custos é de: ', media:0:2);
    Writeln('Prima o enter para voltar ao menu');
end;

// media balanco
Procedure media_balanco;
begin
    soma:= 0;
    media:= 0;
    n:= 0;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        balanco[c,i]:= conta_balanco(vendas[c,i],custo[c,i]);
        soma:= soma+balanco[c,i];
        n:= n+1;
    end;
    media:= soma/n;
    Writeln ('O valor da média do balanço é de: ', media:0:2);
    begin
    if media>0 then
        Writeln('Parabéns pelo resutado! Continue assim.')
        else
        Writeln('Não deixe que o resultado o pare. Continue a melhorar.');
    end;
    Writeln('Prima o enter para voltar ao menu');
end;

// maximo de vendas
Procedure vendas_maximo;
var
    venda: real;
    semana, mes: integer;

begin
    max:= vendas[1,1];
    semana:=1;
    mes:=1;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        venda:= vendas[c,i];
        if venda> max then
            begin
                max:= venda;
                semana:=i;
                mes:=c;
            end;
    end;
    Writeln ('O valor máximo de vendas foi efetuado na semana ', semana,' do mês ', mes,' e é: ',max:0:2);
    Writeln('Prima o enter para voltar ao menu');
End;

// maximo de custos
Procedure custo_maximo;
var
    cust: real;
    semana, mes: integer;

begin
    max:= custo[1,1];
    semana:=1;
    mes:=1;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        cust:= custo[c,i];
        if cust> max then
            begin
                max:= cust;
                semana:=i;
                mes:=c;
            end;
    end;
    Writeln ('O valor máximo de custos foi efetuado na semana ', semana,' do mês ', mes,' e é: ',max:0:2);
    Writeln('Prima o enter para voltar ao menu');
End;

// balanço máximo
Procedure balanco_maximo;
var
    balan: real;
    semana, mes: integer;

begin
    max:= balanco[1,1];
    semana:=1;
    mes:=1;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        balanco[c,i]:= conta_balanco(vendas[c,i],custo[c,i]);
        balan:= balanco[c,i];
        if balan> max then
            begin
                max:= balan;
                semana:=i;
                mes:=c;
            end;
    end;
    Writeln ('O valor do balanço máximo foi efetuado na semana ', semana,' do mes ', mes,' e é: ',max:0:2);
    begin
    if max>0 then
        Writeln('Parabéns pelo resutado! Continue assim.')
        else
        Writeln('Não deixe que o resultado o pare. Continue a melhorar.');
    end;
    Writeln('Prima o enter para voltar ao menu');
End;

// minimo de vendas
Procedure vendas_minimo;
var
    venda: real;
    semana, mes: integer;

begin
    min:= vendas[1,1];
    semana:=1;
    mes:=1;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        venda:= vendas[c,i];
        if venda< min then
            begin
                min:= venda;
                semana:=i;
                mes:=c;
            end;
    end;
    Writeln ('O valor minimo de vendas foi efetuado na semana ', semana,' do mês ', mes,' e é: ',min:0:2);
    Writeln('Prima o enter para voltar ao menu');
End;

// minimo de custos
Procedure custo_minimo;
var
    cust: real;
    semana, mes: integer;

begin
    min:= custo[1,1];
    semana:=1;
    mes:=1;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        cust:= custo[c,i];
        if cust< min then
            begin
                min:= cust;
                semana:=i;
                mes:=c;
            end;
    end;
    Writeln ('O valor minimo de custos foi efetuado na semana ', semana,' do mês ', mes,' e é: ',min:0:2);
    Writeln('Prima o enter para voltar ao menu');
End;

// balanço minimo
Procedure balanco_minimo;
var
    balan: real;
    semana, mes: integer;

begin
    min:= balanco[1,1];
    semana:=1;
    mes:=1;
    for c:= 1 to 2 do
    for i:= 1 to 4 do
    begin
        balanco[c,i]:= conta_balanco(vendas[c,i],custo[c,i]);
        balan:= balanco[c,i];
        if balan< min then
            begin
                min:= balan;
                semana:=i;
                mes:=c;
            end;
    end;
    Writeln ('O valor do balanço minimo foi efetuado na semana ', semana,' do mês ', mes,' e é: ',min:0:2);
    begin
    if min>0 then
        Writeln('Parabéns pelo resutado! Continue assim.')
        else
        Writeln('Não deixe que o resultado o pare. Continue a melhorar.');
    End;
    Writeln('Prima o enter para voltar ao menu');
End;
    
Procedure menu;
begin
Repeat
    Writeln('******************************************************************');
    Writeln('*                      Escolha uma opção                         *');
    Writeln('* 1 - Vendas Semanais                  * 10 - Média dos Custos   *');
    Writeln('* 2 - Total das Vendas Mensal          * 11 - Máximo dos Custos  *');
    Writeln('* 3 - Total das Vendas                 * 12 - Mínimo dos Custos  *');
    Writeln('* 4 - Média das Vendas                 * 13 – Balanço Semanal    *');
    Writeln('* 5 - Máximo das Vendas                * 14 – Balanço Mensal     *');
    Writeln('* 6 - Mínimo das Vendas                * 15 – Balanço Total      *');
    Writeln('* 7 - Custos Semanais                  * 16 – Média Total        *');
    Writeln('* 8 - Total dos custos mensal          * 17 - Máximo             *');
    Writeln('* 9 - Total dos Custos                 * 18 - Mínimo             *');
    Writeln('*                          s– Sair                               *');
    Writeln('******************************************************************');
    Readln(op);
    clrscr;
case op of
 '1': vendas_semanais;
 '2': vendas_mensal;
 '3': vendas_total;
 '4': vendas_media;
 '5': vendas_maximo;
 '6': vendas_minimo;
 '7': custos_semanais;
 '8': custos_mensal;
 '9': custos_total;
 '10': media_custos;
 '11': custo_maximo;
 '12': custo_minimo;
 '13': balanco_semanal;
 '14': balanco_mensal;
 '15': balanco_total;
 '16': media_balanco;
 '17': balanco_maximo;
 '18': balanco_minimo;
 's': Writeln('Fim');
 else
 Writeln('Opção inválida');
 end;
 Readln ();
 Clrscr;
 until op = 's';
    end;
   

Begin
    Clrscr;
    TextColor(White);
    Textbackground(blue);
    inserir_dados;
    mostrar_dados;
    menu;
end.

# data[].attributes.body
Salve o planeta

# data[].attributes.body
Photoshop

# data[].attributes.body
Photoshop

# data[].attributes.body
Concurso de fotografia

# data[].attributes.body
Mix de duas músicas no audacity

# data[].attributes.body
Curriculum vitae 25 anos

# data[].attributes.body
"Eu estive aqui"

# data[].attributes.attachment_link.description
Get access to files anywhere through secure cloud storage and file backup for your photos, videos, files and more with Google Drive.

# data[].attributes.attachment_link.description
Get access to files anywhere through secure cloud storage and file backup for your photos, videos, files and more with Google Drive.

# data[].attributes.body
Apresentação dos projetos do ano letivo

# data[].attributes.attachment_link.description
Get access to files anywhere through secure cloud storage and file backup for your photos, videos, files and more with Google Drive.