Pascal – O básico – Desafio Fibonacci

Segue desafio da seqüência de Fibonacci. Se alguém tem um algoritmo mais eficaz, mandem aí! Gostaria de comparar com outras resoluções.

Program DesafioFibonacci;
Uses  

    crt;  

Var  

   x, y, z : integer;  

Begin  

     ClrScr;  

     WriteLn('Sequencia de Fibonacci menor que 50');  

     x:=0;  

     y:=1;  

     z:=1;  

     repeat  

       Write(x,' ');  

       x:=y;  

       y:=z;  

       z:=x+y;  

     until x>50;  

     ReadKey;  

End.

Abraços galera.

Pascal – O básico – Mais biblioteca DOS

Seguindo mais um exercício com funções da biblioteca DOS. Desta vez, além de motrar a hora do sistema, também apresentaremos data completa.

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

Program BibliotecaDos2;

Uses  

    crt, dos;  

Var  

   ano, mes, dia, diaDaSemana, horas, minutos, segundos, centesimos : word;  

Begin  

     ClrScr;  

     TextBackground(Blue);  

     TextColor(Black);  

     GetDate(ano,mes,dia,diaDaSemana);  

     Write('Hoje e: ');  

     Case diaDaSemana of  

          0: Write('Domingo, ');  

          1: Write('Segunda, ');  

          2: Write('Ter‡a, ');  

          3: Write('Quarta, ');  

          4: Write('Quinta, ');  

          5: Write('Sexta, ');  

          6: Write('Sabado, ');  

     End;  

     Write(dia);  

     Case mes of  

          1: Write(' de Janeiro de ');  

          2: Write(' de Fevereiro de ');  

          3: Write(' de Mar‡o de ');  

          4: Write(' de Abril de ');  

          5: Write(' de Maio de ');  

          6: Write(' de Junho de ');  

          7: Write(' de Julho de ');  

          8: Write(' de Agosto de ');  

          9: Write(' de Setembro de ');  

          10: Write(' de Outubro de ');  

          11: Write(' de Novembro de ');  

          12: Write(' de Dezembro de ');  

     End;  

     WriteLn(ano);  

     GetTime(horas,minutos,segundos,centesimos);  

     Write('Sao ',horas,' horas, ',minutos,' minutos, ',segundos,' segundos e ',centesimos,' centesimos.');  

     ReadKey;  

End.

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

Bom estudos galera! Estou aberto a melhores resoluções e novos exercícios!

Até mais.

Pascal – O básico – Biblioteca DOS

Depois de muuuuuuuito tempo, voltei a falar pascalês, javanês, hmtlês, entre outras linguagens do mundo virtual (0110100110110).

Estava com saudades de programar e revi todos os meus posts sobre Pascal e decidi estudar mais sobre a linguagem.

Falamos muito sobre a biblioteca CRT. Todos nossos exemplos até o momento, trabalhava apenas com essa biblioteca de funções e procedures.

Com biblioteca nova no pedaço, vamos conferir a novidade, e como sempre estudando exercícios simples.

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

Program BibliotecaDos;

Uses
  crt, dos;
Var
  hora, minuto, segundos, centesimos : word; 

Begin
  ClrScr;
  GetTime(hora,minuto,segundos,centesimos);
  WriteLn('Sao: ',hora,'h',minuto,'min',segundos,'s',centesimos);
  Readkey;
End.

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

Esse foi um exmplo apenas para mostrar o horário extraído do seu sistema operacional.

Em breve mais exemplos com novas functions e procedures da biblioteca DOS.

Até mais.

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: