Exemplos de código pascal

Programa Troco da Compra

Program trocoCompra;
{Programa para retorno da quantidade exata de troco, com o uso do menor número de notas e moedas) ***Em Reais***.}
CONST
cemMil = 100000;
cincoMil = 5000;
doisMil = 2000;
mil = 1000;
quinhentos = 500;
duzentos = 200;
cem = 100;
cinquenta = 50;
vinteECinco = 25;
dez = 10;
cinco = 5;
hum = 1;
var a,b,c,d,e,humReal,f,g,cinquentaCentavos,h,vinteECincoCentavos,j,dezCentavos,m,cincoCentavos,o,humCentavo,totalCompra,
pagamento,troco,cemReais,cinquentaReais,vinteReais,dezReais,cincoReais,doisReais,somaValores:INTEGER;
Begin
        writeln ('Qual o valor da compra? (Para 2,50, digite 250.)');
        readln (totalCompra);
        writeln ('Qual o valor dado pelo cliente? (Para 2,50, digite 250.)');
        readln (pagamento);
        troco  :=  (pagamento - totalCompra);
        {calcula as notas de 100 reais}
        cemReais :=  troco div cemMil;
        a  :=  troco mod cemMil;
        {calcula as notas de 50 reais}
        cinquentaReais :=  a div cincoMil;
        b  :=  a mod cincoMil;
        {calcula as notas de 20 reais}
        vinteReais :=  b div doisMil;
        c  :=  b mod doisMil;
        {calcula as notas de 10 reais}
        dezReais :=  c div mil;
        d  :=  c mod mil;
        {calcula as notas de 5 reais}
        cincoReais :=  d div quinhentos;
        e  :=  d mod quinhentos;
        {calcula as notas de 2 reais}
        doisReais :=  e div duzentos;
        f  :=  e mod duzentos;
        {calcula as moedas de 1 real}
        humReal :=  f div cem;
        g  :=  f mod cem;
        {calcula as moedas de 50 centavos}
        cinquentaCentavos :=  g div cinquenta;
        h  :=  g mod cinquenta;
        {calcula as moedas de 25 centavos}
        vinteECincoCentavos := h div vinteECinco;
        j := h mod vinteECinco;
        {calcula as moedas de 10 centavos}
        dezCentavos := j div dez;
        m := j mod dez;
        {calcula as moedas de 5 centavos}
        cincoCentavos := m div cinco;
        o := m mod cinco;
        {calcula as moedas de 1 centavo}
        humCentavo := o div hum;
        somaValores := (humReal + (doisReais*2) + (cincoReais*5) + (dezReais*10) + (vinteReais*20) + (cinquentaReais*50) + (cemReais*100));
                if (troco <= 1000) then 
                        begin
                                if (somaValores = 0) then
                                        writeln ('O troco a ser dado ao cliente eh: ',g,' Centavos.')
                                else if (somaValores = 1) then
                                        writeln ('O troco a ser dado ao cliente eh: ',somaValores,' Real e ',g,' Centavos.')
                                else
                                        writeln ('O troco a ser dado ao cliente eh: ',somaValores,' Reais e ',g,' Centavos.');
                        end;
                if (troco > 1000) then
                                        writeln ('O troco a ser dado ao cliente eh: ',somaValores,' Reais e ',g,' Centavos.');
        writeln ('Notas de 100 reais: ',cemReais);
        writeln ('Notas de 50 reais: ',cinquentaReais);
        writeln ('Notas de 20 reais: ',vinteReais);
        writeln ('Notas de 10 reais: ',dezReais);
        writeln ('Notas de 5 reais: ',cincoReais);
        writeln ('Notas de 2 reais: ',doisReais);
        writeln ('Moedas de 1 real: ',humReal);
        writeln ('Moedas de 50 centavos: ',cinquentaCentavos:0);
        writeln ('Moedas de 25 centavos: ',vinteECincoCentavos:0);
        writeln ('Moedas de 10 centavos: ',dezCentavos:0);
        writeln ('Moedas de 5 centavos: ',cincoCentavos:0);
        writeln ('Moedas de 1 centavo: ',humCentavo:0);
End.

Programa para Escrever na tela

program EscreverNaTela;
begin
   writeln('Isso será escrito na tela');
end.

Números Perfeitos

program numerosPerfeitos;
 
uses crt;
 
var
  ate, x, soma, i: integer;
 
begin
  clrscr;
  x := 0;
  writeln('Numeros perfeitos abaixo de');
  Readln(ate);
  repeat
    x := x + 1;
    soma := 0;
    for i := 1 to x - 1 do
    begin
      if x mod i = 0 then
        soma := soma + i;
    end;
    if soma = x then
    begin
      writeln(x);
    end;
  until (x > ate);
  writeln('Pressione qualquer tecla para finalizar…');
  readkey;
 
end.

Programa de qualidades pessoais

program name;
 uses
   crt; { biblioteca do Pascal }
 var
   n1,n2,q1,q2:string; { variáveis criadas pelo usuário do tipo string }
 begin
   { Limpa a tela }
   clrscr;
   writeln('Digite o primeiro nome:');
   readln(n1);
   writeln('Digite o segundo nome:');
   readln(n2);
   writeln('Digite uma qualidade para o primeiro nome:');
   readln(q1);
   writeln('Digite uma qualidade para o segundo nome:');
   readln(q2);
   writeln('O 1º nome e a 1ª qualidade são: ',n1,' ',q1);
   writeln('O 2º nome e a 2ª qualidade são: ',n2,' ',q2);
   { Aguarda até uma tecla ser pressionada }
   readkey;
 end.

Conversão monetária para troco

Ex.:6,80 euros é igual a 680 cêntimos, o programa deverá devolver essa quantia em moedas de 1 euro, 50 cêntimos, 20 cêntimos e 10 cêntimos.

Program trocos;
const
 z=100;
 x=50;
 y=20;
 w=10;
 k=5;
 s=2;
 r=1;
 var a,b,c,d,e,f,g,h,i,j,l,m,n,o,p,q,aa,bb,t:integer;
  begin
   writeln('Introduza uma quantia de dinheiro');
    readln(t);
    {calcula a moeda de 1 euro}
    e:=t div z;
    f:=t mod z;
    {calcula a moeda de 50 cêntimos}
    g:=f div x;
    h:=f mod x;
    {calcula as moedas de 20 cêntimos}
    i:=h div y;
    j:=h mod y;
    {calcula as moedas de 10 cêntimos}
    l:=j div w;
    m:=j mod w;
    n:=m div k;
    o:=m mod k;
    p:=o div s;
    q:=o mod s;
    aa:=q div r;
    bb:=q mod r;
   writeln('A quantidade de moedas usadas de 1 euro sao:',e:0);
   writeln('A quantidade de moedas usadas de 50 cêntimos sao:',g:0);
   writeln('A quantidade de moedas usadas de 20 cêntimos sao:',i:0);
   writeln('A quantidade de moedas usadas de 10 cêntimos sao:',l:0);
   writeln('A quantidade de moedas usadas de 5 cêntimos sao:',n:0);
   writeln('A quantidade de moedas usadas de 2 cêntimos sao:',p:0);
   writeln('A quantidade de moedas usadas de 1 cêntimos sao:',aa:0);
  readln;
 end.

Programa de Cinco

Program Cinco_Numeros;
 Uses
   WINCRT;
 Var
   Numbers1, Numbers2, Numbers3,
   Numbers4, Numbers5, Sum : Integer;
 Begin
   ClrScr;
   WriteLn('Entre com os cinco números: ');
   ReadLn(Numbers1, Numbers2, Numbers3, Numbers4, Numbers5);
   Sum := Numbers1 + Numbers2 + Numbers3 +
   Numbers4 + Numbers5;
   WriteLn('A soma dos números é: ',Sum);
   WriteLn('Pressione ENTER …');
   Readkey;
 End.

Repetição

Soma dos números pares.

program Soma_Pares;
 uses crt;
 var
    superior, soma, num: integer;
 begin
    soma:=0;
    write ('Entre com o limite superior');
    readln (superior);
    num:=2;
 
    repeat
      soma:=soma+num;
      num:=num+2;
    until (num > superior);
 
    writeln('A soma dos números pares de 2 até ', superior,' é ', soma);
    readln;
 end.

Números Pares entre dois valores inteiros

program pares;
 
var
  x, y: integer;
 
begin
  writeln('Digite os dois valores');
  readln(x, y);
  if (x mod 2) <> 0 then
    x := x + 1;
  while x <= y do
  begin
    writeln(x, ' - ');
    x := x + 2;
  end;
  writeln('Fim da Lista');
 
end.

Teste Lógico

program Teste;
 
var
  a, b: integer;
 
uses
  crt;
 
begin
  clrscr;
  writeln('Digite um número para A');
  readln(a);
  writeln('Digite o número para B');
  readln(b);
 
  if (a > b) then { Se A é maior que B então }
    writeln('A é maior que B')
    else { Senão… }
  if (a < b) then
    writeln('B é maior que A')
    else
    writeln('B é igual à A');
  readkey;
 
end.

Codigos retirados de um apostila de curso pascal