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.

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

  • Blog

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

Categorias

  • Cursos

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
    • Mac OS
  • 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 promoções
    • Notícias
    • Bolsa de empregos, certificações e mercado de trabalho
    • "Causos"
    • Encontros de usuários
    • Feira do Rolo
  • Clube do Hardware
    • Comentários, elogios, críticas e sugestões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrado 37 registros

  1. Pascal Preciso de um Código para Pascal

    Eu sou novato na programação, e então decidi optar por uma linguagem de mais fácil compreensão para iniciantes. Bem, eu estava tentando fazer um enigma no Pascal, e até aí tudo bem, mas, eu não sei o "código" (não sei se esse é o termo correto) para que se a pessoa acertar a palavra aparecer que ela acertou, e se ela errar aparecer que ela errou.
  2. Olá tudo bem,poderia me ajudar a escrever um código em pascal aqui? Sou iniciante e estou com uma dúvida na seguinte questão: Faça um algoritmo que receba um caractere qualquer do teclado e mostre as seguintes mensagens: *se* for uma letra do alfabeto, a mensagem mostrada deverá ser : 'esse caractere e uma letra do alfabeto', *caso* seja um número ela deverá ser: 'esse caractere e um número', e *caso* seja outro caractere,deverá aparecer essa outra essa outra mensagem: 'esse caractere e um outro caractere qualquer'. Esse algoritmo também deve mostrar o caractere digitado dessa maneira: O caractere digitado foi: CARACTERE'. EU estou tendo dúvida no no *se*,mas o *case* eu sei,como eu consigo colocar a decisão se no tipo char? Pode passar o código pra mim ou dar uma explicação? Eu fiz assim,está certo?: program caracteres; var caracter: char; begin WriteLn('Digite um caractere qualqier no teclado'); ReadLn(caracter); if caracter = 'a..z' then begin WriteLn('esse caractere e uma letra do alfabeto'); end else if caracter <> 'a..z' then begin WriteLn('nao e uma letra do alfabeto'); end; readln; end. Não está dando certo pois toda vez que dou Run e digito qualquer letra o compilador somente entende como 'não e uma letra do alfabeto' me ajudem.
  3. Boa Tarde pessoal! , estou tentando fazer um sistema tipo um caixa de supermercado, aonde o programa lê os produtos e depois dá um preço final, o problema é que se eu colocar um mesmo produto duas vezes ele não junta o total das duas execuções, ex: Arroz* 2 unidades = 10 reais, se voltar nessa conta ele não coloca os 20 reais. Gostaria de saber como acumular os valores em uma mesma variável a cada execução do programa. Se alguém puder me ajudar com qualquer dica, agradeço desde já. Olhei várias apostilas e sites mas só consegui fazer desse jeito. program caixa; uses crt, math; var produto: array [1..5] of string; preco1: real; subtotal: array[1..5] of real; troco: real; pagamento: real; quantidade: integer; prodescolhido: string; precototal: real; totalcompra: real; finalcompra: string; begin produto[1] := 'Arroz'; produto[2] := 'Feijao'; produto[3] := 'Macarrao'; produto[4] := 'Leite'; produto[5] := 'Acucar'; repeat writeln('Produto Escolhido e Quantidade'); readln(prodescolhido); readln (quantidade); if (prodescolhido = produto[1]) then begin preco1 := 5; subtotal[1] := quantidade*preco1; end; if (prodescolhido = produto[2]) then begin preco1 := 2; subtotal[2] := quantidade*preco1; end; if (prodescolhido = produto[3]) then begin preco1 := 3.5; subtotal[3] := quantidade*preco1; end; if (prodescolhido = produto[4]) then begin preco1 :=1.5; subtotal[4] := quantidade*preco1; end; if (prodescolhido = produto[5]) then begin preco1 := 4; subtotal[5] := quantidade*preco1; end; precototal := subtotal[1] + subtotal[2] + subtotal [3] + subtotal[4] + subtotal[5]; totalcompra:= precototal; writeln ('Finalizar Compra?'); readln(finalcompra); until (finalcompra = 'Sim'); if (finalcompra = 'Sim') then begin clrscr; writeln('Total da Compra: ', totalcompra:6:2); writeln('Pagamento'); readln(pagamento); troco:= pagamento-precototal; writeln('troco: ', troco:6:2); writeln('Pressione ENTER para finalizar o programa'); readln; end; end.
  4. Criei um algoritmo q recebe um numero qualquer soma mais ele mesmo e com o resultado da soma fazer a potenciação dele com a potencia de2 e depois com o resultado da potenciação fazer a raiz quadrada e por fim mostrar o resultado, mas tem um erro q não deixa eu executar o algoritmo.. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// program complicado; var n1, resultado: real; begin writeln('digite o numero a ser calculado'); readln(n1); resultado :=(n1 + n1) + (sqrt(exp(2*ln(n1)); writeln('o resultado e: ',(resultado)); readln(resultado); end. 8 / 45 compli~1.pas Fatal: Syntax error, ) expected but ; found
  5. Estou tentando fazer um algoritmo q calcule um numero qualquer elevado pela potenciacao de 3 e arredonde o resultado, mas tem um erro q nao consigo resolver porque estou começando agora, o algoritmo e o erro estão ai em baixo. obrigado. --------------------------------------------------------------------------------------------------------------------------------------------- program potenciacao2; var n1, resultado: real, round: integer; begin writeln('digite o numero a ser calculado'); read(n1); resultado:= exp(3*ln(n1)); writeln('o valor e: ',round(resultado)); read; end; 3 / 24 potenc~2.pas Fatal: Syntax error, ; expected but , found
  6. Pascal Problema com "ELSE" no Pascal.

    Estava treinando no Pascal, então decidi criar uma calculadora, apenas para testar, porém o programa está encontrando um erro de "ELSE" no código. Poderiam me ajudar? Irei selecionar a parte em que o programa diz que está errado. O erro diz o seguinte: "ELSE não esperado". SEGUE O CÓDIGO: Program Calculadora; //NomeDoPrograma var //Variáveis opcao:integer; opcao2:integer; resposta1:real; resposta2:real; num1,num2:real; resposta:real; termo1:real; termo2:real; Begin writeln('========= EXEMPLO DE PROGRAMA =========='); writeln('PROGRAM MADE BY: JÃO'); writeln('Para usar o Programa, basta digitar a opcao de calculo.'); writeln('[ 1 ] Adicao'); writeln('[ 2 ] Subtracao'); writeln('[ 3 ] Multiplicacao'); writeln('[ 4 ] Divisao'); writeln('[ 5 ] Para mais informações do programa.'); writeln('E ai?'); read(opcao); //Adicao if opcao=1 then clrscr; Begin writeln('Digite o primeiro numero da adicao:'); read(num1); writeln('Digite o segundo numero da adicao:'); read(num2); resposta:=(num1+num2); writeln('Resposta: ',' ', round(resposta)); end //Subtracao else if opcao=2 then begin writeln('Digite o primeiro número da subtração:'); read(num1); writeln('Digite o segundo número da subtração:'); read(num2); resposta:=(num1-num2); writeln('Resposta:',' ',round(resposta)); end End.
  7. Olá galera, bom dia. É minha primeira postagem no forum então me desculpem se eu postar algo no lugar errado. Pois bem. Tenho um trabalho para ser entregue nos próximos dias mas tranquei de uma forma que não consigo resolver. O trabalho é fazer um menu que contenha (adicionar,listar,maior,menor,média,troca valor e sair) utilizando funções e procedimentos que à pouco foi passado em aula, Cada opção esta dando um tipo de erro e 'troca valor' não consigo nem iniciar. segue em anexo o arquivo com o código: program project1; USES crt; type vetor = array[1..10] of real; procedure menu (var opcao:integer); begin writeln ('MENU'); writeln ('1) ADICIONAR'); writeln ('2) LISTAR'); writeln ('3) MAIOR'); writeln ('4) MENOR'); writeln ('5) MEDIA'); writeln ('6) TROCA VALOR'); writeln ('7) SAIR'); write ('Digite sua opcao: '); readln (opcao); end; //adicionar procedure adicionar(var i:vetor;var cont:integer ); begin if cont = 11 then begin writeln('VETOR CHEIO!!'); cont:=cont-1; end else begin cont:=0; write('Digite um valor: '); readln(i[cont]); end; clrscr; end; procedure listar(var i:vetor; cont:integer); var j : integer; begin for j := 1 to cont do writeln(i[cont]); end; //menor function menor (i:vetor; cont:integer):real; var j : integer; menores : real; begin menores := 999999; for j := 1 to cont do begin if menores > i[j] then begin menores := i[j]; end; end; menor:=menores; clrscr; end; function maior(j:vetor;cont:integer) : real; var i : integer; maiores : real; begin maiores := 0; for i := 1 to cont do begin if j[i] > maiores then maiores := j[i] end; maior:=maiores; clrscr; end; //programa principal var opcao: integer; cont: integer; x: vetor; begin repeat begin menu(opcao); case opcao of 1: begin cont := cont + 1; adicionar(x,cont); end; 2: listar(x,cont); 3: writeln('O maior valor foi: ', maior(x, cont):2:3); 4: writeln('O menor valor foi: ', menor(x, cont):2:3); 5: writeln('SAIR'); else writeln('Digite uma opcao valida: '); end; end; until opcao = 5; readkey; END. Desde já agradeço qualquer ajuda.
  8. Boa noite, Fiz uma calculadora para equações de segundo grau, para resolver a clássica: ax²+bx+c=0 Usando a fórmula de Bhaskara para encontrar o "x". Porém quando uso valores como: a = 1 b = 1 c = -1 , funciona muito bem dando o resultado correto, porém quando uso por exemplo: a=2 b=3 c=-5 , o resultado fica: 4 e -10, que está errado. O código que fiz foi este( Compilei com o Free Pascal no Linux ): program bhaskara; var a, b, c, delta, x, bn, xp, xn : real; begin write('Digite o valor de a: '); readln(a); if a = 0 then begin writeln('A não pode ser 0'); exit; end else begin writeln('Valor de a está ok'); end; write('Digite o valor de b: '); readln(b); write('Digite o valor de c: '); readln(c); writeln('Indo calcular delta'); delta := (b*b)-(4*a*c); writeln(delta:0:6); writeln('Indo calcular b negativo'); bn := (-1)*b; writeln('Indo calcular x negativo'); xn := (bn - sqrt(delta))/2*a; writeln('Indo calcular x positivo'); xp := (bn + sqrt(delta))/2*a; writeln('Duas raízes foram achadas: ', xp:0:6, ' ', xn:0:6); end. Grato desde já.
  9. Pascal lista encadeada em pascal

    Olá tenho um enunciado que diz o seguinte: Crie um programa em PASCAL que realize o cadastro de alunos de uma escola. Primeiramente, o programa deverá ler um valor válido para a variável n no intervalo [3,40], a qual indicará a quantidade de alunos a serem lidos. Cada aluno precisa ter os seguintes dados (registro): (i) matrícula - integer; (ii) nome – 30 caracteres; (iii) telefone – 20 caracteres. Os dados deverão ser armazenados em uma lista encadeada, cuja a inserção de cada elemento deverá ser no início da lista. Após a conclusão do cadastro dos alunos na lista, exibir os dados de todos os n alunos percorrendo a lista encadeada. criei um código mas estou com duvida se ele atende o que se pede quem puder mim ajudar fico muito agradecido. segue o código abaixo: program at_pratica_cadastro; // Autor: Ronildo Sousa // Disciplina: Linguagem de Programação I uses crt; type Cad_Aluno = record matricula : integer; nome : string[30]; tel : string[20]; end; var Reg_Vet : array[3..40] of Cad_Aluno; i,n : integer; begin writeln('Informe a quantidade de alunos a cadastrar:'); readln(n); if (n>=3) and (n<=40) then begin for i:=3 to n do begin clrscr; write('Cadastro de Alunos'); writeln; writeln; write('Matricula: '); read(Reg_Vet[i].matricula); writeln; write('Nome: '); read(Reg_Vet[i].nome); writeln; write('Telefone: '); read(Reg_Vet[i].tel); writeln; end; begin clrscr; writeln('OS DADOS INSERIDOS FORAM'); for i:=3 to n do begin writeln; write('Matricula: '); writeln(Reg_Vet[i].matricula); writeln; write('Nome: '); writeln(Reg_Vet[i].nome); writeln; write('Telefone: '); writeln(Reg_Vet[i].tel); writeln; end; end end else begin writeln('VALOR INVÁLIDO'); end; end.
  10. Pascal Lista Encadeada feita em Pascal

    Olá pessoal, gostaria de pedir ajuda em uma questão em pascal que estou fazendo. A questão pede o seguinte: “Crie um programa em PASCAL que realize o cadastro de alunos de uma escola. Primeiramente, o programa deverá ler um valor válido para a variável n no intervalo [3,40], a qual indicará a quantidade de alunos a serem lidos. Cada aluno precisa ter os seguintes dados (registro): (i) matrícula - integer; (ii) nome – 30 caracteres; (iii) telefone – 20 caracteres. Os dados deverão ser armazenados em uma lista encadeada, cuja a inserção de cada elemento deverá ser no início da lista. Após a conclusão do cadastro dos alunos na lista, exibir os dados de todos os n alunos percorrendo a lista encadeada.” Eu já fiz uma parte do código, entretanto, não sei como fazer uma lista encadeada e já fiz várias pesquisas na net mas nenhumas delas realmente me ajudou. Outro problema que estou encontrando em relação ao meu código é que ele não mostra todos os valores cadastrados no vetor apenas o ultimo que foi digitado. Segue o código: Program calcula_a_media ; var n,matricula,i:integer; nome:string[30]; tel:string[20]; vetor: array[3…40] of integer; Begin writeln(Digite a quantidade de alunos:'); read(n); for i:= 3 to n do begin writeln('###################); writeln('Digite a matricula'); read(matricula); writeln('Digite o nome'); read(nome); writeln('Digite o telefone'); read(tel); end; writeln(''); writeln('#################'); writeln('Alunos cadastrados:'); writeln(''); for i:=3 to n do begin writeln('Matricula:',matricula); writeln('Nome:',nome); writeln('Telefone',tel); writeln(''); end; End. Por fim, preciso de ajuda para criar uma lista encadeada e mostrar todos as informações cadastradas no vetor. Se possivel alguem pode me ajuda?
  11. Pascal Multibanco em PaSCAL pls

    olá eu sou um burro a pascal e preciso urgentemente que alguém me ajude a fazer uma caixa eletrónica em Pascal para trabalho final de curso equanto aguardo a mudança de disciplina Me ajudem !!! Projeto1_APL_INF_B.pdf
  12. Pascal ja consegui já arrumei

    Então preciso de uma força que eu possa digitar a palavra,mostrar a dica e tem em torno de 3 erros para perder. Pode ser bem simples só pra eu entender como funciona o verificador de palavras. Todas as outras que achei aqui já tinham palavras salvas e preciso de uma que eu digite a palavra e a dica.
  13. Pascal Dados em uma mesma linha

    Boa noite! Como eu faço para inserir vários dados em uma mesma linha na hora que o algoritmo está rodando? Por exemplo, preciso que o usuário digite 5 números, mas não quero que fique saindo de uma linha para outra, mas que fique a instrução na mesma linha e o usuário digitando os dados nela.
  14. Olá alguém pode me ajudar nesta situação. Algoritmo para entrar com 15 números e mostrar na tela a raiz quadrada de cada número informado?
  15. Program Pzim ; var x,y:integer; Begin y:= 30; x := y; repeat begin readkey; if readkey = #65 then begin x := x -1; end else if readkey = #68 then begin x := x +1; end else if readkey = #83 then begin y := y +1; end else if readkey = #87 then begin y := y -1; end; write ('X'); gotoxy (x,y); end; End. O programa aponta que o ultimo "END" não deveria existir, é um código tão curto e não consigo enxergar o problema, alguém ai consegue? "Erro sintático na linha 32..." " 'END' não esperado!" adicionado 1 minuto depois faltou o until adicionado 1 minuto depois filha da ***** adicionado 1 minuto depois sou um *****
  16. Pascal Erro que não percebo

    Olá. Estou a fazer um programa em Pascal: "Escreva um programa para ler 2 notas de um aluno, calcular e imprimir a média final. Logo após escrever a mensagem "Calcular a média de outro aluno [S ]im [N ]ão?" e solicitar um resposta. Se a resposta for "S", o programa deve ser executado novamente, caso contrário deve ser encerrado imprimindo a quantidade de alunos aprovados.". eu tenho o seguinte: Program aprovacaoalunos ; var n, m: real; r: char; Begin writeln('Qual a primeira nota do(a) aluno(a)'); read(n); m:=n; writeln('Qual a segunda nota do(a) aluno(a)'); read(n); m:=(m+n)/2; writeln('Calcular a média de outro aluno im [N]ão?); readln(r); while (r=S or r=s) do begin writeln('Qual a primeira nota do(a) aluno(a)'); read(n); m:=n; writeln('Qual a segunda nota do(a) aluno(a)'); read(n); m:=(m+n)/2; writeln('Calcular a média de outro aluno im [N]ão?); read(r); end End. Eles diz: =>Erro sintático na linha 16... =>'QUAL' não esperado! Não percebo porquê... Se me pudessem ajudar...
  17. 15. Leia dois valores inteiros (A e B e apresente o resultado do quadrado da soma dos valores lidos. 16. Leia dois valores inteiros (A e B e apresente o resultado da soma do quadrado de cada valor lido. 17. Leia dois números nas variáveis Val1 e Val2, calcule sua média na variável Media e imprima seu valor. 18. Leia dois números nas variáveis NumA e NumB, nessa ordem, e imprima em ordem inversa, isto é, se os dados lidos forem 5 e 9, por exemplo, devem ser impressos na ordem 9 e 5. 19. Leia a velocidade de um veículo em km/h e calcule e imprima a velocidade em m/s (metros por segundo). 20. Faça um aplicativo que leia dois números inteiros (Int1 e Int2) e imprima o quociente e o resto da divisão inteira de Int1 por Int2. 21. Elaborar uma tabuada de um número qualquer fornecido pelo usuário. Multiplique-o pelo valor indicado pelo usuário para o INICIO (INI) e FIM (FIM) do LOOP. 22. Com Nome (NO) e SALário (SAL) de 8 funcionários, calcule um aumento de salário de 6% para quem ganha menos de R$ 1000, e um aumento de 3% para quem ganha acima disso. Mostre no final o Nome, SALário e Novo SALário (NSAL). 23. Ler 50 valores (VAL) quaisquer e identifique se o numero é negativo e mostre o seu valor. 24. Faça um programa para contar os números de um valor fornecido pelo usuário de INICIO e FIM, porém, mostre a contagem de trás para frente. 25. Ler 10 valores quaisquer e identifique se este valor é PAR ou IMPAR, informando com mensagem. (Obs.: Use o MOD) 26. Com a teoria do LOOP analise o desenho abaixo e monte um programa para imprimir o desenho: +----+------------------+-----------------+ |No. |Produto |Valor (R$) | +----+------------------+-----------------+ | 1 | | | | 2 | | | | 3 | | | | 4 | | | | 5 | | | | 6 | | | | 7 | | | | 8 | | | | 9 | | | | 10 | | | +----+------------------+-----------------+ 27. Salário: A folha de pagamento de uma empresa é criada a partir das seguintes informações: Nome, Salário base, Número de horas trabalhadas e o N0 de dependentes. Considerando que a empresa paga R$ 100,00 por hora e R$ 50.00 por dependentes, e do Salário base desconta 9,0% para o INSS e 5% para IR, faça um programa para calcular e escrever (dentro do loop) o Nome, Salário base, Salário bruto, Valores descontados e finalmente qual o Salário líquido de cada funcionário. 28. Cidades: Foi realizado um levantamento nas cidades do Sul, para serem apurados algumas informações. A planilha de pesquisa, consta as seguintes perguntas: • Nome do Entrevistado; • Sexo; • Idade; • Peso; • Altura; • Cidade onde nasceu. Com os dados apurados na pesquisa realizada com X pessoas, forneça um relatório (impressão/mostre) com os seguintes itens: a. A quantidade de pessoas por sexo; b. A soma de todos os pesos; c. A soma de todas as alturas; d. A soma das idades das pessoas de CRICIÚMA; e. Quantas pessoas são de SIDERÓPOLIS; f. A média de idade das pessoas com peso superior a 80 Kg; g. Quantas pessoas tem altura superior a 1.70, são de FORQUILHINHA e tem idade inferior a 30 anos; h. A média de idade de todas as pessoas; i. A média de Peso e de Altura das pessoas com a idade inferior a 20 anos; j. A quantidade de pessoas do sexo Feminino que moram em CRICIÚMA ou SIDERÓPOLIS. 29. Escrever um algoritmo/programa em Pascal que escreve a soma dos números pares entre 0 e 100. 30. Escreva um programa que verifique a validade de uma senha fornecida pelo usuário. A senha válida é o número ‘root’. Devem ser impressas as seguintes mensagens: • ACESSO PERMITIDO caso a senha seja válida. • ACESSO NEGADO caso a senha seja inválida
  18. Pascal Conexão via API do MySQL

    Saudações a todos, Costumo utilizar o Lazarus como IDE de desenvolvimento, e em sua documentação consta um exemplo de acesso ao servidor MySQL através de sua API. Ocorre que esse exemplo aborda a versão 4.0 (que está bastante defasada). A titulo de curiosidade, segue abaixo as partes mais importantes do código: program MySql_Conn; uses mysql4; const DataBase : Pchar = 'testdb'; Query : Pchar = 'Select * from Banco_de_Dados'; Host : Pchar = 'localhost'; User : Pchar = 'Usuario'; Passwd : Pchar = 'Senha'; var count, num : longint; code : integer; sock : PMYSQL; qmysql : TMYSQL; qbuf : String[160]; rowbuf : TMYSQL_ROW; dummy : string; recbuf : PMYSQL_RES; alloc : PMYSQL; begin if paramcount = 1 then begin Dummy := paramstr(1)+#0; DataBase := @Dummy[1]; end; alloc := mysql_init(PMYSQL(@qmysql)); {Inicia um objeto MYSQL necessario a chamada da função: mysql_real_connect} sock := mysql_real_connect (alloc, host, user, passwd, DataBase, 0, nil, 0); // Importante if sock = nil then begin writeln(stderr,'Nao foi possivel conectar ao MySql'); halt(1); end; if mysql_select_db(sock,DataBase) < 0 then {} begin writeln(stderr,'Nao foi possivel selecionar o Banco ',DataBase); halt(1); end; writeln('Executando consulta: ',Query,'...'); if (mysql_query(sock,Query) < 0) then begin writeln(stderr,'Query failed'); writeln(stderr,mysql_error(sock));{Retorna o erro ocorrido na chamada anterior} halt(1); end; recbuf := mysql_store_result(sock); {Armazena o resultado completo de uma consulta bem sucedida} if RecBuf = nil then begin writeln('Consulta retornou resultado nulo.'); mysql_close(sock); halt(1); end; writeln('Liberando a memoria alocada pelo conjunto resultado ...'); mysql_free_result(recbuf);{Libera a memória ocupada pelo: mysql_store_result} writeln('Fechando a conexao com o MYSQL'); mysql_close(sock); {Fecha a conexão} halt(0); end. Como pôde ser visto, o código acima usa a biblioteca "mysql4'. Gostaria de saber como acessar a API das versões mais recentes do MySQL, especificamente a versão 5.5 considerando que o Lazarus possui a biblioteca "mysql55". PS.: Não me interessa usar os componentes "SQLdb" nem Zeus. Agradeço a quem puder me ajudar.
  19. 1. Escreva um programa em Pascal que calcula o valor a ser pago na matrícula de um aluno. Para tanto, o programa deve pedir ao usuário o código do curso e o turno desejado (M = Matutino, V = Vespertino, N = Noturno). A escola oferece os seguintes cursos: Os valores da tabela acima referem-se ao turno matutino. Caso o aluno deseje estudar no turno vespertino, a escola oferece 10% de desconto no valor da matrícula, em relação ao turno matutino. Caso o turno escolhido seja o turno noturno a matrícula sofre um acréscimo de 15%, em relação ao turno matutino. Caso o curso informado não seja um número de 1 a 5 ou o turno informado seja diferente M, V ou N, o programa deve emitir uma mensagem informando que os valores são inválidos.
  20. Pascal erro - '$' não especificado

    Olá galera, estou fazendo um curso e me foi passado um problema ao qual pesquisei muito, porém na hora da execução está dando o seguinte erro: =>erro sintático na linha 216 =>'$' não especificado! segue o código para que vocês possam me ajudar. desde já agradeço. program Calculadora; //uses Crt; // {Função: Calcular} // {Autor: MaxMediros} // {Data: 18/10/2017} function sqr( x,y :real ) : real; var decidir,decidir2: string; x, y, valor1, valor2, a, b, c, delta: real; final: string; begin Final := 'Sim'; while (final = 'sim') do begin writeln ('|Digite 1 Para ADIÇÃO |'); writeln ('|Digite 2 Para SUBTRAÇÃO |'); writeln ('|Digite 3 Para DIVISÃO |'); writeln ('|Digite 4 Para MULTIPLICAÇÃO |'); writeln ('|Digite 5 Para BHASKARA |'); writeln ('|Digite 6 Para PORCENTAGEM |'); writeln ('|Digite 7 Para POTÊNCIA |'); writeln ('|Digite 8 Para ÁREAS |'); writeln ('|Digite 9 Para RAÍZ |'); writeln ('|Digite 10 Para Sair |'); readln (decidir); end; ClrScr; if (decidir = '10') then begin writeln ('Finalizando Programa...'); end; if (decidir = '2') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor de y:'); readln (y); valor1 := (X - Y); writeln ('O resultado é:', valor1); end; if (decidir = '1') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor de y:'); readln (y); valor1 := (X + Y); writeln ('O resultado é:', valor1); end; if (decidir = '4') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor de y:'); readln (y); valor1 := (X * Y); writeln ('O resultado é:', valor1); end; if (decidir = '3') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor de y:'); readln (y); valor1 := (X / Y); writeln ('O resultado é:', valor1); end; if (decidir = '7') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor do Expoente:'); readln (y); valor1 := ( sqr((y),(Y))); writeln ('O resultado é: ', valor1); end; if (decidir = '6') then begin writeln ('Digite a Porcentagem de X:'); readln (x); writeln ('Digite o Valor de X:'); readln (y); Valor1 := (x / 100); Valor2 := (Valor1 * y); writeln ('O resultado é:', valor2); end; if (decidir = '9') then begin writeln ('Digite a Raiz:'); readln (y); valor1 := (RaizQ (y)); writeln ('O resultado é:', valor1); end; if (decidir = '5') then begin writeln ('Digite o valor de A: '); readln (a); writeln ('Digite o valor de B: '); readln (b); writeln ('Digite o valor de C: '); readln (c); delta :=(bsqr(readln (c),2))-(4*a*c); valor1 := ((-b) + (RaizQ(delta)))/(2*a); valor2 := ((-b) - (RaizQ(delta)))/(2*a); writeln ('Delta:', delta); writeln ('x1:', valor1); writeln ('X2:', valor2); end; if (Decidir = '8') then begin writeln ('Qual dessas áreas desejas:'); writeln (' a) Paralelepípedo;'); writeln (' Triângulo;'); writeln (' c) Quadrado;'); writeln (' d) Circunferência;'); writeln (' e) Cubo;'); writeln (' f) Cone;'); writeln (' g) Voltar ao menu inicial'); readln (decidir2); end; if (decidir2 = 'a') then begin writeln ('Digite o valor de A:'); readln (a); writeln ('Digite o valor de B:'); readln (b); writeln ('Digite o valor de C:'); readln (c); // {at = 2 (ab + bc + ac)}; valor1 := (a*b) + (b*c) + (a*c); valor2 := (2 * valor1); writeln ('A área total é:', valor2); end; if (decidir2 = 'b') then begin writeln ('Digite o valor da Base:'); readln (a); writeln ('Digite o valor da Altura:'); readln (b); valor1 := (a*b / 2); // {V = B * H /2}; writeln ('A área total é:', valor1); end; if (decidir2 = 'c') then begin writeln ('Digite o valor do Lado: '); readln (a); valor1 := (a*a); // { Lado²}; writeln ('Área total:', valor1); end; if (decidir2 = 'd') then begin writeln ('Digite o valor do Raio:'); readln (a); alor1 := (a*a) * 3.14; // { At = Pi * Raio²} writeln ('Área total:', valor1); end; if (decidir2 = 'e') then begin writeln ('Digite o valor do Lado:'); readln (a); valor1 := (a*a) * 6 ; // {6*Lado²}; writeln ('A área total é:', valor1); end; if (decidir2 = 'f') then begin writeln ('Digite o valor do Raio:'); readln (a); writeln ('Digite o valor da Geratriz:'); readln (b); valor1 := ((3.14 * a) * (b + a)); // {Pi * r (g+ r)}; writeln ('A área total é:', valor1); end; if ((decidir <> '1') and (decidir <> '2') and (decidir <> '9') and (decidir <> '3') and (decidir <> '4') and(decidir <> '5') and (decidir <> '6') and (decidir <> '7') and (decidir <> '8')) then begin writeln ('Operação inexistente'); end; writeln ('Queres continuar?'); readln (Final); {Fimenquanto} writeln ('Finalizando...'); end.
  21. Oii, eu estou precisando muito da resolução desse programa pois não consigo fazeeer ele é assim: Faça um Programa em Pascal que leia uma matriz M(5x4) e faça a chamada de um subprograma que receba uma matriz, um valor para linha e um valor para coluna e retorne uma matriz N, onde N é M sem a linha e a coluna recebida como parâmetro. Por exemplo, se o usuário pedir para eliminar a linha 2 e a coluna 3 a nova matriz(4x3) tem que ser mostrada sem as tais linha e coluna. Por favor, se alguém conseguir fazer me ajude.
  22. Pascal Menu de Pascal sem retorno

    Fala pessoal eu sou o Patch, durante meu programa de fim de ano de pascal eu me encontrei com um erro estranho no código, ele rodava o menu apenas uma vez e depois o mesmo saia do programa por razao nenhuma, e sim o meu código estava correto, o programa saia sem os requerimentos do until serem preenchidos segue o código a seguir: Alguém me explica o por que do erro, eu comentei a parte que faltava pro código funcionar corretamente. program trabestevan; type ficha = record nome,Genero,cpf : string; idade,qtdEnd,qtdTel: integer; endereco:array [1..3] of string; telefone:array [1..3] of string; end; var Pessoa : array [1..100] of ficha; finish,sel,margem,escolha,Psel,qtdEnd,qtdTel : integer; begin margem:=0; finish:=1; // SEM ESTA LINHA NO CODIGO O PROGRAMA EXECUTAVA A OPCAO 1 E SAIA SOZINHO IGNORANDO O REPEAT AI EU COLOQUEI ISSO E RESOLVEU MAS POR QUE? repeat writeln('Bem Vindo ao Programa de Agenda'); writeln('Menu :'); writeln('1 - Cadastrar Nova Pessoa'); writeln('2 -Cadastrar Endereço Extra'); writeln('0 - Sair do Programa'); readln(sel); while (sel < 0) or (sel > 2) do begin writeln('Menu :'); writeln('1 - Cadastrar Nova Pessoa'); writeln('2 -Cadastrar Endereço Extra'); writeln('0 - Sair do Programa'); readln(sel); end; if (sel = 1) then begin margem:= margem + 1; writeln('Insira o Nome da nova Pessoa a ser Cadastrada :'); readln(Pessoa[margem].nome); writeln('Insira o Endereço :'); Pessoa[margem].qtdEnd:=1; qtdEnd:=1; qtdTel:=1; readln(Pessoa[margem].endereco[qtdEnd]); Pessoa[margem].qtdTel:=1; writeln('Insira o Telefone, "(xx) xxxxx-xxxx "'); readln(Pessoa[margem].telefone[qtdTel]); writeln('Insira seu CPF, "xxx.xxx.xxx-xx"'); readln(Pessoa[margem].cpf); writeln('Insira a Idade'); readln(Pessoa[margem].idade); writeln('Selecione o Sexo'); writeln('1- Masculino'); writeln('2- Feminino'); readln(escolha); while (escolha <=0) or (escolha > 2) do begin writeln('Selecione o Sexo'); writeln('1- Masculino'); writeln('2- Feminino'); readln(escolha); end; if (escolha = 1) then begin Pessoa[margem].genero:= 'Masculino'; end else if (escolha = 2) then begin Pessoa[margem].genero:='Feminino'; end; end else if (sel = 2) then begin writeln('Número de Pessoas Cadastradas: ',margem); writeln('Insira a Posição Numérica da pessoa que irá receber o Novo Endereço :'); readln(Psel); while (Psel < 1) or (Psel > margem) do begin writeln('Numero não existe no vetor'); writeln('Insira a Posição Numérica da pessoa que irá receber o Novo Endereço :'); readln(Psel); end; qtdEnd:= Pessoa[Psel].qtdEnd; if (qtdEnd = 3) then begin writeln('Esta Pessoa já Possui o Máximo de Endereços no Servidor'); end else if (qtdEnd < 3) then begin qtdEnd:= qtdEnd + 1; Pessoa[Psel].qtdEnd:= qtdEnd; writeln('Insira o Novo Endereço'); readln(Pessoa[Psel].endereco[qtdEnd]); end; end else if (sel = 3) then begin writeln('Insira o Numéro de Usuário que terá o Novo Telefone Adicionado a Conta'); readln(Psel); while (Psel < 0) or (Psel > margem) do begin writeln('Pessoa Não consta em Nosso Vetor'); writeln('Insira o Numéro de Usuário que terá o Novo Telefone Adicionado a Conta'); readln(Psel); end; qtdTel:= Pessoa[Psel].qtdTel; if (qtdTel = 3) then begin writeln('Usuário Já Possui o Máximo de Telefones'); end else if (qtdTel < 3) then begin qtdTel:= qtdTel + 1; Pessoa[Psel].qtdTel:= qtdTel; writeln('Insira o Novo Número de Telefone'); readln(Pessoa[Psel].telefone[qtdTel]); end; end else if (sel = 0) then begin finish:=0; end; writeln('Pressione qualquer tecla pra continuar'); readln(); until (finish=0); end.
  23. Pascal Estrutura de repetição (for)

    Pessoal, preciso de uma ajuda na seguinte questão: Escrever um algoritmo, que leia um conjunto de 23 dados, cada um, contendo o peso e o código do sexo ("F" ou "M") dos alunos de uma classe, calcule e imprima: - Maior e o menor peso da turma; - A média de peso dos homens; - A média de peso da turma; Estou com problema pra achar as médias. Tentei de várias formas e nada. Segue código: Program Peso_da_Turma; Var i: integer; peso, menor, maior, outroPeso, pesoHomem, mediaTurma, mediaHomens: real; sexo: string; Begin textcolor (yellow); writeln ('Pesos da turma. Digite f para feminino e m para masculino.'); writeln (' '); textcolor (white); write ('Entre com o 1º peso: '); readln (peso); write ('Entre com o sexo: '); readln (sexo); menor:= peso; maior:= peso; for i:= 2 to 5 do //até 5 para testar. begin textcolor (white); write ('Entre com o ' , i , ' º peso: '); readln (peso); write ('Entre com o sexo: '); readln (sexo); begin if (sexo = 'm') then pesoHomem:= peso end; if (peso < menor) then menor:= peso else if (peso > maior) then maior:= peso else outroPeso:= peso; end; mediaTurma:= (outroPeso + menor + maior) / 5; mediaHomens:= pesoHomem / 5; writeln ('Menor peso é de: ' , menor); writeln ('Maior peso é de: ' , maior); writeln ('A média de peso da turma é: ' , mediaTurma); writeln ('A média de peso dos homens é: ' , mediaHomens); readkey; End.
  24. - Fazer um algoritmo para calcular a média aritmética de um conjunto de valores inteiros, positivos e maiores que zero. (considere o valor zero como finalizador do programa). Eu fiz desse jeito gostaria de saber se está certo. Program Lista3_9; //Agora vou declarar as variáveis Var D,numero1,media:integer; //Área de lógica Begin Writeln('Escola Técnica de Brasília - ETB'); Writeln('Técnico em Informática'); Writeln('Lógica de Programação'); Writeln('Professor: Pedro'); Writeln('Autor: Denis Alves'); Writeln('Data: 15/09/2017'); Writeln (' _________________________________________________'); Writeln ('| |'); Writeln ('| Números inteiros e mostrar a média aritimética |'); Writeln ('|_________________________________________________|'); Writeln(' '); Writeln(' '); Writeln(' '); numero1 := 1; for d := 1 to 4 do begin if (numero1 <= 0)then writeln ('Zero digitado saindo!') else begin write ('Digite o ',d,'o número: '); readln (numero1); media := media+numero1; writeln (' '); end; end; writeln ('A media aritimética dos números informados é: ',media/4:0:2); End.
  25. Program Lista3_5; //Agora vou declarar as variáveis Var D,n1,n2,n3,n4,grupo1:integer; //Área de lógica Begin Writeln('Escola Técnica de Brasília - ETB'); Writeln('Técnico em Informática'); Writeln('Lógica de Programação'); Writeln('Professor: Pedro'); Writeln('Autor: Denis Alves'); Writeln('Data: 15/09/2017'); Writeln(' '); Writeln(' '); Writeln('Mostrar números na ordem crescente e decrescente'); Writeln(' '); for d := 1 to 5 do begin write ('Digite o primeiro número: '); readln (n1); write ('Digite o segundo número: '); readln (n2); write ('Digite o terceiro número: '); readln (n3); write ('Digite o quarto número: '); readln (n4); writeln (' '); if (n1 = n2) or (n1 = n3) or (n1 = n4)or (n2 = n3) or (n2 = n4) or (n3 = n4) then begin writeln ('Números iguais.'); writeln (' '); end else begin for grupo1 := 1 to 1 do writeln (' '); writeln ('O ',d,'o Grupo =',n1,n2,n3,n4); writeln (' '); if (n1 < n2) and (n2 < n3) and (n3 < n4) then writeln ('Os números em ordem crescente são: ', n1,' , ',n2,' , ',n3, ' , ',n4); if (n1 < n2) and (n2 < n4) and (n4 < n3) then writeln ('Os números em ordem crescente são: ', n1,' , ',n2,' , ',n4, ' , ',n3); if (n1 < n3) and (n3 < n2) and (n2 < n4) then writeln ('Os números em ordem crescente são: ', n1,' , ',n3,' , ',n2, ' , ',n4); if (n1 < n3) and (n3 < n2) and (n4 < n2) then writeln ('Os números em ordem crescente são: ', n1,' , ',n3,' , ',n4, ' , ',n2); if (n1 < n4) and (n4 < n2) and (n2 < n3) then writeln ('Os números em ordem crescente são: ', n1,' , ',n4,' , ',n2, ' , ',n3); if (n1 < n4) and (n4 < n3) and (n3 < n2) then writeln ('Os números em ordem crescente são: ', n1,' , ',n4,' , ',n3, ' , ',n2); if (n2 < n1) and (n1 < n3) and (n3 < n4) then writeln ('Os números em ordem crescente são: ', n2,' , ',n1,' , ',n3, ' , ',n4); if (n2 < n1) and (n1 < n4) and (n4 < n3) then writeln ('Os números em ordem crescente são: ', n2,' , ',n1,' , ',n4, ' , ',n3); if (n2 < n3) and (n3 < n1) and (n1 < n4) then writeln ('Os números em ordem crescente são: ', n2,' , ',n3,' , ',n1, ' , ',n4); if (n2 < n3) and (n3 < n4) and (n4 < n1) then writeln ('Os números em ordem crescente são: ', n2,' , ',n3,' , ',n4, ' , ',n1); if (n2 < n4) and (n4 < n1) and (n1 < n3) then writeln ('Os números em ordem crescente são: ', n2,' , ',n4,' , ',n1, ' , ',n3); if (n2 < n4) and (n4 < n3) and (n3 < n1) then writeln ('Os números em ordem crescente são: ', n2,' , ',n4,' , ',n3, ' , ',n1); if (n3 < n1) and (n1 < n2) and (n2 < n4) then writeln ('Os números em ordem crescente são: ', n3,' , ',n1,' , ',n2, ' , ',n4); if (n3 < n1) and (n1 < n4) and (n4 < n2) then writeln ('Os números em ordem crescente são: ', n3,' , ',n1,' , ',n4, ' , ',n2); if (n3 < n2) and (n2 < n1) and (n1 < n4) then writeln ('Os números em ordem crescente são: ', n3,' , ',n2,' , ',n1, ' , ',n4); if (n3 < n2) and (n2 < n4) and (n4 < n1) then writeln ('Os números em ordem crescente são: ', n3,' , ',n2,' , ',n4, ' , ',n1); if (n3 < n4) and (n4 < n1) and (n1 < n2) then writeln ('Os números em ordem crescente são: ', n3,' , ',n4,' , ',n1, ' , ',n2); if (n3 < n4) and (n4 < n2) and (n2 < n1) then writeln ('Os números em ordem crescente são: ', n3,' , ',n4,' , ',n2, ' , ',n1); if (n4 < n1) and (n1 < n2) and (n2 < n3) then writeln ('Os números em ordem crescente são: ', n4,' , ',n1,' , ',n2, ' , ',n3); if (n4 < n1) and (n1 < n3) and (n3 < n2) then writeln ('Os números em ordem crescente são: ', n4,' , ',n1,' , ',n3, ' , ',n2); if (n4 < n2) and (n2 < n1) and (n1 < n3) then writeln ('Os números em ordem crescente são: ', n4,' , ',n2,' , ',n1, ' , ',n3); if (n4 < n2) and (n2 < n3) and (n3 < n1) then writeln ('Os números em ordem crescente são: ', n4,' , ',n2,' , ',n3, ' , ',n1); if (n4 < n3) and (n3 < n1) and (n1 < n2) then writeln ('Os números em ordem crescente são: ', n4,' , ',n3,' , ',n1, ' , ',n2); if (n4 < n3) and (n3 < n2) and (n2 < n1) then writeln ('Os números em ordem crescente são: ', n4,' , ',n3,' , ',n2, ' , ',n1); writeln (' '); end; end; End. Não estou conseguindo usar o for só consigo desenvolver com if e ainda só na ordem crescente. essa é a questão: 1. Faça um programa que leia cinco grupos de quatro valores (A, B, C, D) e mostre-os na ordem lida. Em seguida, organize-os em ordem crescente e decrescente.

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

×