Muito obrigado por sua visita!

Queria agradecer muito a visitas dos leitores ao meu blog. Dia 24/02 atingi 219 visitas, um recorde até então. Percebi muito interesse sobre as matérias de desenvolvimento de sistemas, tais posts que também enriqueceram muito minha experiência por opiniões trocadas e novos contatos.

Espero continuar crescendo as visitas em meu blog. O retorno é imenso, não são apenas números.

Abraços, e muito obrigado novamente.

Um pouco mais sobre a Paggo

Atendendo ao pedido de Viviane em um post sobre o serviço da Oi Paggo, irei falar mais um pouco sobre a empresa que fechou parceria com a Oi e vem surpreendendo com este serviço que esbanja mobilidade, modernidade, flexibilidade, agilidade e muitas outras qualidades ao cliente. Não são só os clientes finais, os usuários como nós que enchem a boca ao falar da prestadora de serviço Oi Paggo, os estabelecimentos também se beficiaram muito através da inovação.

A Paggo é uma empresa pioneira no mercado de sistemas de crédito onde as transações são efetuadas via celular. Não se preocupe com troco e comece a abandonar o seu cartão de crédito, agora suas contas serão é possível fazer pagamentos com seu celular e de onde estiver.

O sistema da Paggo é bem seguro devido suas regras de validações de compra e venda. A transação é confirmada mediante a senha do cliente. Um serviços super ágil, como havia dito acima, não importa o lugar em que você esteja, se o estabelecimento estiver cadastrado no sistema de crédito da Paggo, seu chip Oi Paggo irá receber mensagens SMS no seu celular e o pagamento será dividos em etapas simples.

Além de tudo isso o serviço da Paggo é de baixo custo, pois este serviço nem cobra anuidade e as mensagens SMS são baratas, e a única taxa mensal cobrada custa R$2,50.

Hoje no Brasil, a única operadora fazendo parceria com a Paggo é a Oi. Acredito que a Oi esteja fazendo um ótimo serviço inovando o mercado de telefonia celular, mas eu e muitas pessoas não temos cobertura de sinal. Moro em Santos, São Paulo. Não temos nem sinal da Oi aqui pela cidade e muito menos da Paggo, mas mesmo assim estou por dentro da tecnologia e me sinto muito interessado pelo serviço.

Para mim isso sim é invovação tecnológica, as soluções estão realmente acontecendo.

Viviane, espero ter ajudado um pouco mais a solucionar a sua dúvida, entre no site da Oi Paggo e procure saber sobre os estabelecimentos que suportam a tecnologia e as cidades que tem cobertura de sinal.

Abraços

Pascal – o básico! – RESUMO

Este é um resumo de todos os exercício estudados até o momento!

Funções simples aritméticas:

Pascal – o básico!
Pascal – o básico – Parte 2
Pascal – o básico – Parte 3
Pascal – o básico – Parte 4
Pascal – o básico – Parte 5
Pascal – o básico – Parte 6
Pascal – o básico – Parte 7
Pascal – o básico – Parte 8
Pascal – o básico – Parte 9
Pascal – o básico – Parte 10
Pascal – o básico – Parte 11
Pascal – o básico – Parte 12
Pascal – o básico – Parte 13
Pascal – o básico – Parte 14
Pascal – o básico – Parte 15
Pascal – o básico – Parte 16
Pascal – o básico – Parte 17
Pascal – o básico – Parte 18

Visite o Blog ChaVerde de André Burgos, com uma dose extra de cafeína! hahaha

Pascal – o básico! – Parte 18

No último exercício da saga funções aritméticas simples da lista do berga, vamos calcular um sistema de compra. Serão digitados valores de 5 compras e vamos imprimir na tela o total a pagar. Após a impressão entraremos com o valor em dinheiro para pagar a conta. No final será impresso o troco do cliente. Neste exemplo ainda não iremos tratar o caso do cliente entrar com um valor abaixo do total a pagar, o que aconteceria um erro. Mais a frente trataremos esses tipos de erros com exercícios mais completos com outros recursos.

==========código fonte==========

Program Ex18;

Uses
Crt;
Var
compra1,compra2,compra3,compra4,compra5,totalAPagar,pagamento,troco : Real;

Begin
ClrScr;
Write(‘Digite o valor da compra 1:’);
ReadLn(compra1);
Write(‘Digite o valor da compra 2:’);
ReadLn(compra2);
Write(‘Digite o valor da compra 3:’);
ReadLn(compra3);
Write(‘Digite o valor da compra 4:’);
ReadLn(compra4);
Write(‘Digite o valor da compra 5:’);
ReadLn(compra5);
totalAPagar:=compra1+compra2+compra3+compra4+compra5;
WriteLn(‘Total a pagar: R$’,totalAPagar:4:2);
Write(‘Digite o valor para efetuar o pagamento:’);
ReadLn(pagamento);
troco:=pagamento-totalAPagar;
WriteLn(‘Troco: R$’,troco:4:2);
ReadKey;
End.

==========código fonte==========

Visite o Blog ChaVerde de André Burgos:

Pascal – o básico! – Parte 17

Exercício 17) vamos entrar com valor x e y. Calcular e exibir x elevado a y.

==========código fonte==========

Program Ex17;

Uses
Crt;
Var
x,y,xElevadoAY : Real;
Begin
ClrScr;
Write(‘Digite o valor de x:’);
ReadLn(x);
Write(‘Digite o valor de y:’);
ReadLn(y);
xElevadoAY:=Exp(y*Ln(x));
WriteLn(‘Resultado da exponenciacao:’,xElevadoAY:4:1);
ReadKey;
End.

==========código fonte==========

Visite o Blog ChaVerde de André Burgos:

Pascal – o básico! – Parte 16

Agora lembrando minhas antigas aulas de desenho geométrico e matemática, vamos calcular em radianos o valor do seno, cosseno, tangente e secante de um ângulo x. Ângulo x será digitado em graus pelo usuário. Não é necessário nenhuma transformação para radianos no Pascal, as próprias funções matemáticas já fazem essa conversão.===========código fonte===========

Program Ex16;

Uses
Crt;
Var
seno,cosseno,tangente,secante,x : Real;

Begin
Write(‘Digite o valor do angulo em graus:’);
ReadLn(x);
seno:=sin(x);
cosseno:=cos(x);
tangente:=sin(x)/cos(x);
secante:=1/cos(x);
WriteLn(‘Seno do angulo ‘,x:4:0,’:',seno:4:1);
WriteLn(‘Cosseno do angulo ‘,x:4:0,’:',cosseno:4:1);
WriteLn(‘Tangente do angulo ‘,x:4:0,’:',tangente:4:1);
WriteLn(‘Secante do angulo ‘,x:4:0,’:',secante:4:1);
ReadKey;
End.===========código fonte===========
Leia também:

Pascal – o básico! – Parte 15

Exercício simples de conversão de moeda. Apenas converter de dólar para real e exibir para o usuário a resposta final.

Programando essa simples função:

===========código fonte===========

Program Ex15;

Uses
Crt;
Var
converteMoeda,dolar : Real;

Begin
ClrScr;
Write(‘Qual o valor em dolar a converter para reais:’);
ReadLn(dolar);
converteMoeda:=dolar*2.0930;
WriteLn(‘valor em reais: R$’,converteMoeda:5:2);
ReadKey;
End.

===========código fonte===========
Leia também:

Pascal – o básico! – Parte 14

Este exercício deu trabalho, foi difícil a interpretação. Calcular e exibir o volume livre que contém uma esfera de raio digitado pelo usuário inscrita em um cubo perfeito de aresta também digitada pelo usuário.

Demorei para entender que era para subtrair o volume do cubo pelo da esfera.

=============código fonte=============

Program Ex14;

Uses
Crt;
Var
aresta,raio,volumeLivre : Real;

Begin
ClrScr;
Write(‘Digite o valor da aresta:’);
ReadLn(aresta);
Write(‘Digite o valor do raio:’);
ReadLn(raio);
volumeLivre:=Sqr(aresta)*aresta-4/3*PI*Sqr(raio)*raio;
WriteLn(‘O volume livre e: ‘,volumeLivre:3:1);
ReadKey;
End.

=============código fonte=============

Leia também:

Pascal – o básico! – Parte 13

Esse foi um dos meus exercícios favoritos. Calcular e exibir a velocidade final em km/h, o usuário entrará com o valor da velocidade inicial em m/s, a aceleração em m/s² e o tempo do percurso em segundos.

A fórmula fica muito extensa mas vamos tomar cuidado na leitura do código:

===========código fonte===========

Program Ex13;

Uses
Crt;
Var
velocidadeFinal,valocidadeInicial,aceleracao,tempoPercurso,converte : Real;

Begin
ClrScr;
Write(‘Digite o valor da velocidade inicial em m/s:’);
ReadLn(velocidadeInicial);
Write(‘Digite o valor da aceleracao em m/s²:’);
ReadLn(aceleracao);
Write(‘Digite o valor do tempo do percurso:’);
ReadLn(tempoPercurso);
velocidadeFinal:=tempoPercurso*aceleracao+velocidadeInicial;
converte:=velocidadeFinal*3,6;
WriteLn(‘A velocidade final e ‘,converte:3:1,’km/h’);
ReadKey;
End.

===========código fonte===========

Leia ChaVerde, notícias no ponto:

Pascal – o básico! – Parte 12

Estamos chegando ao fim da lista de exercícios da saga funções aritméticas.

Agora vamos calcular e exibir o volume de um cone a partir dos valores da altura e do raio da base que serão digitados pelo usuário.

Foi complicado encontrar a fórmula do volume do cone, mas passar para o Pascal foi mais simples, vamos ler o código e intrepretá-lo:

=============código fonte=============

Program Ex12;

Uses
Crt;
Var
raioBase,altura,volume : Real;

Begin
ClrScr;
Write(‘Digite o valor do raio da base:’);
ReadLn(raioBase);
Write(‘Digite o valor da altura do cone:’);
ReadLn(altura);
volume:=1/3*PI*Sqr(raioBase)*altura;
WriteLn(‘O volume desse cone e: ‘,volume:3:1);
ReadKey;
End.

=============código fonte=============

Vale a pena ler ChaVerde: