Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

Whillis

Membros Juniores
  • Total de itens

    10
  • Registro em

  • Última visita

  • Qualificações

    N/D

Reputação

8

Sobre Whillis

Informações gerais

  • Cidade e Estado
    Curitiba/PR
  • Sexo
    Masculino
  1. Pascal Como fazer vetores em pascal?

    program exercicio; uses CRT; var vetor: array[1..5] of integer; m, p : integer; menor: integer; begin writeln(''); writeln('---------------------------------------------------------'); writeln('Ex. Sistema composto (para e vetor)'); writeln('Digite 5 valores para coloca-los em ordem crescente') writeln('') for m:=1 to 5 do begin writeln('insira um valor na posição: ', m); read(vetor[m]); end; readln; for m:= 1 to 5 do begin for p:= 1 to 5 do begin if (vetor[p] > vetor[m]) then begin menor:= vetor[m]; vetor[m]:=vetor[p]; vetor[p]:=menor; end; readln; end; readln; end; readln; for m:=1 to 5 do begin write('(',vetor[m],')'); end; readln writeln(''); writeln('---------------------------------------------------------'); readkey; end. Agora funcionou! mt obrigado pela preocupação, ai está o código que eu usei
  2. Pascal Como fazer vetores em pascal?

    @Simon Viegas Estou utilizando o lazarus IDE v1.6.4 pois foi o sugerido pelo meu professor de programação Eu salvei o documento porém n mudou em nada
  3. Pascal Como fazer vetores em pascal?

    @Simon Viegas Este programa precisa criar um laço de repetição e então a partir de um vetor colocar os números digitados em ordem crescente, porém assim que inicializo e digito os números ele põe em ordem números que eu nem digitei, ou repete números que digito apenas uma vez Ex.: eu inicializo o programa, digito os números 1, 8, 9, 5 e 6 e então é posto como resultado os números (1)(5)(5)(0)(5) Eu arrumei o identifier " i " para " m " e " p ", porém o problema ainda vem acontecendo, e quando coloco apenas números menores que 5 o programa repete o "writeln ('insira um valor na posição:',m)" e não para até q eu digite um número maior que 5. usei o código que você mostrou: VAR vetor: array[1..4] of integer; m, p : integer; menor: integer; begin writeln(''); writeln('Ex. Sistema composto (para e vetor)'); for m:=1 to 5 do begin writeln('insira um valor na posição: ', m); read(vetor[m]); end; for m:= 1 to 5 do begin for p:= 1 to 5 do begin if (vetor[p] > vetor[m]) then begin menor:= vetor[m]; vetor[m]:=vetor[p]; vetor[p]:=menor; end; end; end; for m:=1 to 5 do begin write('(',vetor[m],')'); end; readln; readln; writeln(''); writeln('---------------------------------------------------------'); end. Com relação ao identifier, estou usando as letras [m] e [p], pois esse código é parte de outro onde já utilizei os identificadores [ i ] e [ j ]
  4. Pascal Onde está o erro neste código?

    Muito obriagado, estava realmente com problemas nesse problema tão simples. adicionado 0 minutos depois Nossa muito obrigado, você pode me tirar muitas duvidas sobre pascal!
  5. program Exercicio; USES CRT; VAR vetor: array[1..4] of integer; m,p, menor : integer; begin writeln(''); writeln('Ex. Sistema composto (para e vetor)'); m:=1; for i:=1 to 5 do begin writeln('insira um valor na posição: ', m); read(vetor[m]); m:=m+1 end; for m:= 1 to 5 do begin for p:= 1 to 5 do begin if (vetor[p] > vetor[m]) then begin menor:= vetor[m]; vetor[m]:=vetor[p]; vetor[p]:=menor; end; end; end; for m:=1 to 5 do begin write('(',vetor[m],')'); end; end. Como está mostrado, preciso de um vetor com estrutura para, mas n consigo fazer este programa funcionar precisamente, agradeceria muito se alguém pudesse me ajudar. Agradeço desde ja.
  6. Olá estou fazendo um trabalho no lazarus e queria saber por que n está dando certo program Principal; USES CRT; VAR contmenu, opcao: integer; //Op. 2 ------------------------------------------------------------------------ n1, n2: integer; //Op. 3 ------------------------------------------------------------------------ num: integer; begin { DESENVOLVENDO MENU DE ACESSO} CONTMENU:=1; WHILE (CONTMENU = 1) DO BEGIN writeln ('MENU DE ENTRADA'); writeln (' 1 - Equipe'); writeln (' 2 - Sistema sequencial'); writeln (' 3 - Sistema de decisão'); writeln (' 4 - Sistema de repeticao (enquanto)'); writeln (' 5 - Sistema composto (decisão e enquanto)' ); writeln (' 6 - Sistema composto (enquanto e decisão)' ); writeln (' 7 - Sistema de repeticao (para)' ); writeln (' 8 - Sistema composto (para e se)' ); writeln (' 9 - Sistema composto (para e vetor)' ); writeln ('10 - Sistema composto (matriz)' ); writeln ('11 - Sair'); writeln ('0 - Menu de entrada'); write ('DIGITE O NUMERO DE OPCAO: '); read(OPCAO); //Opção 11 Sair ---------------------------------------------------------------- if (opcao = 11 ) then BEGIN contmenu:=0; end; //Opção 1 Equipe -------------------------------------------------------------- if (OPCAO = 1 ) then begin writeln (''); writeln ('1 - Equipe'); writeln ('ALUNO: Marcelo Rolim de Moura - Numero: 20'); writeln (''); end; //Opção 2 Sistema sequencial --------------------------------------------------- if (OPCAO = 2 ) then begin writeln(''); writeln('2 - Ex. Sistema sequencial'); writeln(''); writeln('Digite primeiro numero'); read(n1); writeln('Digite segundo numero'); read(n2); writeln('a soma de ',n1,'+',n2,' e igual a ',n1+n2); writeln(''); end; //Opção 3 Sistema de decisão -------- AQUI ESTÀ O ERRO vvvvv --------------------------------------------------- if (opcao = 3 ) then begin writeln(''); writeln('3 - Ex. Sistema de decisão'); writeln(''); writeln('digite um numero'); read(num); ///////////////////////////////////////////////////////////////// // o erro esta no else, mas n sei consertar --------------------- if (num > 0) then begin writeln(num,' e um número positivo'); else writeln(num,'e um número negativo'); end; //---------------------------------------------------------------- ////////////////////////////////////////////////////////////////// contmenu:=0; end; end; end; readkey; end. Na opção 3 tem um erro com o 'else' e n consigo encontrar como consertar isso Agradeço desde ja.
  7. Estou com um problema nesta pergunta de um trabalho em visualg
  8. Como ver a média de um vetor!?

    Oh obrigado mesmo n sei como q n enxerguei um problema tão simples
  9. Olá, estou fazendo um trabalho de linguagem de programação no visualg e precisava saber como se faz a média de um vetor (que no caso seria o VetorB). Estou com problemas nessa última estrutura "para" : Var vetorA: vetor [1..10] de inteiro VetorB: vetor [1..10] de inteiro i:inteiro num:inteiro media:real result:real Inicio i<-1 Para i de 1 ate 10 faca Leia(num) vetorA [i]<-num i<-i+1 Fimpara escreval("") escreval("calculando o dobro...") escreval("") para i de 1 ate 10 faca timer (50) VetorB[i] <- VetorA[i] * 2 escreva(VetorB[i]) fimpara para i de 1 ate 10 faca media <- VetorB[i] + VetorB[i] result <- media/10 fimpara Fimalgoritmo agradeço desde ja

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×