Pular para o conteúdo principal

Digita um numero na Base10 e mostra na Base2 - (Converte Decimal em Binário)

{Elabore um algoritmo que o usuario forneça um número inteiro (que é decimal),
calcule e mostre este numero em binario.}
Program Pzim ;
var
binario:array[1..15]of integer;
i,j,num,y:integer;
 Begin
     writeln('Digite um número : ');           {solicita que seja digitado um numero}
     read(y);                                  {armazena o numero na variavel y}
     num:=y;                                   {armazena a var Y na var NUM}
     for i:=1 to 15 do
         begin                                 {atribui zeros no vetor binario}
             binario[i]:=0;
         end;
     for j:=15 downto 1 do           {faz do ultimo, 8 até o primeiro, armazena os ddos no vetor binario
                                     de forma inversa, devido a forma de converter decimal em binario}
         begin
                      binario[j]:=(y mod 2); {o vetor binario recebe o valor do resto da var y (mode 2), e coloca na ultima posição}
                     y:= (y div 2);                   {a var y recebe o valor do quociente e repete o processo anterior }
                                                {até terminar o processo de divisão, qdo o quociente de y for indivisivel por 2(parte inteira)}
         end;
             writeln('O numero  ',num, ', base 10');     {exibe mensagem}
            writeln('tem como correspondente');
      for i:=1 to 15 do
          begin
              write(binario[i],' ');                    {mostra o vetor binario e seus valores de 0 e 1}
          end;
              write(', na base 2');                       {exibe mensagem}
 End.

Postagens mais visitadas deste blog

Soma da sequencia (n * n) + 1

Program Pzim ; Var x,num,soma,soma2:integer; Begin     Writeln('Digite um numero maior que ZERO :');              //solicita que seja digitado um numero     Read(Num); // lê o número     If num<=0 then //se o número for invalido recusa     Write ('Número digitado invalido, digite um mumero maior que zero') // exibe a mensagem     else                                    For x:=1 to num do                         //faz de 1 até o numero         Begin            ...
Leia mais

SIMULADOR DE LOTERIA

{Escrever um programa que simule um jogo da loto. O computador deve gerar 5 números aleatórios entre 50 possíveis (0 a 49), armazenando-os em um vetor (dez_sort) de 5 posições. Em seguida, o usuário deverá ler um vetor (aposta)com 10 posições (que representa uma aposta). O programa deve, então, verificar e imprimir uma mensagem mostrando quantos números o usuário acertou. De acordo com o exemplo abaixo o usuário acertou 4 dezenas. } Program Exer_99 ; var dez_sort :array[1..5]of integer;    //vetor para receber as dezenas geradas aleatoriamente aposta :array[1..10]of integer; //vetor para receber as dezenas apostadas a, acerto,posi,i,j:integer; Begin acerto:=0; for j:= 1 to 5 do      // for para gerar as cinco dezenas aleatórias begin a:=(random(50))-1;     //o -1 é para gera de 0 a 49 dez_sort[j]:=a;        //o vetor recebe na posição j de 1 ate 5, as 5 dezenas geradas writeln(dez_sort[j]);  // m...
Leia mais

Exercicio 2 com matriz

Program Pzim ; {2. Faça um algoritmo em que o usuario informe os valores para uma matriz 4x4  e em seguida efetive a soma dos valores que estão abaixo da diagonal secundária. O algoritmo deve mostrar os valores que estão abaixo da diagonal secundária e sua soma. Ex.: 1-5-2-2 7-5-3-2 8-4-6-1 5-4-3-1 Valores a serem usados, mostrados e somados: - - - - - - -2 - -6-1 -4-3-1 } var m:array[1..4,1..4] of integer; i,j, soma:integer;  Begin  for i:=1 to 4 do   begin   for j:=1 to 4 do   begin writeln('Digite a matriz : ');          //recebe os elementos da matriz readln(m[i,j]);   end;   end; for i:=1 to 4 do   begin   for j:=1 to 4 do   begin   if ((i+j)>= 6) then                 // se i+j >= 6, = condição para o elemento pertencer   begin               ...
Leia mais