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, 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

Encontrado 47 registros

  1. program Central; uses crt; var op:integer; a1, a2, resultad:integer; s1, s2, resultsu:integer; m1, m2, resultmu:integer; d1, d2:integer; r1, r2:integer; resultdi:real; r:real; x:integer; restod:integer; nt:integer; ntresult:integer; poi:integer; n:integer; begin clrscr; gotoxy(1,2); textcolor(lightgreen); write('Inicializando'); for n:= 1 to 55 do begin delay(50); textcolor(lightgreen); write('.'); end; clrscr; gotoxy(26,2); write('SEJA BEM VINDO(A)!'); delay(1500); repeat clrscr; gotoxy(1,2); textcolor(lightblue); write('***CENTRAL DE CÁLCULOS*** by: Gustavo Moura'); textcolor(white); writeln; writeln; writeln; writeln('1 - ADIÇÃO'); writeln('2 - SUBTRAÇÃO'); writeln('3 - MULTIPLICAÇÃO'); writeln('4 - DIVISÃO'); writeln('5 - RAIZ QUADRADA'); writeln('6 - RESTO DA DIVISÃO'); writeln('8 - TABUADA'); writeln('9 - PAR OU IMPAR'); writeln; write('Digite um número como opção/-1 para sair: '); read(op); if op = 1 then begin clrscr; gotoxy(1,2); Write('Digite um número: '); read(a1); writeln; write('Digite outro número para somar: '); read(a2); resultad:=a1+a2; writeln; write('O resultado da soma é: '); textcolor(lightgreen); write(resultad); textcolor(white); writeln; writeln; delay(300); write('Aperte enter para voltar ao menu '); readln; readkey; clrscr; end; if op = 2 then begin clrscr; gotoxy(1,2); Write('Digite um número: '); read(s1); writeln; write('Digite outro número para subtrair: '); read(s2); resultsu:=s1-s2; writeln; write('O resultado da subtração é: '); textcolor(lightgreen); write(resultsu); textcolor(white); writeln; writeln; delay(300); write('Aperte enter para voltar ao menu '); readln; readkey; clrscr; end; if op = 3 then begin clrscr; gotoxy(1,2); Write('Digite um número: '); read(m1); writeln; write('Digite outro número para multiplicar: '); read(m2); resultmu:=m1*m2; writeln; write('O resultado da multiplicação é: '); textcolor(lightgreen); write(resultmu); textcolor(white); writeln; writeln; delay(300); write('Aperte enter para voltar ao menu '); readln; readkey; clrscr; end; if op = 4 then begin clrscr; gotoxy(1,2); Write('Digite um número: '); read(d1); writeln; write('Digite outro número para dividir: '); read(d2); resultdi:= d1/d2; writeln; write('O resultado da divisão é: '); textcolor(lightgreen); write(resultdi:0:2); textcolor(white); writeln; writeln; delay(300); write('Aperte enter para voltar ao menu '); readln; readkey; clrscr; end; if op = 5 then begin clrscr; gotoxy(1,2); write('Digite um número para saber sua raiz quadrada: '); read(x); r:=sqrt(x); writeln; write(' A raiz quadrada de ',x, ' é: '); textcolor(lightgreen); write(r:0:2); textcolor(white); writeln; writeln; delay(300); write('Aperte enter para voltar ao menu '); readkey; readln; clrscr; end; if (op > 9) or (op = 0) or (op = 7) or (op < -1) then begin clrscr; textcolor(red); gotoxy(1,2); write('Número inválido, aperte enter para tentar novamente'); readkey; readln; clrscr; end; if (op = 6) then begin clrscr; gotoxy(1,2); write('Digite um número: '); read(r1); writeln; write('Digite outro número para saber o resto da divisão: '); read(r2); restod:=r1 mod r2; writeln; write('O resto da divisão de ',r1,' e ',r2,' é: '); textcolor(lightgreen); write(restod); textcolor(white); delay(300); writeln; writeln; write('Aperte enter para voltar ao menu '); readkey; readln; clrscr; end; if (op = 8) then begin clrscr; gotoxy(1,2); write('Digite um número para saber sua tabuada: '); read(nt); clrscr; ntresult:=0; gotoxy(1,2); while ntresult < 11 do begin writeln(nt,' x ',ntresult,' = ',nt*ntresult); inc(ntresult); end; writeln; writeln; delay(300); write('Aperte enter para voltar ao menu '); readkey; readln; clrscr; end; if (op = 9) then begin clrscr; gotoxy(1,2); write('Digite um número para saber se é par ou impar: '); read(poi); if (poi mod 2 = 0) then begin clrscr; gotoxy(1,2); write('O número informado é '); textcolor(lightgreen); write('par'); textcolor(white); writeln; writeln; delay(300); write('Aperte enter para voltar ao menu '); readkey; readln; clrscr; end else begin clrscr; gotoxy(1,2); write('O número informado é '); textcolor(lightred); write('impar'); textcolor(white); writeln; writeln; delay(300); write('Aperte enter para voltar ao menu '); readkey; readln; clrscr; end; end; until op = -1; clrscr; gotoxy(26,2); textcolor(lightgreen); write('Até mais!!! '); delay(1000); end. Olá pessoal!! Gostaria que vocês testassem esse programa simples e que dessem um feedback ou até sugestões para melhorias. Tenho 15 anos e estou apenas começando no mundo da programação, sei que ainda tenho muito para aprender, mas estou estudando muito... Obrigado!
  2. Boa tarde! Instalei o turbo pascal no meu windows 7, mas o único tipo de dado que consigo usar é o string. Como faço para resolver esse problema?
  3. Eae galera, eu fiz esse algoritmo mas nao acho o erro q esta dando no programa e também nao sei como resolve-lo.Precimo q me expliquem o erro e me ajudem a resolve-lo, por favor obrigado. Programa: procedure Exer20; type Nomes = array[1..10] of string[10]; Idades = array[1..10] of integer; var sexo,nome:Nomes; idade:Idades; N,i,idademaiordezoito,Homem25anos,Mulher35anos,Somatotalidade:integer; continuar:char; begin N:=0; for i:= 1 to 10 do begin writeln('Qual seu nome?'[N]); readln(nome[N]); writeln('Qual sua idade?'[N]); readln(idade[N]); writeln('Qual seu sexo? M ou F.'[N]); readln(sexo[N]); end; for i:= 1 to 10 do begin Somatotalidade:=idade+idade[N]; ((((ta dando erro aqui))) if (idade[N]>18) then idademaiordezoito:=idade+idade[N] else if (sexo[N]='M')and(idade[N]>25) then Homem25anos:=idade+idade[N] else if (sexo[N]='F')and(idade[N]>35) then Mulher35anos:=idade+idade[N]; end; writeln('As pessoas soma das idades das pessoas maiores de idade sao,',Idademaiordezoito,'.'); writeln('A soma da idade dos homens acima 25 anos e',Homem25anos,'.'); writeln('A soma de todas as idades e,',Somatotalidade,'.'); writeln('A soma da idade das mulheres acima dos 35 anos e,',Mulher35anos,'.'); writeln('Deseja pesquisar os dados? S ou N'); readln(continuar); continuar:='S'; while continuar='S' do begin writeln('escreva o numero de 0 a 9 para verificar os dados.'); readln(N); writeln( 'Nome:',nome[N],', Idade:',idade[N],' e sexo:',sexo[N],'.'); writeln('deseja continuar a pesquisar os dados? S ou N'); readln(continuar); end; readln; end;
  4. program usoeletron; var idade_anos, tempo_max_uso_eletron: byte; permite1_10, permite1_12, permite1_14, permite1_16, permite1_18: string[3]; permite2_10, permite2_12, permite2_14, permite2_16, permite2_18: boolean; begin write('Qual é a idade do seu filho em anos? '); readln(idade_anos); if (idade_anos < 2) then begin tempo_max_uso_eletron := 2; end else begin if (idade_anos < 4) then begin tempo_max_uso_eletron := 4; end else begin tempo_max_uso_eletron := idade_anos; if (tempo_max_uso_eletron mod 2 = 1) then begin tempo_max_uso_eletron := tempo_max_uso_eletron - 1; end; tempo_max_uso_eletron := tempo_max_uso_eletron * 2; if (tempo_max_uso_eletron > 60) then begin tempo_max_uso_eletron := 60; end; end; end; writeln; repeat write('Você permite que seu filho use mídias não recomendadas para menores de 10 anos [sim / não]? '); readln(permite1_10); until (permite1_10 = 'sim') or (permite1_10 = 'não'); if(permite1_10 = 'sim') then begin permite2_10 := true; repeat write('Você permite que seu filho use mídias não recomendadas para menores de 12 anos [sim / não]? '); readln(permite1_12); until (permite1_12 = 'sim') or (permite1_12 = 'não'); if(permite1_12 = 'sim') then begin permite2_12 := true; repeat write('Você permite que seu filho use mídias não recomendadas para menores de 14 anos [sim / não]? '); readln(permite1_14); until (permite1_14 = 'sim') or (permite1_14 = 'não'); if(permite1_14 = 'sim') then begin permite2_14 := true; repeat write('Você permite que seu filho use mídias não recomendadas para menores de 16 anos [sim / não]? '); readln(permite1_16); until (permite1_16 = 'sim') or (permite1_16 = 'não'); if(permite1_16 = 'sim') then begin permite2_16 := true; repeat write('Você permite que seu filho use mídias não recomendadas para menores de 18 anos [sim / não]? '); readln(permite1_18); until (permite1_18 = 'sim') or (permite1_18 = 'não'); if(permite1_18 = 'sim') then begin permite2_18 := true; end; end; end; end; end; writeln; write('Então seu filho pode usar eletrônicos no máximo ', tempo_max_uso_eletron, ' horas semanais, podendo ouvir músicas infantis'); if (tempo_max_uso_eletron >= 4) then begin write(', ouvir músicas livres não infantis infantis, ouvir músicas de jogos eletrônicos, assistir filmes e séries livres de personagens fictícios dublados'); end; if (tempo_max_uso_eletron >= 8) then begin write(', assistir programas de televisão livres de entrevistas e entretenimento, assistir programas livres de telejornalismo, jogar jogos eletrônicos livres, assistir filmes, séries e telenovelas livres de personagens reais interpretados'); end; if (permite2_10) then begin write(', usar mídias para 10'); if (permite2_12) then begin write(', 12'); if (permite2_14) then begin write(', 14'); if (permite2_16) then begin write(', 16'); if (permite2_18) then begin write(', 18'); end; end; end; end; write(' anos'); end; writeln(' e só!'); readln; end.
  5. Boa tarde a todos, como forma de treinamento eu desenvolvi essa calculador básica que calcula a media de 3 notas de 2 participantes e exibe as notas, a média e qual a maior média, e gostaria que avaliassem apontando os erros e o que poderia melhorar ou ate sugerir algo mais, simplesmente para fim didático, segue abaixo. Program calc_med ; var x,b: array [1..2 , 1..3] of real; i,j:integer; Begin writeln('Calculo da média de 3 notas de 2 participantes'); for j:= 1 to 2 do for i:= 1 to 3 do begin write(i,'ª nota do ',j,'º participante: '); readln(x[j][i]); end; clrscr; for j:= 1 to 2 do begin b[j][i]:= (x[j][1] + x[j][2] + x[j][3])/3; (!) end; for j:= 1 to 2 do for i:= 1 to 3 do writeln(i,' ª nota do ',j,' º participante: ',x[j][i]); for j:= 1 to 2 do writeln('Média das notas do ',j,' º participante é: ',b[j][i]); if (b[1][i]) > (b[2][i]) then writeln('O primeiro participante ganhou o concurso!') else writeln('O segundo participante venceu o concurso!'); End. Tive ate uma certa dificuldade para desenvolver, principalmente onde marquei com (!) pois não vi necessidade de adicionar o ''[i']'' na linha do calculo já que não faria sentindo eu por o comando ''for i:= 1 to 3 do'' pois calcularia o mesmo resultado nas 3 repetições... enfim, ainda me restam algumas dúvidas pois ainda não domino o assunto, se algum puder me da uma luz eu agradeço. ps: coloquei como [i'] pois no pré -visualizar não estava aparecendo.
  6. Boa tarde, estou iniciando na programação e comecei pela linguagem Pascal, sempre pratico criando aplicações simples, por exemplo essa aqui: Program par_ou_impar ; var x :integer; resp :string; Begin while (resp = 'sim') do begin write('Verifique se um número é par ou não: '); readln(x); if (x mod 2 = 0) then writeln('O número é par!') else writeln('O número é impar!'); writeln; writeln; write('Deseja continuar com a aplicação? '); readln(resp); clrscr; end; End. Quando eu executo o programa (F9) no PascalZim ele simplesmente abre o console e fecha rapidamente, não aponta falha em nenhuma linha nem nada, o que pode ser? alguém pode testar o código?.. Ps: antes de adicionar o comando de repetição 'while...do' junto a variável 'resp' ele funcionava, porém no final da operação ele fechava o programa naturalmente.
  7. Olá amigos. Estou com dificuldade em manipulação de arquivos de texto, mais precisamente no excluir e no alterar. Criei o projeto e o programa até cria o arq.aux (que é usado para excluir), mas não copia nada para ele e nem apaga o original. Alguém pode revisar para mim? Grato. Código: program project1; uses crt,sysutils; type cadastro = record modelo: string; cor : string; end; var arq : textfile; arq2: textfile; opcao : integer; auto : cadastro; linha : string; begin Assignfile(arq, 'garagem.txt'); Assignfile(arq2, 'garagemaux.txt'); //cria arq tmp p/ excluir if (fileexists ('garagem.txt') = false)then begin rewrite(arq); //abre arquivo closefile(arq); end; repeat writeln('1 - Inserir Registro '); writeln('2 - Ver Registros'); writeln('3 - Excluir Registro'); writeln('4 - Alterar registro'); writeln('5 - Sair'); readln(opcao); case opcao of //inserir 1 : begin write('Digite o nome do veiculo: '); readln(auto.modelo); write('Digite a cor do veiculo: '); readln(auto.cor); Append(arq); //final do arquivo writeln(arq, auto.modelo:10,auto.cor:10); Closefile(arq); clrscr; end; //listar 2 : begin reset(arq); //ABRE O ARQ while not EOF(arq) do begin readln(arq,auto.modelo,auto.cor); writeln(auto.modelo,auto.cor); end; readkey; closefile(arq); end; //excluir 3 : begin writeln('qual modelo desejas excluir: '); readln(linha); reset (arq); //abre o arq no inicio rewrite(arq2); while not (EOF(arq)=false) do //enquanto nao for o final do arquivo begin readln(arq,auto.modelo); if (linha <> auto.modelo) then begin writeln(arq2,auto.modelo); end; closefile(arq); closefile(arq2); erase(arq); rename(arq2,'garagem.txt'); end; end; //alterar // 4 : end; begin writeln(''); writeln('Aperte qualquer tecla para voltar ao menu'); clrscr; end; until (opcao = 5); Closefile(arq); end. teste.txt
  8. Faça um programa em Pascal que receba os seguintes dados de uma pessoa: nome (texto), cpf (inteiro), sexo (caractere) e o ano de nascimento (inteiro) e armazene-os em um registro. Em seguida, apresente o nome, o sexo e a idade dessa pessoa
  9. Olá alguém poderia me ajudar nesse exercício sou iniciante. Faça um programa que receba os seguintes dados dos habitantes de uma região: idade, sexo (M/F) e salário, calcule e mostre a) A média dos salários do grupo, A maior e a menor idade do grupo, c) A quantidade de mulheres com salário até R$ 200,00, d) A idade e o sexo da pessoa que possui o menor salário. Finalize a entrada de dados ao digitar uma idade negativa.
  10. 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.
  11. 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.
  12. 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.
  13. 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
  14. 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
  15. 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.
  16. 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.
  17. 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á.
  18. 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.
  19. 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?
  20. 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
  21. 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.
  22. 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.
  23. 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?
  24. 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 *****

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

×