Tempo bom em que..

Todos eram crianças, quase todas..
Todos eram inocentes;
não conheciam problemas,
problemas do mundo, da vida, de si..
problemas de experimentarem coisas imundas;
coisas imundas que se encontram pela estrada da vida..
estrada da vida que levam para a morte, e da morte ....
Tempo bom que passou depressa, e nos deixou saudades,
saudades do tempo em que éramos felizes e não sabíamos,
não sabíamos porque não conhecíamos a vida,
nem as coisas da vida,
coisas da vida, problemas..
problemas; drogas, vícios, bebidas...
Tempo bom em que todos eram felizes,
tudo que precisam era de espaço e qualquer coisa,
somente para inventar, brincar, curtir,
mas o tempo bom se foi
agora, fica a saudade, e não podemos mais voltar a vive-lo....
resta as lembranças e experiencias, para passarmos para os que estão vindo agora..
para que também tenham Tempo Bom...
e que Tempo Bom nunca acabe,
como infelizmente acabou para alguns, tão cedo.....
ahh, mas em alguns que ainda vivem o tempo bom, rs rsrs
Tempo Bom em que Todos estavam na igreja,
Tempo Ruim agora que alguns perderam a felicidade buscando a tal felicidade..
hoje vivem na escuridão.. submerso nas travas, perdidos na estrada da vida
estrada da vida do problema....

Mas ainda, podemos dizer Tempo Bom...
porque todos estão vivos..
e têm a chance de retornar, claro, aqueles que de alguma forma saíram do caminho..
Tempo Bom se cada um permitir essa chance a si próprio,
Tempo Bom volta a ser bom de novo....

Bom galera, conforme prometido, segue os códigos dos dois exercícios da prova:

1ª Questão: não me lembro o enunciado de nenhuma das duas.

procedure TForm1.BitBtn1Click(Sender: TObject);
var mat : array [1..4,1..5] of integer;
    i, j : integer;
    raiz, soma : real;
begin
    soma := 0;
    mat[1,1] := strtoint (edit1.Text);
    mat[1,2] := strtoint (edit2.Text);
    mat[1,3] := strtoint (edit3.Text);
    mat[1,4] := strtoint (edit4.Text);
    mat[1,5] := strtoint (edit5.Text);
    mat[2,1] := strtoint (edit6.Text);
    mat[2,2] := strtoint (edit7.Text);
    mat[2,3] := strtoint (edit8.Text);
    mat[2,4] := strtoint (edit9.Text);
    mat[2,5] := strtoint (edit10.Text);
    mat[3,1] := strtoint (edit11.Text);
    mat[3,2] := strtoint (edit12.Text);
    mat[3,3] := strtoint (edit13.Text);
    mat[3,4] := strtoint (edit14.Text);
    mat[3,5] := strtoint (edit15.Text);
    mat[4,1] := strtoint (edit16.Text);
    mat[4,2] := strtoint (edit17.Text);
    mat[4,3] := strtoint (edit18.Text);
    mat[4,4] := strtoint (edit19.Text);
    mat[4,5] := strtoint (edit20.Text);
    for i := 1 to 4 do
      for j := 1 to 5 do
        begin
        if (i+j) mod 2 = 0   then
        soma := soma + mat[i,j];
        end;
        raiz := sqrt (soma);
        edit21.Text := formatfloat ('#,##0.00', raiz);
        edit22.Text := floattostr (soma);

end;

2ª Questão:

procedure TForm1.BitBtn1Click(Sender: TObject);
var vet : array of integer;
     i, n, soma : integer;
     media : real;
begin
    soma := 0;
    n := strtoint (edit1.Text) ;
    setlength (vet, n);
    for i := 1 to n do
        begin
        vet[i] := strtoint(inputbox ('Valor Vetor','Valor','  '));
        soma :=  soma + vet[i];
         end;
        media := soma / n;
        for i := 1 to n do
        begin
        listbox1.Items.Add (inttostr(vet[i]));
        end;
        label2.Caption := ('Media dos Valores Inseridos no Vetor: '+ formatfloat('#,##0.00',media));
        edit1.Clear;
end;

Boa sorte Galera.. 

Asas...

Eu tinha asas... 
Minhas asas eram meus sonhos.
e com meus sonhos era livre
mas livre era ilusão...

Eu acreditava no impossível....
impossível era ilusão,
Doce ilusão, adormeci em seu colo.

Mas realidade não era ilusão...
Eu não tinha asas estava no chão...
O chão não era ilusão...

Autora: Priscila Campos

Uma criança...

Olhar inocente, sorriso sincero, choro profundo.

saudade do tempo em que comer uma melancia, ao mesmo tempo tomar banho de melancia, depois fazer carrinhos com a casca da melancia...

subir no pé de manga pra chupar manga e jogar o caroço em quem passava embaixo..

descascar laranja e espremer o sumo da casca no fogo do fogão para ver as labaredas vermelhas...

correr descalço pelas ruas, no sol, na chuva, de noite, a qualquer hora.. ouvir mamãe gritar: vem pra dentro filho, saia da rua.. (e nem era perigoso)

na chuva, fazer comporta com o calcanhar no meio fio.. (medo de caranguejo? essa hipótese não existia)

no quintal, correr atrás das galinhas, tentar pegar um pintinho recém-nascido só pra ver a galinha ficar brava..

brincar com o cachorro enquanto ele queria dormir, ou assustar o cachorro do vizinho..

ah, era mais peralta ainda, desligar a chave geral do vizinho bem na hora do jornal...

Saudade quando toda a família se reunia ao redor da mesa, sentados para comer macarronada ou aquela polenta com frango caipira, (hmmmmm, começa dar água na boca)..

não via a hora de ter o primeiro dia de aula, era entrar na escola e torcer pra acabar logo, pra chegar em casa e ir jogar bola com os amiguinhos, brigar também, rsrsrs

Lembra quando jogava bolinha de "gude" (só sei falar, rsrs), falar bem assim: obrigs aqui nads por 10 nads nads, kkkk,

Saudade ate dos tombos de bicicleta,

 ainda tem quem lembre da namoradinha da escola, aquela, que só agente sabia, ela nunca podia sonhar com isso, kkkkkk

Às vezes penso que vou morrer logo, porque dizem quando se tem muita saudade é porque o a vida está chegando ao fim, sei lá, o importante é enquanto estiver aqui, vivo a vida com emoção, porque cada momento é único, singular, e por mais que vivamos outros momentos parecidos, nunca será o mesmo, a saudade sempre nos acercará..

Hoje observo meu filho fazer as artes dele, e lembro e me vejo quando criança, tudo era lindo, não havia possibilidade de perigos, medos, decepções, tudo que queria era um brinquedo, e ainda eu quero um brinquedo, esse brinquedo é caro, e poucas pessoas sabem, (chhhhiiiiiu) é segredo, só minha amada esposa sabe...

mas a vida sempre traz novidades, e não podemos ser crianças a vida toda, a natureza nos instiga a crescer, a adquirir maturidade, experimentar coisas doces e amargas, muito amargas, outras doces demais da conta, dando arrepios..

e aqui estamos, ficando velho, lembrando do passado não tão distante e sofrendo novamente ou regozijando com as imagens gravadas em nossa memoria..

ufa, ainda tem muitas lembranças e cada qual com suas lembranças, 

mas todos tocando a vida em frente... 

Friends,  are Just Friends Forever.

Packing up the dreams
God planted
In the fertile soil of you
I can't believe the hopes he's granted
Means a chapter in your life is through

But we'll keep you close as always
It won't even seem you've gone
Cause our hearts in big and small ways
Will keep the love that keeps us strong

Chorus
And friends are friends forever
If the lord's the lord of them
And a friend will not say "never"
Cause the welcome will not end
Though it's hard to let you go
In the father's hands we know
That a lifetime's not too long to live as friends.

With the faith and love god's given
Springing from the hope we know
We will pray the joy you'll live in
Is the strength that now you show

But we'll keep you close as always
It won't even seem you've gone
Cause our hearts in big and small ways
Will keep the love that keeps us strong

Chorus

Uma sociedade que se definha..

 

a cada dia, está fraca, doentia, como alguém que perece em um leito acometido por uma enfermidade maligna e sem cura. Assim é a sociedade, exala mau cheiro, sua ferida incrustada e enrustida é perceptível de todos, menos a ela, coitada... ninguém pode fazer nada por ela, porque abandonaram e desprezaram o valor de sua estrutura, a família, e pior do que isso, enquanto não voltarmos para o valor da família, cada dia que passa, será nada mais que dias de amargura, decepções, tristezas e dores. Pessimismo? Não, apenas realismo. Mas ainda há solução, para quem a busca, tudo pode começar se apenas tornar o caminho reto.
(dispensa imagens para retratar a sociedade, a não ser um sinal de alerta)

Igual, do nascimento à morte.... as árvores

na primavera, estão floridas, exalando seu perfume e encantando todos com sua beleza, deixando-os extasiados com seu perfume,

no inverno ela morre, quase morre, fica seca, sem vida e sem beleza, 

passou toda a alegria, 

mas logo chega a primavera novamente

e ela volta a mostrar seu esplendor, 

mais uma vez,

todos se encantam, e não parece perder a graça, 

mesmo sabendo que virá outro inverno, e voltará a ficar seca e sem beleza,

isso é persistir, persistir sem desistir, encarando as provas de cada dia, sabendo que sempre haverá uma primavera, isso é o que motiva, que sempre teremos uma primavera melhor do que a outra...

Envelhecer faz bem.... 

O mais legal de envelhecer (ninguém quer) é que agente fica mais experiente na vida, o que antes era condenado, pode receber uma dose de misericórdia, talvez não absolvição, e vice-versa.

Calculo de Sub-rede

Dada a questão:

Você é administrador de uma Rede Classe A (118.0.0.0 /8) que deverá ser segmentada para

acomodar 126 sub-redes. Determine a Mascara dessa rede de modo a acomodar as 126 sub-redes.  Apresente seu calculo mostrando como chegou no resultado, mostre também as novas sub-redes.

Mãos a obra.

Antes porem, gostaria de agradecer sua leitura  e comentários e também informar que não irei apresentar toda a historia de como tudo começou, como também não irei ensinar como converter números de decimal para binário e vice-versa, entendo que o leitor já saiba como realizar essas operações, de qualquer modo, se tiver duvida, escreva-me e tentarei lhe ajudar.

Apesar de parecer fácil, não é nada fácil fazer esses cálculos, mas nada é difícil até que se torne fácil, e, como tudo nessa vida tem procedimentos, vamos aos passos para conseguir esses resultados.

Precisamos antes de tudo obter o máximo de informações;

Temos duas, a rede e o numero de sub-redes.

Rede: 118.0.0.0/8 (Classe A).

126 sub-redes (o que se pede)

Vamos a formula: 2^n>=r (lê-se: 2 elevado a n que seja maior ou igual a r, onde n é o numero de bits a ser emprestado para construir as redes e r é numero de redes pretendidas).

Temos a rede: 118.0.0.0/8

Vamos escrever a mascara:

255.0.0.0

Vamos transforma-la na base binário:

11111111.00000000.00000000.00000000

Qual numero é igual ou maior que 126?

7, pois 2^7= 128

Assim temos de emprestar 7 bits,

Lembrando que só podemos emprestar da esquerda para a direita, pois a regra diz que a sequencia binaria da mascara de rede, só pode conter 1s (números 1) e 0s (números 0). Não podemos inserir  1s, 0s e depois 1s, da mesma forma, não podemos inserir 0s e depois 1s, só é permitido inserir 1s seguido de 0s.

Continuando: temos a mascara escrita em binários e precisamos emprestar 7 bits:

11111111.00000000.00000000.00000000

11111111.11111110.00000000.00000000 (bits emprestados em vermelho).

A nova mascara fica assim:

255.254.0.0.

Agora prestem atenção, esse é o momento que mais dá confusão em nossa cabeça.

Veja a quantidade de 0s que sobraram, eles representam os endereços de IP validos para distribuir para as sub-redes. Podemos conta-los elevando a base 2 o numero da quantidade deles, sobram 17, fica assim:

2^17 = 131072 endereços validos. Ainda assim, não são endereços validos para todos os hosts, pois temos 2 endereços reservados nessa faixa que serão usados para identificar a rede e o broadcast.

Os números 1s em vermelho são as novas sub-redes criadas, quantas são? 2^7 = 128. Ou seja, precisamos de 126 sub-redes, conseguimos chegar num valor mais próximo que é 128.

A nossa nova mascara de rede é 255.254.0.0 ou /15, porque /15?, porque nossa mascara antes era /8, lembra? 118.0.0.0/8 (essa rede não existe mais), agora é 118.0.0.0/15, justamente porque emprestamos 7 bits, assim temos 7 + 8 = 15(soma –se o que emprestou com o prefixo da rede antiga).

Então temos a nova rede:

118.0.0.0/15

131072 endereços validos para cada uma das 128 sub-redes.

Cada sub-rede pode alocar até 131070 hosts, pois 2 endereços são reservados, ou seja, em cada sub-rede temos 131072 endereços IP's validos.

Assim a primeira sub-rede:

118.0.0.0/15 è 1ª rede

118.0.0.1/15 è 1º host

118.1.255.254/15 è Ultimo host da 1ª rede.

118.1.255.255/15 è endereço de broadcast

118.2.0.0/15 è 2ª rede

118. 2.0.1/15 è 1º host da 2ª rede.

118.3.0.254/15 è ultimo host da 2ª rede.

118.3.0.255/15 è endereço de broadcast da 2º rede.

Observem que a mascara nos conta tudo sobre a acomodação de hosts, veja:

Mascara:

255.254.0.0

Para saber melhor, basta calcular 256-254, temos 2, assim sendo as redes mudam de 2 em dois, como no exemplo acima.

Sobre os bits emprestados, nessa questão emprestamos 7, e obtivemos como resultado final, uma rede /15 e 131070 hosts por rede, é diferente se emprestarmos 7 bits em uma rede Classe B, obteremos uma rede /23 e 510 hosts, já Classe C, podemos emprestar no máximo 6 bits, pois teremos uma rede /30 com 2 hosts apenas.

Veja essa tabela que consegui no site http://www.abusar.org.br/subredes.html.

Tabela 1. Subdivisões de uma identificação de rede classe A.
Número de sub-redes	Número de  bits para sub-rede	Máscara de sub-rede	Número de hosts por sub-rede
1-2	1	255.128.0.0 ou /9	8,388,606
3-4	2	255.192.0.0 ou /10	4,194,302
5-8	3	255.224.0.0 ou /11	2,097,150
9-16	4	255.240.0.0 ou /12	1,048,574
17-32	5	255.248.0.0 ou /13	524,286
33-64	6	255.252.0.0 ou /14	262,142
65-128	7	255.254.0.0 ou /15	131,070
129-256	8	255.255.0.0 ou /16	65,534
257-512	9	255.255.128.0 ou /17	32,766
513-1,024	10	255.255.192.0 ou /18	16,382
1,025-2,048	11	255.255.224.0 ou /19	8,190
2,049-4,096	12	255.255.240.0 ou /20	4,094
4,097-8,192	13	255.255.248.0 ou /21	2,046
8,193-16,384	14	255.255.252.0 ou /22	1,022
16,385-32,768	15	255.255.254.0 ou /23	510
32,769-65,536	16	255.255.255.0 ou /24	254
65,537-131,072	17	255.255.255.128 ou /25	126
131,073-262,144	18	255.255.255.192 ou /26	62
262,145-524,288	19	255.255.255.224 ou /27	30
524,289-1,048,576	20	255.255.255.240 ou /28	14
1,048,577-2,097,152	21	255.255.255.248 ou /29	6
2,097,153-4,194,304	22	255.255.255.252 ou /30	2

A tabela 2 mostra as subdivisões possíveis para uma identificação de rede classe B.

Tabela 2. Subdivisões de uma identificação de rede classe B.
Número de sub-redes	Número de bits para sub-rede	Máscara de sub-rede	Número de hosts por sub-rede
1-2	1	255.255.128.0 ou /17	132,766
3-4	2	255.255.192.0 ou /18	16,382
5-8	3	255.255.224.0 ou /19	8,190
9-16	4	255.255.240.0 ou /20	4,094
17-32	5	255.255.248.0 ou /21	2,046
33-64	6	255.255.252.0 ou /22	1,022
65-128	7	255.255.254.0 ou /23	510
129-256	8	255.255.255.0 ou /24	254
257-512	9	255.255.255.128 ou /25	126
513-1,024	10	255.255.255.192 ou /26	62
1,025-2,048	11	255.255.255.224 ou /27	30
2,049-4,096	12	255.255.255.240 ou /28	14
4,097-8,192	13	255.255.255.248 ou /29	6
8,193-16,384	14	255.255.255.252 ou /30	2

A tabela 3 mostra as subdivisões possíveis para uma identificação de rede classe C.

Tabela 3. Subdivisões de uma identificação de rede classe C.
Número de sub-redes	Número de bits para sub-rede	Máscara de sub-rede	Número de hosts por sub-rede
1-2	1	255.255.255.128 ou /25	126
3-4	2	255.255.255.192 ou /26	62
5-8	3	255.255.255.224 ou /27	30
9-16	4	255.255.255.240 ou /28	14
17-32	5	255.255.255.248 ou /29	6
33-64	6	255.255.255.252 ou /30	2

É preciso ter em mente alguns itens, tal como temos o numero pi, a formula para calcular a tangente, etc.. uma rede /24 acomoda 254 hosts, uma rede /23, 510 e assim vai.

Bom, agradeço mais uma vez a leitura e até a próxima.