Ir ao conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Mostrando resultados para as tags ''Pascal''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

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

Categorias

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

Categorias

  • Livros disponíveis
  • Livros esgotados

Fóruns

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

Encontrar resultados em...

Encontrar resultados que...


Data de criação

  • Iniciar

    FIM


Última atualização

  • Iniciar

    FIM


Filtrar pelo número de...

Data de registro

  • Iniciar

    FIM


Grupo


Caixas de som

Encontrado 82 registros

  1. Olá, eu faço curso técnico de informática e recentemente nas aulas de lógica de programação, usando Pascal, acabei ficando preso em um exercício exercício: Construa um algoritmo que leia e imprima a altura de 500 pessoas uma a uma e no final escreva a média. Isso foi o que eu fiz, mas o problema é que não sei como calcular a media. Program altura_500 ; var altura : real ; cont : integer ; Begin cont := 1 ; while cont<= 500 do begin write('usuário ',cont,' digite sua altura: '); read(altura); cont := cont+1 ; end; End.
  2. Program Pzim ; var user,digitado:String; tentativas:Integer; Begin user:='Thiago'; tentativas:=0; Writeln('Usuario:'); readln(digitado); while digitado <> user and tentativas <3 do Writeln ('Digite o Usuario:'); tentativas := tentativas + 1 ; readln(digitado); If digitado=user then Writeln('Usuario Cadastrado!') else Writeln('Excesso Excedidas!"); End.
  3. Faça um algoritmo que receba a idade de 10 pessoas e mostre a menor e a maior idade digitada fiz o algoritmo mais quando digito as idades o resultado não mostra a maior e a menor digitada, o que estou fazendo de errado? Var idade, cont, maior, menor: integer; Begin writeln('Digite a primeira idade:'); read(idade); maior:= idade; menor:= idade; for Cont:= 1 to 10 do begin writeln('proxima idade:'); read(idade); if idade > maior then; begin maior:= idade end; begin if idade < menor then begin menor:= idade end; end; end; writeln('O maior numero é:', maior); writeln('O menor numero é:', menor); End.
  4. BOA NOITE!! Sou meio lego no assunto e gostaria de pedir ajudar pois curso engenharia civil e tenho um trabalho pra fazer com o pascal ja fiz uma parte mais a outra nao estou conseguindo que seria o aluno tem a cargoraria de 60 horas que daria 25 dias de aula o aluno que atingir 25 % de falta esta reprovado como faria isso no pascal se aluem poder me ajudar como disse sou meio ou todo lego no assunto rsrs e obrigado desde já .
  5. 1 - Faça um algoritmo que receba o Nome de e a idade de 3 pessoas, e mostre o nome e a idade da pessoa com maior idade. Se a idade for igual ao da idade digitada anteriormente, mantém-se a primeira idade digitada. eu fiz o algoritmo mais quando digito os valores no programa o resultado mostra o nome e a idade com maior idade errada, poderia me dizer o que estou fazendo de errado?? VAR Idade, contagem, Idade_recebida: Integer; Nome, Nome_recebido : String; begin CONTAGEM:=1; Idade_recebida:= 0; Idade:=0; Repeat writeln('Digite seu Nome'); Readln(Nome_recebido); writeln('Qual sua idade'); Readln(Idade_recebida); IF CONTAGEM = 1 THEN BEGIN Nome:= Nome_recebido; Idade:= Idade_recebida; END ELSE BEGIN IF Idade_recebida > IDADE THEN BEGIN Nome:= Nome_recebido; Idade:= Idade_recebida; END; END; CONTAGEM:= CONTAGEM + 1; UNTIL CONTAGEM = 4; Writeln('A maior Idade foi de : ', Nome_recebido); Writeln('A idade digitada foi: ', Idade_recebida); READLN; end.
  6. 1. Faça um algoritmo que receba as idades de 10 pessoas e some as idades pares. Use o comando REPEAT 2. Faça o mesmo algoritmo só que somando também as idades ímpares e somando todas as idades ímpares + pares juntas. O Algoritmo é esse: var lista:array[1..10]of integer; pessoas, par:integer; begin; pessoas :=0; repeat writeln(' digite idade '); pessoas:=pessoas + 1; readln(lista[pessoas]); until (pessoas =10); pessoas:=0; par:=0; repeat pessoas:=pessoas + 1; if((lista[pessoas] mod 2)=0) then par:=par+lista[pessoas] ; until (pessoas =10); writeln('soma das idades pares é ',par); end. Por exemplo: para calcular somente as idades ímpares era só mudar mod 2 = 0 para mod 2 = 1 então como eu faria para colocar a soma dos idades ímpares no algoritmo acima e como faria para somar as idades ímpares e pares?
  7. Recentemente, quando cheguei a parte de estruturas condicionais compostas, aprendi que antes do else não havia ponto e vírgula (;). Estava construindo meus algoritmos sem problema algum, porém este programa que fiz só funciona se colocar ponto e vírgula (;) antes do else (exceto o end). Segue o código: program NovoSalario; uses CRT; var nome :string; salario_atual, novo_salario :real; begin textbackground(yellow); textcolor(white); clrscr(); writeln(' ',#201,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#187); writeln(' ',#186,' NOVO SALÁRIO ',#186); writeln(' ',#200,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#188); writeln(); write(' - Nome: '); readln(nome); write(' - Salário Atual: '); readln(salario_atual); writeln(); if (salario_atual < 0) then begin writeln(' * Salário Inválido!') end else if (salario_atual <= 400) then begin novo_salario := ((salario_atual * 15) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 15%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 400) and (salario_atual <= 700) then begin novo_salario := ((salario_atual * 12) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 12%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 700) and (salario_atual <= 1000) then begin novo_salario := ((salario_atual * 10) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 10%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 1000) and (salario_atual <= 1800) then begin novo_salario := ((salario_atual * 7) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 7%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 1800) and (salario_atual <= 2500) then begin novo_salario := ((salario_atual * 4) / 100 + salario_atual); writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Aumento de 4%'); writeln(' * Novo Salário: ', novo_salario:0:2); end else if (salario_atual > 2500) then begin novo_salario := salario_atual; writeln(' * Nome do Funcionário: ', nome); writeln(' * Salário Atual: ', salario_atual:0:2); writeln(' * Sem Aumento'); writeln(' * Novo Salário: ', novo_salario:0:2); end; write(' '); readkey(); end. Somente com o ponto e vírgula funciona, saberiam me dizer o porquê? Estou usando o Pascal Zim!
  8. Faça um algoritmo que mostre a quantidade de pessoas que são do sexo masculino e feminino e a soma das idades de cada sexo e mostre a porcentagem de pessoas do sexo feminino e masculino e o total de pessoas usadas no algoritmo. Eu só consegui fazer o algoritmo somando as idades de cada sexo, alguém poderia ajudar a terminar o exercício? var cont,soma_f,soma_m,idade, soma: integer; sexo: string; Begin For cont:= 1 to 5 do begin Writeln('Informe o sexo (com a letra minuscula):'); read(sexo); Writeln('Informe a idade:'); read(idade); if (sexo='m') then soma_m:= soma_m + idade else if (sexo='f') then soma_f:= soma_f + idade; end; Writeln('Soma das idades do sexo masculino: ',soma_m); Writeln('Soma das idades do sexo feminino: ',soma_f); end. (FIZ O ALGORITMO NO PASCALZIM)
  9. Um algoritmo que possua a idade de 5 pessoas e soma as idades das pessoas que forem maiores que 18 anos, e também mostre a soma das idades das pessoas que forem menores de idade.
  10. Olá a todos, o meu geany está com problemas na hora da execução de programas em linguagem pascal, fala em um "erro 9009", já baixei o gcc e não resolveu. Vocês poderiam ajudar?
  11. Ola, sou novo na programação, gostaria de uma pequena ajuda. Queria desenvover um programa que desse um click com o botão esquerdo do mouse em um determinado local quando um outro local mudasse para uma cor predeterminada. Com botões de ligar/desligar sem precisar modificar as pastas dos lugares em que utilizasse a função e quando ativado, ficasse totalmente opaco. no geral seria um auto-click com a função de clicar quando em cima da cor predeterminada, um pequeno local de 0,3 centimetro de diametro no centro da tela em uma config de 1920 x 1080 p. Por acaso é possivel? alguém poderia me ajudar? Ficaria muito grato
  12. Olá, estou com um problema ao fazer o seguinte código: program B; uses crt; var vet: array[1..25] of integer; mat: array[1..5,1..5] of integer; j, M, N, aux, i: integer; begin writeln('PROGRAMA PARA IMPRIMIR DEZ CARTELAS DE BINGO'); randomize; for i:=1 to 10 do begin writeLn('CARTELA ',i); //SORTEAR VALORES E ATRIBUI-LOS A UM VETOR; VERIFICAR SE SÃO IGUAIS E, CASOS SEJAM, SUBSTITUI-LOS. for j:=1 to 25 do begin if j=1 then begin vet[j]:= random(15)+1; if vet[j]=vet[j+1] then vet[j]:= random(15)+1; end; if j=6 then begin vet[j]:= random(15)+16; if vet[j]=vet[j+1] then vet[j]:= random(15)+16; end; if j=11 then begin vet[j]:= random(15)+31; if vet[j]=vet[j+1] then vet[j]:= random(15)+31; end; if j=16 then begin vet[j]:= random(15)+46; if vet[j]=vet[j+1] then vet[j]:= random(15)+46; end; if j=21 then begin vet[j]:= random(15)+61; if vet[j]=vet[j+1] then vet[j]:= random(15)+61; end; end; //COLOCAR VALORES EM ORDEM CRESCENTE; for j:=1 to 25 do if vet[j]>vet[j+1] then begin aux:= vet[j]; vet[j]:= vet[j+1]; vet[j+1]:= aux; end; end; //TRANSFORMAR VETOR EM MATRIZ j:=0; for M:= 1 to 5 do for N:= 1 to 5 do begin j:= j+1; mat[M,N]:= vet[j]; end; //IMPRIMIR A MATRIZ for M:= 1 to 5 do begin writeln(''); for N:= 1 to 5 do begin writeln(mat[M,N],' '); end; end; readkey; end. É um código para criar 10 cartelas de bingo, em que os números não se repitam e fiquem em ordem crescente (os comentários estão todos no código). Alguém poderia examina-lo e me ajudar?
  13. Alguns trabalhadores terão aumento salarial e é o patrão que o calculará. Calcule também a sua idade e os anos trabalhados, seguindo as tabelas: O Algoritmo deverá receber o salario atual do funcionário, sua idade e mostrar: seu antigo salario, a porcentagem de aumento recebida e seu novo salario. Eu consegui fazer até essa parte:(Se estiver certo é claro) Begin Writeln('Digite sua idade'); readln(idade); Writeln('Digite seu salario'); readln(salario); Writeln('Digite a quantidade de Anos trabalhados'); readln(anos trabalhados); CASE IDADE OF 0..25: Begin CASE Anos_trabalhados OF 0..3: Porcentagem:=5; 4..6: Porcentagem:=10; Else Porcentagem:=15; End; End; 26..35: Begin CASE Anos_trabalhados OF 0..9: Porcentagem:=20; 10..15: Porcentagem:=25; Else Porcentagem:=30; End; End; Else Begin CASE Anos_trabalhados OF 0..10: Porcentagem:=30; 11..20: Porcentagem:=40; 21..30: Porcentagem:=50; 31..40: Porcentagem:=60; Else Porcentagem:=70; End; End; End; End. Falta os cálculos que não consigo fazer... ESSA TABELA UTILIZADA PARA FAZER O ALGORITMO...
  14. Preciso de ajuda para fazer um programa que seja um quis. A pessoa deve responder 5 perguntas que valem 1 ponto. Caso ela responda corretamente, ela vai acumulando 1 ponto. Ao final informar quantos pontos a pessoa fez. As respostas para as perguntas devem ser SIM(1) ou NÃO(0). Mas está acontecendo esse erro, alguém consegue me ajudar? Program Pzim ; var nota,r1,r2,r3,r4,r5: String; Begin Writeln('Bem-vindo ao quis de Perguntas'); Writeln('Por favor responda (S) para sim ou (N) para não, e em seguida pressione Enter.'); Writeln('Cada pergunta tem o Peso de 1 Ponto, e no final das 5 perguntas iremos mostrar a sua Nota. '); Write('O criador da Apple é o Steve Jobs? '); Read(r1); if r1 = 'S' then r1:=1; else r1 := 0; Write('O Brasil foi descoberto em 22 de abril de 1500? '); Read(r2); if r2 = 'S' then r2 := 1; else r2 := 0; Write('A Independência do Brasil foi em 7 de novembro de 1822'); Read(r3); if r3 = 'S' then r3 := 1; else r3 := 0; Write('A Rede Social mais usado no Mundo é o Twitter?'); Read(r4); if r4 = 'S' then r4 := 1; else r4 := 0; Write('O facebook foi inventado no ano de 2004?'); Read(r5); if r5 = 'S' then r5 := 1; else r5 := 0; Write('Muito bem, sua nota foi: ', + r1 + r2 + r3 + r4 + r5), Readkey End.
  15. Estou com dificuldade nesse programa, preciso criar um programa que leia a idade de uma pessoa. Caso ela tenha mais de 18 anos escreva acesso liberado. Caso contrário, informe que o acesso é somente para adultos. Mas está acontecendo esse erro, alguém sabe me dizer porque está errado?: Program Pzim ; var idade: Real; Begin writeln('Para acessar esse site, será necessario informar sua idade'); write('Digite sua idade: '); read(idade); If(idade>18) then; Writeln('Acesso permetido'); Else(idade<18) then; Writeln('Acesso negado, esse site é somente para pessoas maiores de 18 anos'); End.
  16. Preciso fazer um programa que leia 2 números e de acordo com a opção do usuário (+,-,*,/) efetue o calculo e informe o resultado na tela. Mas não sei fazer condição, alguém consegue me ajudar?
  17. Olá a todos Estou tentando criar um script que me ajude na minha monitoração, porém para isso eu preciso que o pascal execute comandos em aplicativos externos. Pesquisei e descobri que é possível fazer isso utilizando os comandos Porém quando fui tentar executar no meu Pascal, retornou o seguinte erro: Por favor, alguem poderia me ajudar com isso??
  18. Olá! Meu conhecimento em Pascal pode ser considerado básico. E não consigo escrever uma solução para o problema abaixo: No site da Caixa, disponibilizam os resultados (todos eles) de todas as loterias. Ele vem em formato HTM. Para a Megasena, é uma tabela mostrando nas linhas todos os resultados com informações diversas distribuidas pelas colunas. Cada linha um resultado e nas 21 colunas (Megasena) , informações pertinentes ao próprio. Preciso colocar num arquivo texto sequencial a informação de cada uma dessas 21 colunas de todos os sorteios já realizados. O arquivo baixado da Caixa, possui um trecho inutil no começo e outro no final. A parte central tem o que nos interessa, com HTM uniforme que se repete em todas as linhas dos sorteios. Problema que ele não tem marcação de final de linha..... quando mando ler uma linha, ele tenta ler o arquivo todo (1.2Mb) e dá erro de execução. Foi o que conclui. Trecho que interessa: <tr> <td rowspan="1">1</td> <td rowspan="1">11/03/1996</td> <td rowspan="1">41</td> <td rowspan="1">05</td> <td rowspan="1">04</td> <td rowspan="1">52</td> <td rowspan="1">30</td> <td rowspan="1">33</td> <td rowspan="1">0,00</td> <td rowspan="1">0</td> <td rowspan="1">&nbsp</td><td rowspan="1">&nbsp</td> <td rowspan="1">0,00</td> <td rowspan="1">17</td> <td rowspan="1">39.158,92</td> <td rowspan="1">2016</td> <td rowspan="1">330,21</td> <td rowspan="1">SIM</td> <td rowspan="1">1.714.650,23</td> <td rowspan="1">0,00</td> <td rowspan="1">0,00</td></tr> São (hoje) 2065 resultados da Megasena e logo, 2065 trechos desses. Podem me dar alguma dica do caminho a seguir? Tem que ser em Pascal. Uso o Lazarus. Vou publicando aqui o desenrolar. Abraço à todos e grato pela atenção.
  19. eu estou aprendendo a programar no pascal eu gostaria de fazer uma pergunta tem como soma dois nomes porque gostaria de fazer um programa que pergunta a pessoa o seu nome e depois o seu sobrenome e depois soma-se os 2 e fica-se o nome junto com sobrenome jutos como eu faço? obs: com espaço no meio do nome e sobrenome.
  20. Olá Bom dia. estudando sobre estrutura de dados, me deparei com um exemplo, encontrado na internet, em modo gráfico que demonstra a utilização de pilhas. O sistema é o seguinte: Digita-se o nome e a idade e (acredito eu) ao clicar em listar deveria aparecer em um listbox os dados digitados. porém, aparece (1-Nome:,Idade:) Estou encafifado com isso. Há pouco conteúdo em modo gráfico sobre assunto. Grato por qualquer ajuda unit1.zip project1.zip
  21. Boa noite. Estou com dificuldade em entender o comando "upcase". sei usar o "case" que de certa forma funciona como o if, mas não sei o que o comando upcase faz. Já tentei testar no pascalzim mas não consegui compreender. meu caso é só curiosidade mesmo, pois vejo em diversos posts esse comando mas não sei ler o que ele diz. Se alguém puder me explicar e com um exemplo mesmo q simples ficarei grato.
  22. Utilizando o recurso while, desenvolva um programa que receberá um número qualquer e apresentará a tabuada (multiplicação) do número recebido (OBS: estava aparecendo false no resultado) Program Pzim ; var v,n,total :integer; Be v:= 1; while v < 10 do begin writeln('Digite um número: '); read (n); v:= v+1; writeln (n*1= total); writeln (n*2= total); writeln (n*3= total); writeln (n*4= total); writeln (n*5= total); writeln (n*6= total); writeln (n*7= total); writeln (n*8= total); writeln (n*9= total); writeln (n*10= total); end; End. Obrigado pela ajuda.
  23. Olá eu não estou conseguindo fazer com que as mensagens apareçam na tela... se alguém quiser dar uma dica? OBS: só aparece em empate. unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure FormCreate(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; maquina: array [1..3] of string; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := 'Pedra'; end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text := 'Papel'; end; procedure TForm1.Button3Click(Sender: TObject); begin edit1.Text := 'Tesoura'; end; procedure TForm1.Button4Click(Sender: TObject); begin Edit2.Text := maquina[Random(3) + 1]; if (Edit1.Text = Edit2.Text) then begin ShowMessage('Empate'); exit; end; if (Edit2.Text = 'pedra') and (Edit1.Text = 'papel') then begin ShowMessage('você perdeu'); end; if (Edit2.Text = 'papel') and (Edit1.Text = 'pedra') then begin ShowMessage('você ganhou'); end; if (Edit1.Text = 'papel') and (Edit2.Text = 'tesoura') then begin ShowMessage('você perdeu'); end; if (Edit1.Text = 'tesoura') and (Edit2.Text = 'papel') then begin ShowMessage('você ganhou'); end; if (Edit1.Text = 'tesoura') and (Edit2.Text = 'pedra') then begin ShowMessage('você perdeu'); end; if (Edit1.Text = 'pedra') and (Edit2.Text = 'tesoura') then begin ShowMessage('você ganhou'); end; end; procedure TForm1.Edit2Change(Sender: TObject); begin edit2.Text := maquina[Random(3) + 1]; end; procedure TForm1.FormCreate(Sender: TObject); begin Randomize; maquina[1] := 'Pedra'; maquina[2] := 'Papel'; maquina[3] := 'Tesoura'; end; end.
  24. Seguinte galera,estou fazendo um trabalho que preciso fazer uma calculadora com a função CASE e a calculadora deve somar,dividir,subtrair,e multiplicar dois números mas quando vou usar o comando CASE sempre da erro quem puder ajudar agradeço! Segue ai o meu projeto e o erro: program Exercicio4_Aula5; var numero1,numero2, resultado: Real; escolha: CHAR; begin Writeln('Escolha a Opcao'); Writeln('Digite S para Soma'); Writeln('Digite M para Subtracao'); Writeln('Digite X para Multiplicacao'); Writeln('Digite D para Divisao'); Readln(escolha); Writeln('Digite o Primeiro Numero'); Readln(numero1); Writeln('Digite o Segundo Numero'); Readln(numero2); CASE escolha = 'S' Of numero1+numero2 end; end. E da esses erros: Compilar projeto, Alvo: C:\Users\PC\AppData\Local\Temp\project1.exe: Código saída 1, Erros: 3 project1.lpr(22,3) Error: Constant and CASE types do not match project1.lpr(22,3) Error: Constant Expression expected project1.lpr(22,3) Fatal: Syntax error, ":" expected but "END" found Alguém sabe como resolver?? Obrigado.
  25. Olá Estou dando meus primeiros passos com banco de dados mas estou tendo dificuldade de ligar O Lazarus ao banco, escolhi o SQLiteStudio só para me familiarizar mas não está rolando. Achei um exemplo para implementar é um sistema de cadastro de nomes e cidades , só que estou deixando passar algo. Grato por qualquer ajuda. A manipulação do banco neste inicio até que não tenho dificuldade, mas a ligação com o lazarus este sim é um problema.

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

×