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 23 registros

  1. 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 *****
  2. 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...
  3. 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
  4. 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.
  5. 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.
  6. 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.
  7. 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.
  8. 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.
  9. 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.
  10. - 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.
  11. 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.
  12. Program exercicio_lista1_1 ; var n1,n2,n3,n4,media:real; nota_final:integer; Begin Write ('Escreva a primeira nota de zero a dez:'); readln (n1); Write ('Escreva a segunda nota de zero a dez:'); readln (n2); Write ('Escreva a terceira nota de zero a dez:'); readln (n3); Write ('Escreva a quarta nota de zero a dez:'); readln (n4); media := (n1+n2+n3+n4)/4; nota_final := round (media); writeln (' '); writeln (' '); case nota_final of 0..7 : begin writeln ('As notas informadas foram: ',n1:0:2,' , ',n2:0:2,' , ',n3:0:2,' e ',n4:0:2 ); writeln ('A média do aluno é: ', nota_final); writeln (' O aluno está Reprovado!'); writeln ('Informe notas de zero a dez!'); end; 7..10 : begin writeln ('As notas informadas foram: ',n1:0:2,' , ',n2:0:2,' , ',n3:0:2,' e ',n4:0:2 ); writeln ('A média do aluno é: ', nota_final); writeln (' O aluno está Aprovado!'); end; else writeln ('Informe notas de zero a dez!'); end; end. Fiz esse código básico em pascal ele está rodando normalmente mas, o que eu gostaria de saber é se tem uma maneira de não executar o restante do código se digitar um numero maior que dez. tipo esse else ai só funciona se o valor da Nota_Final for maior que dez.
  13. Pascal Laço com condição.

    Pessoal, estou criando um programa, a pedido do professor para que fizessemos uma espécie de medidor de multas: Se um carro passa a mais de 60km a multa é de R$100 MAS se ele passar com +60km é acrescido R$2,00 ou seja= 60km=R$100 61km=R$102 62km=R$104 E não faço ideia de como fazer essa condição de aumento a cada 1 km...
  14. Program media_alunos; uses crt; type Ponteiro = ^ TAluno; TLista = record prim : Ponteiro; ultm : Ponteiro; end; TAluno = record matricula : integer; media : REAL; prox : Ponteiro; end; procedure iniciaLista(var list : TLista); begin list.prim := nil; list.ultm := nil; end; var lista : TLista; n1, n2, n3 : REAL; aluno : TAluno; opcao : Char; procedure cadastrar(); var inicio,anda,paux:Ponteiro; opcaoc:Char; begin iniciaLista(lista); inicio:=nil; anda:=nil; repeat if inicio=nil then begin new(inicio); writeln('Digite a matricula:'); readln(inicio^.matricula); writeln('Digite a nota 1:'); readln(n1); writeln('Digite a nota 2:'); readln(n2); writeln('Digite a nota 3:'); readln(n3); inicio^.media:=n1+n2+n3/3; inicio^.prox:=nil; lista.prim:=inicio; end else begin new(anda); writeln('Digite a matricula'); readln(anda^.matricula); writeln('Digite a nota 1:'); readln(n1); writeln('Digite a nota 2:'); readln(n2); writeln('Digite a nota 3:'); readln(n3); anda^.media:=n1+n2+n3/3; anda^.prox:=nil; lista.prim:=anda; end; writeln('Deseja continuar? <s/n>'); readln(opcaoc); until opcaoc='n'; end; procedure pesquisar(); begin end; procedure mostrarAprovados(); begin end; procedure mostrarReprovados(); begin end; procedure mostrarProvaFinal(); begin end; procedure mostrarTodos(); begin end; procedure destruirLista(var inicio : Ponteiro); begin dispose(inicio); writeln('Memória desalocada com sucesso!'); end; begin repeat writeln; writeln('1. Cadastrar Aluno 2. Pesquisar Aluno'); writeln('3. Mostrar Aprovados 4. Mostrar Reprovados'); writeln('5. Mostrar Prova Final 6. Mostrar Todos'); writeln('0. Sair'); writeln('Escolha a opção: '); opcao := readkey; case opcao of '1': cadastrar; '2': pesquisar; '3': mostrarAprovados; '4': mostrarReprovados; '5': mostrarProvaFinal; '6': mostrarTodos; else writeln('Opção Invalida !'); end; until (opcao = '0'); writeln; write('Destruindo a lista...'); destruirLista(lista.prim); end.
  15. Bom dia pessoal. Tenho algumas dúvidas sobre um programa que estou estudando em um livro. O programa não consegue compilar porque dá erro erro sintático na linha 48, else não esperado. O código foi copiado exatamente como está no livro. {Programa para efetuar uma pesquisa binária de nomes em uma referida matriz} Program Pesquisa_binaria; var NOME: array[1..10] of string; I,J: integer; comeco,final,meio:integer; pesq,resp,X: string; acha: boolean; Begin writeln ('Pesquisa binária de nomes'); writeln; for I:=1 to 10 do begin write ('Digite o ', I:2, 'o. nome'); readln (NOME[I]); {Ordenação} for I:=1 to 9 do for J:= I+1 to 10 do if (NOME[I]> NOME [J]) then begin X:= NOME [I]; NOME [I]:= NOME[J]; NOME[J]:= X; end; {Trecho de pesquisa} resp:= 'SIM'; While (resp='Sim') or (resp='sim') do begin writeln; write('Entre com o nome a ser pesquisado:'); comeco:= 1; final:= 10; acha:= false; while (comeco <=final) and (acha = false) do begin meio:= (comeco+final) div 2; if (pesq=nome[meio]) then acha:= true else if (pesq< nome[meio]) then final:= meio-1 else comeco:=meio+1; end; if (acha=true) then; writeln(pesq, 'foi localizado na posição', meio:2) else writeln (pesq, 'Não foi localizado'); write('Deseja continuar? Sim/Não:'); readln (resp); readkey; End.
  16. Opa galera, sou novo aqui no fórum e estou começando a aprender PASCAL e estou com uma dúvida muito simples, nesse exercício: 1) Receba a quantidade de pesos de N pessoas. N representa essa quantidade e deve ser digitada pelo usuário. A variável Peso armazena cada um do K pesos digitados. Calcule e mostre o produto e a somatória desses pesos. Eu já sei que eu preciso usar o for to do, meu problema é em como salvar todos os pesos para somar e multiplicar depois. Me ajudem!!
  17. Pascal Comando em pascalzim

    Alguém pode me ajudar com a utilização do comando "gotoxy" no pascalzim?
  18. Pascal Importância do Pascal ?

    qual a sua principal utilidade profissionalmente na atualidade, onde é muito utilizada ainda, e como ajudaria para complemento de algo para futuras linguagens de programação?
  19. Pascal Arquivos no Pascalzim

    Olá, tenho uma dúvida sobre como criar um arquivo a partir de outro arquivo dentro do meu programa, respeitando certas condições, por exemplo nesse exercício. 1- O arquivo C:\EMPRESAS.DAT deve ter armazenados os dados seguintes de um conjunto de empresas: *CNPJ(string com 14 dígitos) *RAZÃO SOCIAL(o nome da empresa) *PO(pessoal ocupado, que representa o número de pessoas assalariadas na empresa) *RENDA LÍQUIDA ANUAL DA EMPRESA Faça um programa que tenha um menu com as opções de criar, inserir dados e abrir esse arquivo de empresas, verifique quais são as empresas altamente rentáveis e grave os dados dessas empresas em um novo arquivo, denominado E:\RENTAVEL.DAT. Além da gravação, seu programa deve informar na tela quantos dados(registros) foram lidos do arquivo E:\EMPRESAS.DAT, e quantos foram escritos no arquivo E:\RENTAVEL.DAT. Deverão ser consideradas altamente rentáveis todas as empresas cuja razão entre a RENDA LÍQUIDA ANUAL e o PO seja maior ou igual a R$1.200.000,00. Como faço um programa desse tipo, de jogar determinados registros do arquivo, em outro arquivo?
  20. Pascal program: consumo de energia. (pascal)

    Não estou conseguindo processar os dados para entregar os relatórios do seguinte programa: Fazer uma pesquisa a respeito do consumo mensal de energia elétrica em uma determinada cidade. Para isso são fornecidos os seguintes dados de vários consumidores: * Quantidade de kWh consumidos durante o mês: * código de tipo de consumidor (R - Residencial, C - Comercial, I - industrial) * valor final: Quantidade = 0 e Código = S - sair CALCULAR: *o menor e o maior consumo de consumidor residencial. * o maior consumo dos consumidores comerciais e industriais. * o total de consumo para cada um dos tipos de consumidores. * a média geral de consumo industrial.
  21. 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.
  22. Pascal pascal em português?

    Existe algum compilador pascal onde você possa desenvolver o programa em português? se sim, qual, e link para download por favor!!!
  23. 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.

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

×