Ir ao conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Mostrando resultados para as tags ''Pascal''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

  • Armazenamento
  • Áudio
  • Energia
  • Entrada
  • Feiras e Eventos
  • Gabinetes
  • Memória
  • Museu
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Rádio CdH
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Armazenamento
  • Áudio
  • Câmeras
  • Computadores
  • Consoles
  • Eletrônicos
  • Energia
  • Entrada
  • Gabinetes
  • Impressão
  • Jogos
  • Memória
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Livros disponíveis
  • Livros esgotados

Fóruns

  • Mensagens do Clube do Hardware
    • Regras gerais
    • Boletins do Clube do Hardware
    • Notícias da administração
  • Hardware
    • Recomendações de computadores
    • Placas de vídeo
    • Placas-mãe e chipsets
    • Processadores
    • Problemas de gargalo e desempenho
    • Memórias
    • Armazenamento
    • Refrigeração e superaquecimento
    • Fontes e energia
    • Gabinetes e casemods
    • Placas de som e áudio on-board
    • Periféricos
    • Mac
    • Overclock
    • Hardware - outros
  • Computação móvel
    • Notebooks
    • Tablets
    • Smartphones e apps
  • Redes e Internet
    • Redes e Internet
    • Hospedagem de sites e registro de domínios
  • Segurança da informação
    • Remoção de malware
    • Dúvidas sobre invasões e infecções
    • Programas de proteção
  • Programação e desenvolvimento
    • Java
    • C/C#/C++
    • Pascal/Delphi
    • .NET
    • Bancos de dados
    • Programação web
    • Programação - iniciantes
    • Programação de microcontroladores
    • Programação - outros
  • Software
    • Jogos
    • Pacotes de escritório
    • Computação distribuída (Folding@Home, Bitcoin etc.)
    • Virtualização
    • Design, animação e tratamento de imagens
    • Edição de áudio e vídeo
    • Programas
  • Sistemas Operacionais
    • Recomendação de sistemas operacionais
    • Windows
    • GNU/Linux, BSD, Unix-like e software livre
  • Eletrônicos
    • Equipamentos de som, home theaters e gravadores de mesa
    • Televisores e projetores
    • Câmeras e filmadoras
    • Players portáteis
    • Consoles (videogames)
    • GPS
    • Telefonia fixa
    • Eletrônica
    • Retrocomputação
  • Outros
    • Recomendações de serviços e lojas
    • Preços e ofertas
    • Notícias
    • Bolsa de empregos, certificações e mercado de trabalho
    • "Causos"
    • Encontros de usuários
  • Clube do Hardware
    • Comentários, elogios, críticas, sugestões e questões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrar resultados em...

Encontrar resultados que...


Data de criação

  • Iniciar

    FIM


Última atualização

  • Iniciar

    FIM


Filtrar pelo número de...

Data de registro

  • Iniciar

    FIM


Grupo


Caixas de som

Encontrado 95 registros

  1. Bom dia, pessoal. Estou bem perdido para fazer esse programa no PascalZim. Já tentei fazer três programas mas nenhum tá rodando. Estou perdido pra fazer o submenu e a varredura pra saber se o ingresso já foi selecionado ou não. Precisaria disso até amanhã. Se alguém puder me ajudar, agradeceria. Elabore um programa que permita reservar um ingresso em um cinema, considerando que o cinema tem 15 fileiras e 20 cadeiras por fileira. As fileiras são identificadas pelas letras A, B, C, ... e O, seguidas de um número sequencial de 2 dígitos (01 até 20). Para a reserva, o programa deve armazenar, em uma estrutura do tipo record, as informações solicitadas e somente salvar no arquivo INGRESSO.txt após o término do programa. • Deve ser exibido um menu com as seguintes opções: 1. Incluir Ingresso; 2. Alterar Ingresso; 3. Excluir Ingresso; 4. Listar Ingresso: 1. Listar por Sobrenome; 2. Listar por Assento; 3. Listar todas as Reservas; 5. Salvar e Terminar
  2. var nome, nome_mais_velha, nome_mais_nova: char; idade, idade_mais_velha, idade_mais_nova, i: integer; begin for i:= 1 to 4 do writeln('Informe o nome da ', i, 'ª pessoa: '); readln(nome); writeln('Informe a idade da ', i, 'ª pessoa: '); readln(idade); if (i = 1) then nome_mais_velha := nome; idade_mais_velha := idade; nome_mais_nova := nome; idade_mais_nova := idade; if (idade > idade_mais_velha) then nome_mais_velha := nome; idade_mais_velha := idade; if (idade < idade_mais_nova) then nome_mais_nova := nome; idade_mais_nova := idade; writeln('Mais velha: ', nome_mais_velha, ' com ', idade_mais_velha, ' anos'); writeln('Mais nova: ', nome_mais_nova, ' com ', idade_mais_nova, ' anos') end. Bom dia, estou fazendo um exercicio e ele pede para fazer um algoritmo que receba o nome e a idade de um determinado numero de pessoas e mostre o nome da pessoa mais velha e o nome da pessoa mais nova, primeiro fiz em portugol e usei o programa visualg e o algoritmo funcionou corretamente depois converti o algoritmo para o pascal que é este daqui mais quando uso o programa (Pascalzim) quando o programa executa ele le nao da a opcao pra digitar o nome e a idade da pessoa ele le tudo de uma vez, o que eu errei?? No portugol ficou assim var nome, nome_mais_velha, nome_mais_nova: caracter idade_mais_velha, idade_mais_nova, i: inteiro idade: inteiro inicio para i de 1 ate 4 faca escreva("Informe o nome da ", i, "ª pessoa: ") leia(nome) escreva("Informe a idade da ", i, "ª pessoa: ") leia(idade) se (i = 1) entao nome_mais_velha <- nome idade_mais_velha <- idade nome_mais_nova <- nome idade_mais_nova <- idade senao se (idade > idade_mais_velha) entao nome_mais_velha <- nome idade_mais_velha <- idade fimse se (idade < idade_mais_nova) entao nome_mais_nova <- nome idade_mais_nova <- idade fimse fimse fimpara escreval("Mais velha: ", nome_mais_velha, " com ", idade_mais_velha, " anos") escreval("Mais nova: ", nome_mais_nova, " com ", idade_mais_nova, " anos") fimalgoritmo no pascal o programa le assim:
  3. Olá, este programa é novo para mim e não estou a conseguir fazer o seguinte trabalho: Alguém me pode ajudar? Obrigada
  4. Type Idades = array[1..5] of string; Var Idade: Idades; maiores, menores: integer; Soma, I: integer; Begin Soma:=0; For I := 1 to 5 do Begin Writeln('informe a idade:', I); readln(Idade[I]); Bom dia, tenho um Exercício para fazer mais não consigo termina-lo alguem poderia me ajudar? Exercicio: Em Pascal faça um algoritmo que armazene a idade das pessoas e ao final mostre o total das idades sendo divididos: os maiores de 18 anos e o menores de 18 anos. Utilize o Comando TYPE. Não consigo fazer a parte que mostra quais são os maiores de 18 e os menores de 18.
  5. Ola, Estou com dúvida nesse exercício, não estou sabendo trabalhar os ponteiros nele Se alguém puder fazer algumas procedures para eu conferir Fiz uma para cada item, inclusive a do menu
  6. esse é o mesmo problema dos anteriores ( duvida: como fazer a contagem de alunos Aprovados e Reprovados ) Program Exercicio_6 ; Var md:Array[1..5] Of Real; n1,n2:Real; i:Integer; Begin i:=0; For i:=1 To 5 Do Begin TextColor(LightCyan); Writeln('Aluno ',i); Writeln(); TextColor(White); Writeln('Digite Sua Primeira Nota :'); Readln(n1); Writeln(); Writeln('Digite Sua Segunda Nota:'); Readln(n2); Writeln(); md[i]:=(n1+n2)/2; TextColor(Yellow); Writeln('Média: ',md[i]:0:2); End; For i:=1 To 5 Do Begin Writeln('**************************************************************'); if(md[i]>7)Then Begin Writeln(); TextColor(LightBlue); Writeln('Aluno ',i,' APROVADO Com: ',md[i]:0:2,' Na Media!'); End; If(md[i]<7)Then Begin Writeln(); TextColor(LightRed); Writeln('Aluno ',i,' REPROVADO Com: ',md[i]:0:2,' Na Media!'); End; End; ReadKey; End.
  7. eu acabei faltando na introduçao do assunto e o professor passou uns exercicios (como trabalho) ai nao posso perguntar a ele, eu ate consegui fazer duas mas o resto eu nao consigo, se alguem de bom coração ajudar eu agradeço e digo: "Deus te abençoe."
  8. e por fim essa matriz que eu peguei um exemplo que ele (Professor)passou Program Matriz_Duas_Dimensoes ; Const NL = 5; {Numero de Linhas} NC = 5; {Numero de Coluna} Var L,C:Integer; X:Array[1..NL, 1..NC] Of String; Begin Writeln('********************************Matriz[',NL,'X',NC,']********************************'); Writeln(); For L:=1 To NL Do Begin For C:=1 To NC Do Begin If(NL Mod 2 <> 0)Then //aqui <> ou = X[L][C]:='0' Else X[L][C]:='1'; Write(' ',X[L][C]); Delay(50); End; Writeln(); End; Writeln('Aperte "Enter" Para Sair! '); ReadKey; End.
  9. Putz eu estava revisando os programas e me deparei com o primeiro em que eu não consigo fazer a mesma coisa do exercício 3 (duvida: checar se o numero que nos digitamos já existe na matriz). Program Exercicio_1 ; Var x:String; i,v:Integer; Vala:Array[1..10]Of Real; Begin For i:=1 to 10 do Begin Writeln('Digite Um Valor: ',i,': '); Read(Vala[i]); End; Writeln('Digite um Valor Para Saber se o Mesmo Existe na Matriz!'); Read(x); If(x = '')Then Begin Writeln('Não Existe na Matriz!'); End Else Begin Writeln('Existe na Matriz!'); End; End.
  10. alguem me da uma ajuda ou uma dica de como fazer esse exercicio, ja tentei de varias maneiras mas nenhuma deu certo, o exercicio é: Resolva o exercício abaixo em Linguagem Pascal, utilizando estrutura condicional simples: Elabore um algoritmo, onde o usuário fará a entrada de um valor. Se o valor for positivo, mostrar o dobro do valor digitado. Se o valor for negativo, mostrar o triplo do valor digitado. Caso seja digitado o valor zero informar ao usuário, através de uma mensagem, que zero é um valor neutro.
  11. Escrevi esse em turbo pascal, pra ver se tem como colocar imagens ou botões pra fazer menu. program jogo; uses crt; var life, ammo, armor:integer; Begin clrscr; life:=100; ammo:=90; armor:=100; gotoxy(10,23); write('Vida: ',life); read; gotoxy(30,23); write('Municao: ',ammo); read; gotoxy(50,23); write('Armadura: ',armor); readln; end.
  12. faca um algoritmo que pergunte qual o sexo do usuario e ao final mostre a porcentagem o numero de pessoas do sexo feminino e do masculino faca esse algoritio nos tres comandos de repetição
  13. obs: tem que mostrar o nome da pessoa Program Pzim ; var soma,somam,somaf,anos,anos1,anos2,anos3,f,m,cont,idade,s:integer; anosmaior,sexo,nome:string; Begin for cont:=1 to 2 do begin writeln('nome'); readln(nome); writeln('idade'); readln(idade); writeln('anos trabalhando'); readln(s); writeln('sexo'); readln(sexo); if sexo='f' then begin f:=1+f end; if sexo='m' then begin m:=1+m end; if (s>0) and (sexo='m') then begin anos:=1+anos end; if (s=0) and (sexo='m') then begin anos1:=1+anos1 end; if (s>0) and (sexo='f') then begin anos2:=anos2+1 end; if (s=0) and (sexo='f') then begin anos3:=anos3+1 end; if sexo='f' then begin somaf:=idade+somaf end; if sexo='m' then begin somam:=idade+somam end; soma:=soma+idade end; writeln('1-',f); writeln('2-',m); writeln('3-',anos); writeln('4-',anos1); writeln('5-',anos2); writeln('6-',anos3); writeln('7-',anosmaior); writeln('8-',soma); writeln('9-',soma/2 :0:0); writeln('10-',somaf/2 :0:0); writeln('11-',somam/2 :0:)); End.
  14. Olá, eu faço curso técnico de informática e recentemente nas aulas de lógica de programação, usando Pascal, acabei ficando preso em um exercício exercício: Construa um algoritmo que leia e imprima a altura de 500 pessoas uma a uma e no final escreva a média. Isso foi o que eu fiz, mas o problema é que não sei como calcular a media. Program altura_500 ; var altura : real ; cont : integer ; Begin cont := 1 ; while cont<= 500 do begin write('usuário ',cont,' digite sua altura: '); read(altura); cont := cont+1 ; end; End.
  15. Program Pzim ; var user,digitado:String; tentativas:Integer; Begin user:='Thiago'; tentativas:=0; Writeln('Usuario:'); readln(digitado); while digitado <> user and tentativas <3 do Writeln ('Digite o Usuario:'); tentativas := tentativas + 1 ; readln(digitado); If digitado=user then Writeln('Usuario Cadastrado!') else Writeln('Excesso Excedidas!"); End.
  16. Faça um algoritmo que receba a idade de 10 pessoas e mostre a menor e a maior idade digitada fiz o algoritmo mais quando digito as idades o resultado não mostra a maior e a menor digitada, o que estou fazendo de errado? Var idade, cont, maior, menor: integer; Begin writeln('Digite a primeira idade:'); read(idade); maior:= idade; menor:= idade; for Cont:= 1 to 10 do begin writeln('proxima idade:'); read(idade); if idade > maior then; begin maior:= idade end; begin if idade < menor then begin menor:= idade end; end; end; writeln('O maior numero é:', maior); writeln('O menor numero é:', menor); End.
  17. BOA NOITE!! Sou meio lego no assunto e gostaria de pedir ajudar pois curso engenharia civil e tenho um trabalho pra fazer com o pascal ja fiz uma parte mais a outra nao estou conseguindo que seria o aluno tem a cargoraria de 60 horas que daria 25 dias de aula o aluno que atingir 25 % de falta esta reprovado como faria isso no pascal se aluem poder me ajudar como disse sou meio ou todo lego no assunto rsrs e obrigado desde já .
  18. 1 - Faça um algoritmo que receba o Nome de e a idade de 3 pessoas, e mostre o nome e a idade da pessoa com maior idade. Se a idade for igual ao da idade digitada anteriormente, mantém-se a primeira idade digitada. eu fiz o algoritmo mais quando digito os valores no programa o resultado mostra o nome e a idade com maior idade errada, poderia me dizer o que estou fazendo de errado?? VAR Idade, contagem, Idade_recebida: Integer; Nome, Nome_recebido : String; begin CONTAGEM:=1; Idade_recebida:= 0; Idade:=0; Repeat writeln('Digite seu Nome'); Readln(Nome_recebido); writeln('Qual sua idade'); Readln(Idade_recebida); IF CONTAGEM = 1 THEN BEGIN Nome:= Nome_recebido; Idade:= Idade_recebida; END ELSE BEGIN IF Idade_recebida > IDADE THEN BEGIN Nome:= Nome_recebido; Idade:= Idade_recebida; END; END; CONTAGEM:= CONTAGEM + 1; UNTIL CONTAGEM = 4; Writeln('A maior Idade foi de : ', Nome_recebido); Writeln('A idade digitada foi: ', Idade_recebida); READLN; end.
  19. 1. Faça um algoritmo que receba as idades de 10 pessoas e some as idades pares. Use o comando REPEAT 2. Faça o mesmo algoritmo só que somando também as idades ímpares e somando todas as idades ímpares + pares juntas. O Algoritmo é esse: var lista:array[1..10]of integer; pessoas, par:integer; begin; pessoas :=0; repeat writeln(' digite idade '); pessoas:=pessoas + 1; readln(lista[pessoas]); until (pessoas =10); pessoas:=0; par:=0; repeat pessoas:=pessoas + 1; if((lista[pessoas] mod 2)=0) then par:=par+lista[pessoas] ; until (pessoas =10); writeln('soma das idades pares é ',par); end. Por exemplo: para calcular somente as idades ímpares era só mudar mod 2 = 0 para mod 2 = 1 então como eu faria para colocar a soma dos idades ímpares no algoritmo acima e como faria para somar as idades ímpares e pares?
  20. Recentemente, quando cheguei a parte de estruturas condicionais compostas, aprendi que antes do else não havia ponto e vírgula (;). Estava construindo meus algoritmos sem problema algum, porém este programa que fiz só funciona se colocar ponto e vírgula (;) antes do else (exceto o end). Segue o código: program NovoSalario; uses CRT; var nome :string; salario_atual, novo_salario :real; begin textbackground(yellow); textcolor(white); clrscr(); writeln(' ',#201,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#187); writeln(' ',#186,' NOVO SALÁRIO ',#186); writeln(' ',#200,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#188); writeln(); write(' - Nome: '); readln(nome); write(' - Salário Atual: '); readln(salario_atual); writeln(); if (salario_atual < 0) then begin writeln(' * Salário Inválido!') end else if (salario_atual <= 400) then begin novo_salario := ((salario_atual * 15) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 15%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 400) and (salario_atual <= 700) then begin novo_salario := ((salario_atual * 12) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 12%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 700) and (salario_atual <= 1000) then begin novo_salario := ((salario_atual * 10) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 10%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 1000) and (salario_atual <= 1800) then begin novo_salario := ((salario_atual * 7) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 7%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 1800) and (salario_atual <= 2500) then begin novo_salario := ((salario_atual * 4) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 4%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 2500) then begin novo_salario := salario_atual; writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Sem Aumento'); writeln(' * Novo Salário: ', novo_salario:0:2); end; write(' '); readkey(); end. Somente com o ponto e vírgula funciona, saberiam me dizer o porquê? Estou usando o Pascal Zim!
  21. Faça um algoritmo que mostre a quantidade de pessoas que são do sexo masculino e feminino e a soma das idades de cada sexo e mostre a porcentagem de pessoas do sexo feminino e masculino e o total de pessoas usadas no algoritmo. Eu só consegui fazer o algoritmo somando as idades de cada sexo, alguém poderia ajudar a terminar o exercício? var cont,soma_f,soma_m,idade, soma: integer; sexo: string; Begin For cont:= 1 to 5 do begin Writeln('Informe o sexo (com a letra minuscula):'); read(sexo); Writeln('Informe a idade:'); read(idade); if (sexo='m') then soma_m:= soma_m + idade else if (sexo='f') then soma_f:= soma_f + idade; end; Writeln('Soma das idades do sexo masculino: ',soma_m); Writeln('Soma das idades do sexo feminino: ',soma_f); end. (FIZ O ALGORITMO NO PASCALZIM)
  22. Um algoritmo que possua a idade de 5 pessoas e soma as idades das pessoas que forem maiores que 18 anos, e também mostre a soma das idades das pessoas que forem menores de idade.
  23. Olá a todos, o meu geany está com problemas na hora da execução de programas em linguagem pascal, fala em um "erro 9009", já baixei o gcc e não resolveu. Vocês poderiam ajudar?
  24. Ola, sou novo na programação, gostaria de uma pequena ajuda. Queria desenvover um programa que desse um click com o botão esquerdo do mouse em um determinado local quando um outro local mudasse para uma cor predeterminada. Com botões de ligar/desligar sem precisar modificar as pastas dos lugares em que utilizasse a função e quando ativado, ficasse totalmente opaco. no geral seria um auto-click com a função de clicar quando em cima da cor predeterminada, um pequeno local de 0,3 centimetro de diametro no centro da tela em uma config de 1920 x 1080 p. Por acaso é possivel? alguém poderia me ajudar? Ficaria muito grato
  25. Olá, estou com um problema ao fazer o seguinte código: program B; uses crt; var vet: array[1..25] of integer; mat: array[1..5,1..5] of integer; j, M, N, aux, i: integer; begin writeln('PROGRAMA PARA IMPRIMIR DEZ CARTELAS DE BINGO'); randomize; for i:=1 to 10 do begin writeLn('CARTELA ',i); //SORTEAR VALORES E ATRIBUI-LOS A UM VETOR; VERIFICAR SE SÃO IGUAIS E, CASOS SEJAM, SUBSTITUI-LOS. for j:=1 to 25 do begin if j=1 then begin vet[j]:= random(15)+1; if vet[j]=vet[j+1] then vet[j]:= random(15)+1; end; if j=6 then begin vet[j]:= random(15)+16; if vet[j]=vet[j+1] then vet[j]:= random(15)+16; end; if j=11 then begin vet[j]:= random(15)+31; if vet[j]=vet[j+1] then vet[j]:= random(15)+31; end; if j=16 then begin vet[j]:= random(15)+46; if vet[j]=vet[j+1] then vet[j]:= random(15)+46; end; if j=21 then begin vet[j]:= random(15)+61; if vet[j]=vet[j+1] then vet[j]:= random(15)+61; end; end; //COLOCAR VALORES EM ORDEM CRESCENTE; for j:=1 to 25 do if vet[j]>vet[j+1] then begin aux:= vet[j]; vet[j]:= vet[j+1]; vet[j+1]:= aux; end; end; //TRANSFORMAR VETOR EM MATRIZ j:=0; for M:= 1 to 5 do for N:= 1 to 5 do begin j:= j+1; mat[M,N]:= vet[j]; end; //IMPRIMIR A MATRIZ for M:= 1 to 5 do begin writeln(''); for N:= 1 to 5 do begin writeln(mat[M,N],' '); end; end; readkey; end. É um código para criar 10 cartelas de bingo, em que os números não se repitam e fiquem em ordem crescente (os comentários estão todos no código). Alguém poderia examina-lo e me ajudar?

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

×