ronald1087xd

18 de maio de 2016

valeu man, ajudou e muito...coisa besta kkkkk

13 de maio de 2016

Olá, estou com uma duvida no netbeans, estou programando em Java e estou com uma duvida. Como eu faço para buscar um valor no vetor, sendo que eu ja armazenei os valores, segue o exemplo.

package calculadora_binaria;

import java.util.Scanner;

public class Calculadora_Binaria {
     public static void main(String args[]) {
        Scanner ler = new Scanner(System.in);

int tabBin[] = new int[16];  
        tabBin[0] = 0000;
        tabBin[1] = 0001;
        tabBin[2] = 0010;
        tabBin[3] = 0011;
        tabBin[4] = 0100;
        tabBin[5] = 0101;
        tabBin[6] = 0110;
        tabBin[7] = 0111;
        tabBin[8] = 1000;
        tabBin[9] = 1001;
        tabBin[10] = 1010;
        tabBin[11] = 1011;
        tabBin[12] = 1100;
        tabBin[13] = 1101;
        tabBin[14] = 1110;
        tabBin[15] = 1111;
System.out.println("Digite um número de '0 á 15' da Tabela!");

Eu quero digita por exemplo 3, aí ele vai lá no vetor [3] e mostra "0011", alguém poderia me ajudar??

29 de novembro de 2015

1. Escreva um programa em Pascal que leia as notas das três provas para todos os estudantes de uma disciplina.

2. Depois de ler as notas o programa deve imprimir a média da última prova.

3. Imprimir a média de cada aluno.

Estou com dificuldade em imprimir a media de cada aluno, alguém me ajuda??

Segue algoritmo abaixo:



Program Matriz;




var

nota:array[1..5,1..3] of real;

soma: real;

i,j:integer;



Begin

writeln('Programa que calcula as notas finais de uma turma! ');

writeln;



//Leitura das notas de cada aluno 

for i:= 1 to 5 do

begin

write('Digite as notas das três provas do aluno [',i,']: ');

readln(nota[i, 1], nota[i,2], nota[i,3]);

writeln;

end;



// Calcula a média da última prova 

soma:= 0.0;



for i:= 1 to 5 do

begin

soma:= soma + nota[i,3];

end;



writeln;

writeln('A média da terceira prova foi: ', soma/3:4:2);

writeln;

writeln;





End.

26 de novembro de 2015

Uma função chamada “soma” que usa dois números inteiros como parâmetros e retorna a soma de todos os números inteiros desde o primeiro parâmetro até o último parâmetro. Por exemplo, write(soma(3,6)) deve imprimir 18.

Program modulos;var inicio,fim,segundos: integer;function soma...beginend;beginwriteln('Esta parte do programa soma todos os números ');writeln('desde um número incial até um número final');writeln;write('Digite o número inicial: ');readln(inicio);write('Digite o número final: ');readln(fim); writeln;writeln('A soma desde ', inicio, ' até ',fim,' é ', soma(inicio,fim));writeln;end.

16 de novembro de 2015

Ficou pior q antes, compilar ae

//NOME DO PROGRAMAProgram Poltrona_teatro; //DECLARANDO VARIAVEISvarcliente:array [0..50] of string;i,numpolt:integer; Beginwriteln('*CADASTRE O NUMERO DA POLTRONA DE [1 á 50]*');writeln('*DIGITE "0 (Zero)" PARA FINALIZAR O PROGRAMA*');     for i:= 1 to 50 do    // PERMITE A ENTRADA DE ATE 50 DADOS  cliente[i]:= '';    // ASPAS SIMPLES INDICANDO CAMPO VAZIO  repeat    writeln;    writeln('CADASTRE O NUMERO DA POLTRONA');    write('Poltrona: ' );    readln(numpolt);   while ((numpolt < 0) or (numpolt > 50)) do  begin  writeln('Poltrona deve ser de 1 á 50');    writeln;    writeln('CADASTRE O NUMERO DA POLTRONA');    write('Poltrona: ' );    readln(numpolt);  end; if (cliente[i] = '') then //SE A POLTRONA ESTIVER VAZIA, CONFIRMA MOSTRANDO O CLIENTE E A CONFIRMAÇÃO DA RESERVA    beginwriteln;writeln;writeln('CADASTRE O NOME DO CLIENTE');    write('Cliente: ');      readln(cliente[i]);      writeln('Confirmado');      writeln;    end    else  begin      writeln('Poltrona não disponivel! '); //ALERTA PARA SABER SE A POLTRONA ESTA RESERVADA      writeln;      write('Poltrona<s> não disponiveis: ');      for i:= 1 to 50 doif (cliente[i] <> '') thenwrite(' ',numpolt);writeln;writeln;end;until i = 0; writeln('POLTRONA   NOME'); //BLOCO QUE MOSTRA AO USUARIO O QUE JA FOI RESERVADO PELO SISTEMA    for i:= 1 to 50 do    if (cliente[i] <> '') then            writeln('    ',numpolt,'       ',cliente[i]);End.

16 de novembro de 2015

e o " i "do vetor " cliente ", mudo tbem??

15 de novembro de 2015

Agr ele fica dizendo poltrona nao disponivel, sendo que eu nao digitei ele anteriormente



//NOME DO PROGRAMA


Program Poltrona_teatro;



//DECLARANDO VARIAVEIS

var

cliente:array [1..50] of string;

i,numpolt:integer;



Begin

writeln('CADASTRE O NUMERO DA POLTRONA DE [1 á 50]');

writeln('DIGITE "0 (Zero)" PARA FINALIZAR O PROGRAMA');

writeln;

writeln;

writeln;







  for i:= 1 to 50 do    // PERMITE A ENTRADA DE ATE 50 DADOS

  cliente[i]:= '';    // ASPAS SIMPLES INDICANDO CAMPO VAZIO





repeat

     writeln;

     writeln('CADASTRE O NUMERO DA POLTRONA');

     write('Poltrona: ' );

     readln(numpolt);  



  while ((numpolt < 0) or (numpolt > 50)) do

   begin

   writeln('Poltrona deve ser de 1 á 50');

     writeln;

     writeln('CADASTRE O NUMERO DA POLTRONA');

     write('Poltrona: ' );

     readln(numpolt);

   end;

   

if (cliente[i] = '') then //SE A POLTRONA ESTIVER VAZIA, CONFIRMA MOSTRANDO O CLIENTE E A CONFIRMAÇÃO DA RESERVA    

begin

writeln;

writeln;

writeln('CADASTRE O NOME DO CLIENTE');

     write('Cliente: ');

      readln(cliente[i]);

      writeln('Confirmado');

      writeln;

    end

    

else 



begin

      writeln('Poltrona não disponivel! '); //ALERTA PARA SABER SE A POLTRONA ESTA RESERVADA

      writeln;

      write('Poltrona<s> não disponiveis: ');

       for i:= 1 to 50 do

if (cliente[i] <> '') then

write(' ',numpolt);

writeln;

writeln;

end;

until numpolt = 0;

writeln('POLTRONA   NOME'); //BLOCO QUE MOSTRA AO USUARIO O QUE JA FOI RESERVADO PELO SISTEMA

     for i:= 1 to 50 do

     if (cliente[i] <> '') then      

       writeln('    ',numpolt,'       ',cliente[i]);

End.

15 de novembro de 2015

Fiz esse aqui, o único problema é ele exibir os dados coletados, como na imagem



//NOME DO PROGRAMA


Program Poltrona_teatro;



//DECLARANDO VARIAVEIS

var

cliente:array [1..50] of string;

i:integer;



Begin

writeln('DIGITE O NUMERO DA POLTRONA DE [1 á 50]');

writeln('DIGITE "0 (Zero)" PARA FINALIZAR O PROGRAMA');





  for i:= 1 to 50 do    // PERMITE A ENTRADA DE ATE 50 DADOS

  cliente[i]:= '';    // ASPAS SIMPLES INDICANDO CAMPO VAZIO





repeat

     writeln;

     write('Poltrona: ' );

     readln(i);





  while ((i < 0) or (i > 50)) do



begin

   writeln('Poltrona deve ser de 1 á 50');

     writeln;

     write('Poltrona: ' );

     readln(i);

   end;

   

  



    if (cliente[i] = '') then //SE A POLTRONA ESTIVER VAZIA, CONFIRMA MOSTRANDO O CLIENTE E A CONFIRMAÇÃO DA RESERVA    

begin

     write('Nome: ');

      readln(cliente[i]);

      writeln('Confirmado');

      writeln;

    end

    

     else

begin

      writeln('Poltrona não disponivel! '); //ALERTA PARA SABER SE A POLTRONA ESTA RESERVADA

      writeln;

      write('Poltrona<s> não disponiveis ');

       

     for i:= 1 to 50 do

if (cliente[i] <> '') then

write(' ',i);

writeln;

writeln;

    end; 

until i = 0;



if (i = 0) then     // BLOCO QUE MOSTRA AO USUARIO O QUE JA FOI RESERVADO PELO SISTEMA

    begin

     writeln('POLTRONA   NOME');

     for i:= 1 to 50 do

     if (cliente[i] <> '') then      

       writeln('       ',i,'    ',cliente[i]);

   end;


End.

15 de novembro de 2015

Olá.

Mudou o quê e onde?

Mas vamos lá:

Você continua usando o begin/end no repeat. Mas isso não impacta no funcionamento do código, é apenas desnecessário (eu considero um erro).

Usando:

...esse begin logo após o repeat é desnecessário!!! (assim como seu respectivo end lá antes do until)

***

Você continua usando uma variável para ambos.

***

Você continua usando 51 posições, em vez de 50.

***

Usando PascalZIm! Ok!

Obs.: Testei o seu código lá do primeiro post, e ficou bagunçado da mesma forma:

fch.JPG

***

No aguardo

Removi o begin e end do repeat

mudei a variavel para as poltronas

e ta de 1..50 posiçoes, como antes, ele ta la na variaveis

//NOME DO PROGRAMAProgram Poltrona_teatro;//DECLARANDO VARIAVEISvarcliente:array [1..50] of string;i,numpolt:integer;Beginwriteln('CADASTRE O NUMERO DA POLTRONA DE [1 á 50]');writeln('DIGITE "0 (Zero)" PARA FINALIZAR O PROGRAMA');writeln;writeln;writeln;  for i:= 1 to 50 do    // PERMITE A ENTRADA DE ATE 50 DADOS  cliente[i]:= '';    // ASPAS SIMPLES INDICANDO CAMPO VAZIOrepeat     writeln;     writeln('CADASTRE O NUMERO DA POLTRONA');     write('Poltrona: ' );     readln(numpolt);    while ((numpolt < 0) or (numpolt > 50)) do   begin   writeln('Poltrona deve ser de 1 á 50');     writeln;     writeln('CADASTRE O NUMERO DA POLTRONA');     write('Poltrona: ' );     readln(i);   end;   if (cliente[i] = '') then //SE A POLTRONA ESTIVER VAZIA, CONFIRMA MOSTRANDO O CLIENTE E A CONFIRMAÇÃO DA RESERVA    beginwriteln;writeln;writeln('CADASTRE O NOME DO CLIENTE');     write('Cliente: ');      readln(cliente[i]);      writeln('Confirmado');      writeln;    end    else begin      writeln('Poltrona não disponivel! '); //ALERTA PARA SABER SE A POLTRONA ESTA RESERVADA      writeln;      write('Poltrona<s> não disponiveis: ');       for i:= 1 to 50 doif (cliente[i] <> '') thenwrite(' ',numpolt);writeln;writeln;end;until numpolt = 0;writeln('POLTRONA   NOME'); //BLOCO QUE MOSTRA AO USUARIO O QUE JA FOI RESERVADO PELO SISTEMA     for i:= 1 to 50 do     if (cliente[i] <> '') then             writeln('    ',numpolt,'       ',cliente[i]);End.

15 de novembro de 2015

Eu uso pascalzin, acho q agr ta melhor pra você entender

Olá.

1) O repeat não precisa de begin/end, seria bom removê-los;

2) você está usando a mesma variável para ler as poltronas, e para controlar o for, não poderia. "Cada um no seu quadrado"... Para as poltronas, use algo mais sugestivo, como numPoltrona.

3) Se são 50 poltronas, não seria de 0 a 49 ou 1 a 50?

4) O texto aqui (no Free Pascal) ficou meio bagunçado. Qual o compilador que você está usando?

No aguardo.

mudei aq e nao ajudou muito, so piorou

//NOME DO PROGRAMAProgram Poltrona_teatro;//DECLARANDO VARIAVEISvarcliente:array [0..50] of string;i:integer;Beginwriteln('=RESERVA DE POLTRONAS NUMERADAS= ');writeln('*DIGITE O NUMERO DA POLTRONA DE [1 á 50 *');writeln('*DIGITE "0 (Zero)" PARA FINALIZAR O PROGRAMA *');  for i:= 1 to 50 do    // PERMITE A ENTRADA DE ATE 50 DADOS  cliente[i]:= '';    // ASPAS SIMPLES INDICANDO CAMPO VAZIOrepeatbegin     writeln;     write('Poltrona: ' );     readln(i);  while ((i < 0) or (i > 50)) dobegin   writeln('Poltrona deve ser de 1 á 50');     writeln;     write('Poltrona: ' );     readln(i);   end;      if (i = 0) then     // BLOCO QUE MOSTRA AO USUARIO O QUE JA FOI RESERVADO PELO SISTEMA    begin     writeln('POLTRONA   NOME');     for i:= 1 to 50 do     if (cliente[i] <> '') then             writeln('       ',i,'    ',cliente[i]);   end;         if (cliente[i] = '') then //SE A POLTRONA ESTIVER VAZIA, CONFIRMA MOSTRANDO O CLIENTE E A CONFIRMAÇÃO DA RESERVA    begin     write('Nome: ');      readln(cliente[i]);      writeln('Confirmado');      writeln;    end         elsebegin      writeln('Poltrona não disponivel! '); //ALERTA PARA SABER SE A POLTRONA ESTA RESERVADA      writeln;      write('Poltrona<s> não disponiveis ');            for i:= 1 to 50 doif (cliente[i] <> '') thenwrite(' ',i);writeln;writeln;    end;   end;until i = 0;End.

14 de novembro de 2015

Escreva um programa em Pascal que use um vetor para gerenciar a venda de ingressos das poltronas numeradas de um teatro, que tem 50 lugares.

Eu consegui fazer uma parte, o único o problema é que quando eu finalizo ele ao aperta 0, ele pede nome e poltrona. Como eu concerto isso?

  //NOME DO PROGRAMAProgram Poltrona_teatro; //DECLARANDO VARIAVEISvarcliente:array [0..50] of string;i:integer; Beginwriteln('                        ==============================                             ');writeln('===========RESERVA DE POLTRONAS NUMERADAS============');writeln('*                                                                                                                *');writeln('*                                                                                                                *');writeln('*      DIGITE O NUMERO DA POLTRONA DE [1 á 50]                             *');writeln('*   DIGITE "0 (Zero)" PARA FINALIZAR O PROGRAMA                          *');writeln('*                                                                                                               *');writeln('*                                                                                                               *');writeln('========================================================');     for i:= 1 to 50 do    // PERMITE A ENTRADA DE ATE 50 DADOS  cliente[i]:= '';    // ASPAS SIMPLES INDICANDO CAMPO VAZIO  repeatbegin    writeln;    write('Poltrona: ' );    readln(i);    while ((i < 0) or (i > 50)) do begin  writeln('Poltrona deve ser de 1 á 50');    writeln;    write('Poltrona: ' );    readln(i);  end;  if (i = 0) then     // BLOCO QUE MOSTRA AO USUARIO O QUE JA FOI RESERVADO PELO SISTEMA    begin    writeln('POLTRONA   NOME');    for i:= 1 to 50 do    if (cliente[i] <> '') then            writeln('       ',i,'    ',cliente[i]);  end;        if (cliente[i] = '') then //SE A POLTRONA ESTIVER VAZIA, CONFIRMA MOSTRANDO O CLIENTE E A CONFIRMAÇÃO DA RESERVA    begin    write('Nome: ');      readln(cliente[i]);      writeln('Confirmado');      writeln;    end         elsebegin      writeln('Poltrona não disponivel! '); //ALERTA PARA SABER SE A POLTRONA ESTA RESERVADA      writeln;      write('Poltrona<s> não disponiveis ');           for i:= 1 to 50 doif (cliente[i] <> '') thenwrite(' ',i);writeln;writeln;    end;  end;until i = 0;End.

A Imagem da esquerda é a correta e a da direita a incorreta.

29 de outubro de 2015

Eu tava analisando este algoritmo e tem o seguinte problema, eu quero finalizar ao digitar zero, beleza digito 0 ele finaliza.....mas o problema é, que ele ta somando o zero e eu não quero isso. Como eu conserto???

Segue abaixo o algoritmo:

Program Tabuada;varnum:integer;cont:integer;Beginwriteln('DIGITE "0" PARA FINALIZAR O PROGRAMA!'); writeln;writeln;repeat writeln;write('Digite a tabuada: ');readln(num);for cont:= 1 to 10 dobeginwriteln(num:3:0, 'x', cont, '=', (num*cont):6:0); end                                                  until num=0; writeln('PROGRAMA ENCERRADO!!!');   End.

23 de outubro de 2015

@Fabio Aragao

Parece que sua postagem foi removida, mas obrigado mim ajudou muito!!!!

e @Math.Pi

Obrigado tbem pela força!!!

21 de outubro de 2015

Estrutura de repetição é FOR, WHILE e REPEAT

IF é estrutura condicional,

O programa tem que fazer a leitura dos dados, processar e dar o resultado, dai ele tem que voltar ao começo e pedir tudo novamente.

então voce vai utilizar uma estrutura de repetição, que seja:

- sistema voce vai repetir ENQUANTO não for digitado...................... ou

- sistema voce vai repetir ATÉ ser digitado...........................

Entendeu ?

eu conseguir fazer o que eu queria, fazer ele mim perguntar. Agr eu quero que ele para quando eu digitar "0".

Sabe dizer como eu faço isso??

SEGUE ALGORITMO ABAIXO:

Program Tabuada;

varn,tab: integer;Beginfor tab:= 1 to 10 dobeginwrite('Qual a tabuada: ');readln(tab);for n:= 1 to 10 dowriteln(tab, ' x ', n, ' = ', tab*n);end;End.

21 de outubro de 2015

Estrutura de repetição é FOR, WHILE e REPEAT

IF é estrutura condicional,

O programa tem que fazer a leitura dos dados, processar e dar o resultado, dai ele tem que voltar ao começo e pedir tudo novamente.

então voce vai utilizar uma estrutura de repetição, que seja:

- sistema voce vai repetir ENQUANTO não for digitado...................... ou

- sistema voce vai repetir ATÉ ser digitado...........................

Entendeu ?

Entendi, vou tentar aqui!

21 de outubro de 2015

precisa usar uma estrutura de repetição.

https://pt.wikibooks.org/wiki/Pascal/Estrutura_de_repeti%C3%A7%C3%A3o

Eu acho que eu esqueci de mencionar, mas a estrutura de repetição é usando IF. Como eu faço isso??

20 de outubro de 2015

@ronald1087xd Usando seu codigo não vi erro algum... está rodando perfeitamente, acabei de fazer o teste, veja a saida do seu proprio codigo:
Qual a tabuada66 x 1 = 66 x 2 = 126 x 3 = 186 x 4 = 246 x 5 = 306 x 6 = 366 x 7 = 426 x 8 = 486 x 9 = 546 x 10 = 60

eu sei que ta correto o que eu quero, por exemplo:

Eu executo o programa ai aparece "Qual a tabuada" ai eu digito 5, até ai beleza. So que eu quero que o programa mim pergunte de novo qual tabuada eu quero.

20 de outubro de 2015

@Fabio Aragao

Eu fiz até aqui

Program Tabuada;

var   n,tab: integer;Begin  writeln('Qual a tabuada');  readln(tab);  for n:= 1 to 10 do     writeln(tab, ' x ', n, ' = ', tab*n);End.

Minha duvida é:

Como eu faço para o pascal mim perguntar "Qual a tabuada", até eu digitar a tecla "0" para finalizar o programa, ou seja, eu quero que ele mim pergunte varias vezes ai quando eu não quiser mas aperto "0".

20 de outubro de 2015

1. Faça um algoritmo em Pascal que leia um número inteiro, e faça a tabuada deste número de 1 a 10, e imprima na tela a sequência da tabuada (2X1=2, 2x2=4, 2x3=6, etc...), O programa termina quando for digitado o número zero.
Agradeço a quem mim ajudar!!!

Entrar

Artigos

Selos

Fabricantes

Livros

Cursos

Análises

Fórum

posts postados por ronald1087xd

Sobre o Clube do Hardware

Direitos autorais

Mais