Sources [Pascal] – RodrigoAC

Três número (ordem crescente)

25 de setembro de 2011 nenhum

<span style="color: #ff0000;">Dados três números, imprimi-los em ordem crescente. </span>

1	<span style="color: #ff0000;">Dados três números, imprimi-los em ordem crescente. </span>

program OrdemCrescente;
var
  n1, n2, n3: integer;
begin
  write ('Entre com tres numeros: ');
  read (n1,n2,n3);
  if n3&gt;n1 then
          begin
           if n1&gt;n2 then write ('A ordem crescente: ',n2,' ',n1,' ',n3)
                  else if n2&lt;n3 then write('A ordem crescente: ',n1,' ',n2,' ',n3);
          end;
  if n1&gt;n2 then
          begin
           if n2&gt;n3 then write ('A ordem crescente: ',n3,' ',n2,' ',n1)
                  else if n3&lt;n1 then write('A ordem crescente: ',n2,' ',n3,' ',n1);
          end;
  if n1&lt;n2 then
          begin
           if n3&lt;n1 then write ('A ordem crescente: ',n3,' ',n1,' ',n2)
                  else if n3&lt;n2 then write('A ordem crescente: ',n1,' ',n3,' ',n2);
          end;
end.

program OrdemCrescente;

var

n1, n2, n3: integer;

begin

write ('Entre com tres numeros: ');

read (n1,n2,n3);

if n3>n1 then

begin

if n1>n2 then write ('A ordem crescente: ',n2,' ',n1,' ',n3)

else if n2<n3 then write('A ordem crescente: ',n1,' ',n2,' ',n3);

end;

if n1>n2 then

begin

if n2>n3 then write ('A ordem crescente: ',n3,' ',n2,' ',n1)

else if n3<n1 then write('A ordem crescente: ',n2,' ',n3,' ',n1);

end;

if n1<n2 then

begin

if n3<n1 then write ('A ordem crescente: ',n3,' ',n1,' ',n2)

else if n3<n2 then write('A ordem crescente: ',n1,' ',n3,' ',n2);

end;

end.

Número Palíndrome

25 de setembro de 201118 de novembro de 2012 nenhum

Dizemos que um número natural n é palíndromo  se
    o 1º algarismo de n é igual ao seu último algarismo,
    o 2º algarismo de n é igual ao penúltimo algarismo,
    e assim sucessivamente.

Exemplos:

567765 e 32423 são palíndromos.

567675 não é palíndromo.

Dado um número natural n > 10 , verificar se n é palíndrome.

program polindrome;

var num, aux, reverso : longInt;

begin
 readLn(num);
 aux:=num;
 reverso:=0;
  while aux<>0 do
   begin;
    reverso:=reverso*10+(aux mod 10);
    aux:=aux div 10
   end;
  if reverso=num
   then
    writeLn('o # é palindromo')
   else
    writeLn('o # não é palindromo')
end.

program polindrome;

var num, aux, reverso : longInt;

begin

readLn(num);

aux:=num;

reverso:=0;

while aux<>0 do

begin;

reverso:=reverso*10+(aux mod 10);

aux:=aux div 10

end;

if reverso=num

then

writeLn('o # é palindromo')

else

writeLn('o # não é palindromo')

end.

Decimal -> Binário

25 de setembro de 2011 nenhum

Dado um número natural na base decimal, transformá-lo para a base binária.

Exemplo: Dado 18 a saída deverá ser 10010.

program BaseBinaria;
var
  n,   {numero na base decimal}
  Bin, {numero transformado para base 2}
  q,   {dividendo}
  d,   {divisor}
  r,   {resto}
  Pot: integer;
begin
  write ('Digite um numero natural: ');
  read (n);
  q := n;
  Bin := 0;
  Pot := 1;
  while q&gt;0 do begin
                 d := q div 2;
                 r := q mod 2;
                 q := d;
                 Bin := Bin+(r*Pot);
                 Pot := Pot*10;
               end;
  writeln ('O numero ',n,' escrito na base binaria: ',Bin);
end.

program BaseBinaria;

var

n, {numero na base decimal}

Bin, {numero transformado para base 2}

q, {dividendo}

d, {divisor}

r, {resto}

Pot: integer;

begin

write ('Digite um numero natural: ');

read (n);

q := n;

Bin := 0;

Pot := 1;

while q>0 do begin

d := q div 2;

r := q mod 2;

q := d;

Bin := Bin+(r*Pot);

Pot := Pot*10;

end;

writeln ('O numero ',n,' escrito na base binaria: ',Bin);

end.

Binário -> Decimal

25 de setembro de 201113 de julho de 2013 nenhum

Dado um número natural na base binária, transformá-lo para a base decimal.
Exemplo:
Dado 10010 a saída será 18, pois 1. 2 4 + 0. 2 3 + 0. 2 2 + 1. 2 1 + 0. 2 0 = 18.
[PASCAL]program bintodec;

var num, pot2, final : Integer;

begin
readLn(Num);
final:=0;
pot2:=1;
while num<>0 do
begin
final:=(num mod 10)* pot2 +final;
num:=num div 10;
pot2:=pot2*2
end;
write(Final)
end.[/PASCAL]

M.D.C (Euclides)

25 de setembro de 2011 nenhum

Dados dois números inteiros positivos, determinar o máximo divisor comum entre eles usando o algoritmo de Euclides.

Exemplo:

Delphi/Pascal

program AlgoritmoDeMDC; var a,b,r: integer; begin readLn(a, b); write('MDC_(', a, ',', b, ')=_'); repeat r:=a mob b; a:=b; b:=r until r=0; writeLn(a) end.

1
2
3
4
5
6
7
8
9
10
11
12
13

program AlgoritmoDeMDC;
var a,b,r: integer;

begin
readLn(a, b);
write('MDC_(', a, ',', b, ')=_');
repeat
  r:=a mob b;
  a:=b;
  b:=r
until r=0;
writeLn(a)
end.