Posts filed under ‘Pascal’

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.

22, abril 2007 at 9:47 pm 16 comentários

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.

22, abril 2007 at 7:47 pm 5 comentários

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.

20, abril 2007 at 11:32 pm 3 comentários

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
Blog Cha Verde

22, fevereiro 2007 at 5:07 pm 3 comentários

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:
Blog Cha Verde

22, fevereiro 2007 at 4:57 pm 4 comentários

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:
Blog Cha Verde

22, fevereiro 2007 at 4:52 pm 3 comentários

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:
Blog Cha Verde

22, fevereiro 2007 at 4:49 pm 6 comentários

Posts antigos


Agenda

agosto 2017
S T Q Q S S D
« out    
 123456
78910111213
14151617181920
21222324252627
28293031  

Posts by Month

Posts by Category