Ir para o conteúdo

Pesquisar na Comunidade

A mostrar resultados para tags ''pascal''.



Mais opções de pesquisa

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
    • Apresentações
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categorias

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros



Filtrar por número de...

891 resultados

  1. Lazarus / free pascal - Pedido de opinião.

    Boa tarde, Este é o meu primeiro post neste forum pelo que desde já peço desculpas se estiver a infringir alguma das regras estabelecidas. No passado aprendi pascal a titulo meramente recreativo. utilizava o turbo pascal (sim, já não vou para novo). Passei horas de diversão desenvolvendo pequenas aplicações. Tive muitos anos sem programar até que recentemente descobri o Lazarus \ Free Pascal e o bichinho voltou. Trabalho numa PME que necessita de um software de gestão especifico para qual existe muito pouca oferta no mercado que se adapte às especificidades da empresa. Atualmente utiliza um software muito antigo ainda desenvolvido em clipper e que começa a revelar-se insuficiente. A minha pergunta é se será possível (o Lazarus tem recursos suficientes) e se valerá a pena (investimento de tempo) ,desenvolver com o Lazarus um software de gestão? Os requisitos para o software são as seguintes: Gestão de clientes, fornecedores, stocks, emitir etiquetas, faturação cumprido as regras legais, gerar saft-pt, gerar guias de transporte e enviá-las diretamente online, gerar diversos tipos de listagens e documentos etc. O software terá que cumprir as regras de forma a poder ser certificado. Para já estou a pensar utilizar como base de dados o Mariadb / Mysql. Para os relatórios (Documentos /listagens/etiquetas) estou a pensar utilizar o FortesReport Para gerar o saft-pt e para comunicar os documentos de transporte online ainda não faço ideia como vou fazer. Agradeço as v/opiniões e sugestões para este meu projecto.
  2. Ola, Estou enviando a vocês o link da comunidade Dexcommunity.com.br, Telegram Link. https://t.me/DexCommunity a maior e mais ativa comunidade de desenvolvedores Delphi do brasil, temos eventos constantemente programados, um chat legal e descontraído com programadores de todo o Brasil, Mvp´s da embarcadero, universitários e Autodidatas. Quer compartilhar conhecimento, venha fazer parte dessa comunidade. Apoiamos 100% os projetos e os canais dos amigos. https://regys.com.br/ https://www.facebook.com/MVCBr.amarildolacerda/ http://www.ormbr.com.br/ http://www.tireideletra.com.br/ http://www.juliomarmarchetti.com.br/ Junte-se a nós. www.dexcommunity.com.br Telegram Link. https://t.me/DexCommunity
  3. Ola Muito Boa Noite eu tenho que fazer um projeto em pascal e no projeto diz que devo calcular e apresentar a média das idades no conjunto das pessoas no mesmo ficheiro e eu não sei como fazer,Podem me ajudar?Agradecia Muito!Obrigada O código ta Assim: program registo_de_pessoas; uses crt; type registo=record nome:String; idade:integer; end; type data=record dia,mes,ano:integer; end; var fich1:file of registo; pessoa:registo; data_nas:data; n,c:Integer; function existeFicheiro:Boolean; Begin assign(fich1,'RegistoPessoas.dat'); {$I-} reset(fich1);Close(fich1); {$I+} existeFicheiro:=(IoResult=0); end; procedure registo_de_pessoas; Begin clrscr; writeln('Registar Pessoas'); if existeFicheiro then reset(fich1) else rewrite(fich1); write('Quantos Registo vai Introduzir?'); readln(n); for c:=1 to n do Begin write('Nome:'); readln(pessoa.nome); write('Idade'); readln(pessoa.idade); writeln('Data de Nascimento'); write('Dia:'); readln(data_nas.dia); write('Mes:'); readln(data_nas.mes); write('Ano:'); readln(data_nas.ano); seek(fich1,Filesize(fich1)); write(fich1,pessoa); end; close(fich1); end; Begin Writeln('Bem Vindo ao Registos de Pessoas'); registo_de_pessoas; readln; end.
  4. Exercícios para estudantes e autodidactas

    Proponho que se faça neste tópico uma colectânea de exercícios, com ou sem solução, de Pascal - isto inclui Extended Pascal, Free Pascal e Object Pascal (não Delphi). O objectivo é simples: proporcionar aos nossos principiantes/estudantes uma série de exercícios que ponham à prova os seus conhecimentos teóricos e práticos. Sim, os exercícios devem ser não só práticos mas também teóricos, e podem ser acerca de qualquer tema, desde o mais básico até ao mais difícil. Atenção! Dúvidas acerca da resolução destes exercícios devem ser colocados em tópicos próprios. Neste tópico apenas se deve debater as questões em si mesmas, as soluções propostas pelos autores das questões e ideias para mais questões. Qualquer membro é bem-vindo a participar nesta colectânea. Modelo de questão Compilador/dialecto: Turbo Pascal, Free Pascal, Object Pascal... Tema(s): I/O, strings, records, tipos genéricos... Dificuldade: muito fácil, fácil, médio, difícil, muito difícil. Questão: ... Resolução: (opcional) [b]Compilador/dialecto:[/b] [b]Tema(s):[/b] [b]Dificuldade:[/b] muito fácil / fácil / médio / difícil / muito difícil [b]Questão:[/b] [b]Resolução:[/b]
  5. Matrizes com números random

    Boa tarde, Alguém me pode dizer como meter matrizes com números aleatórios em Pascal? Obrigado.
  6. Criar um programa para gerar combinações de 4 números dados

    Então pessoal me ajudem ai pode ser usando Pascal , c, c++ queria saber como crio um programa que quando eu digitar 4 numeros qualquer ele gera uma grande sequencia de combinações com esse numero mais sem repetir nem um ???? me ajudem por favor
  7. Olá! Lá estou eu aqui de volta Minha dúvida é, tem como eu colocar meu programa (Pascal) para se comunicar com um servidor e perguntar para o servidor se existe alguma atualização para tal programa? Ou seja, o próprio programa verificar se há atualizações para ele mesmo. Só que o problema é saber se isso é possível em Pascal... É possível soldados? Espero a resposta. Obrigado desde já! 08/05/2017 18:34 Brasil (Horário de Brasília)
  8. For Usado Em Assign

    Estou com um projeto chamado GDV (Gerenciamento de Viagens), que será para gerenciar viagens, exemplo, eu tenho uma viagem no qual tenho 50 passageiros, eu vou lá no GDV e anoto o nome dos passageiros, informações e tal. Até aí tudo bem, o problema é que, a pessoa que me pediu este programa quer 12 viagens com cada viagem 50 pessoas, o que dá 600 pessoas para se cadastrar, isto é, 600 arquivos para se criar (isto tirando as informações), eu uso este "estilo" de programação, um arquivo para cada coisa, pois não sei lidar muito bem com as linhas, por exemplo, não sei usar informações separadas em um arquivo só, pois não sei separar as linhas umas das outras(separar as informações), então, já que eu uso este "estilo" de programação, pensei em usar o comando For, para criar 50 arquivos em um "passe de mágica", porém não funcionou, pois o comando Assign não foi apropriado para este tipo de coisa, vejam: program Project1; uses Crt, SysUtils; var t : text; I : integer; begin for I := 1 to 10 do begin //este é só um exemplo, mas eu teria que criar 50 desses I := I + 1; assign(t, 'nomeDoCliente',I,'.clnGDV'); rewrite(t); close(t); end; end. Não sei como vou fazer tudo isso tirando o comando For, se não existir outra maneira, vou ter que criar um arquivo por vez mesmo? Obrigado desde já! 11/05/2017 19:09 Brasil (Horário de Brasília)
  9. Caixeiro viajante: caminho mais curto

    Boas pessoal. Estou a fazer um trabalho envolvendo o problema do caixeiro viajante. Este problema consiste em determinar a menor rota para percorrer uma série de cidades (visitando uma única vez cada uma delas), retornando à cidade de origem. Primeiro fiz a minha matriz de forma manual e aleatoria. Eu já tenho boa parte do programa feito mas agora falta o mais dificil que é fazer o caminho mais curto, por exemplo temos 5 cidades e partimos da cidade1 voltando à mesma mas fazendo o percurso no menor trajeto possível, ou seja pretendo fazer vários trajetos fazendo swaps e depois identificar qual o mais curto. Será que poderiam dar uma dica para tentar fazer essa parte? Muito obrigado, deixo aqui parte do meu código feito. Program TrabalhoProgramacao; //Nome do Programa Uses Crt; const MAXCID = 25; //Constantes: constante do máximo de cidades type matriz = array[1..MAXCID, 1..MAXCID] of integer; var Opcao, numCidade : Integer; sair : boolean; distancias : matriz; function LerCidades( var n : integer ) : Boolean; // função para a leitura das cidades begin writeln('Indique o numero de cidades ( maximo ', MAXCID, ' cidades:):'); // Indicação do número de cidades readln(n); if (n <= MAXCID) then LerCidades := true // Lê o número introduzido else writeln('Introduziu mais que 25 cidades! Tente novamente!'); LerCidades := false; readln; // Se o número de cidades for maior que 25 não executa end; procedure LimparMatriz( var distMatriz : matriz; nCidades : integer); // procedimento para limpeza da matriz var x, y : integer; begin for x := 1 to nCidades do begin for y := 1 to nCidades do begin distMatriz[x][y] := 0; end; end; end; procedure EscreverMatriz( var distMatriz : matriz; nCidades : integer); // procedimento para a escrita da matriz var x, y : integer; begin for x := 1 to nCidades do begin writeln; for y := 1 to nCidades do begin write( distMatriz[x][y]:2 ); end; end; end; //Introduzir as distâncias procedure PreencherManualMatriz( var distMatriz : matriz; nCidades : integer); // procedimento para preenchimento da matriz de forma MANUAL var x, y : integer; begin writeln(' ************************************************************'); writeln(' Atencao: distancias entre mesmas cidades e 0!'); writeln(' ************************************************************'); for x := 1 to (nCidades - 1) do begin writeln; for y := (x + 1) to nCidades do begin if x <> y then begin writeln('Introduza a distancia entre ', x , ' e ', y); readln(distMatriz[x][y]); distMatriz[y][x] := distMatriz[x][y]; end; end; end; EscreverMatriz(distancias, numCidade); readln; end; procedure PreencherRandomMatriz( var distMatriz : matriz; nCidades : integer); // procedimento para preenchimento da matriz de forma ALEATÓRIA var x, y : integer; begin writeln(' *********************************************'); writeln(' Atencao: distancias entre mesmas cidades e 0!'); writeln(' *********************************************'); for x := 1 to (nCidades - 1) do begin writeln; for y := (x + 1) to nCidades do begin begin distMatriz[x][y] :=random(9); // exemplo ate 9 quilometros de distancia distMatriz[y][x] := distMatriz[x][y]; end; end; end; EscreverMatriz(distancias, numCidade); readln; end; Begin // COMEÇO DO PROGRAMA sair := false; while sair = false do begin clrscr; writeln(' opcao 1 : Ler as cidades');write(''); writeln(' opcao 2 : Escrever matriz'); (' opcao 3 : Preencher matriz manualmente'); writeln(' opcao 4 : Preencher matriz aleatoriamente'); writeln(' opcao 5 : Sair'); readln(opcao); writeln; Case Opcao of 1 : LerCidades(numCidade); 2 : EscreverMatriz(distancias, numCidade); 3 : PreencherManualMatriz(distancias, numCidade); 4 : PreencherRandomMatriz(distancias, numCidade); 5 : sair := true; else begin writeln('Opcao invalida! Tente novamente!'); writeln; readln; end; end; end; end
  10. Programa de registo de faturas

    Boas Tardes eu tou em Programação de Sistemas de Informação e Tou a dar pascal e hj a minha setora pediu nos para fazer um programa de registo de faturas e eu ja fiz tudo so que so me falta pedir a data assim:dia/mes/ano e o dia tem que ser enter 1 e 31 o mes 1 a 12 e o ano enter 1980 e 2050 Porfavor ajudem me Obrigado pela Atenção
  11. Caracteres ASCII não reconhecidos no PascalZim

    Boa tarde , de momento estou a utilizar o Pascalzim para programação em pascal , mas ao compilar o programa , não são reconhecidos alguns dos caracteres da tabela ASCII. Agradecia uma resposta de quem puder ajudar Print do acontecido- http://prntscr.com/e3b4m2
  12. Pesquisa

    Olá! Preciso da ajuda de vocês, vocês já tentaram usar o CTRL+F do Google Chrome? Bom, estou querendo usar este método de pesquisa, alguém pode me ajudar? Não tenho nem ideia de como se faz isto. Obrigado desde já! B.H.A.M.F 13/10/2016 17:53 (Horário de Brasília)
  13. Como posso mover o ponteiro do arquivo em Pascal??
  14. Criar Buffer Com ponteiros

    Olá a todos. Estou com uma duvida com ponteiros e o seguinte fiz um paint meio ruim e estou guardando os dados direto da memoria para o disco e isso não fica muito legal, queria guarda em Bitmap (BMP) e estou usando listas ligadas e esta muito lento, queria alguma ideia para implementar um buffer. Aqui o código que acabei de fazer para testes, sem o buffer. {Programa Para Testar A Biblioteca} program Teste; uses Crt,LibBitMap; var B:TOBitMap; //Objeto Manipulador De BitMaps N:String; //Variável para pega O nome do Arquivo I,L:integer;//Variáveis para Loops begin writeln('digite O Nome Do Arquivo.'); readln(N); {Testa Se E Possível Abrir A Imagem} if B.CarregaImagem(N)<>true then begin writeln('Erro.'); readkey; Halt; end; {Começo Da Leitura Do Cabeçalho BitMap} write('Assinatura BitMap | '); for I:=1 to 2 do write('''',B.BitMap.Assinatura[I],''''); writeln; writeln('Tamanho Do BitMap | ',B.BitMap.Tamanho); writeln('Campos Reservados | ',B.BitMap.Reservado1,' ',B.BitMap.Reservado2); writeln('Comeco Da Area De Dados | ',B.BitMap.AreaDeDados); writeln('Tamanho Do Cabecalho Da Imagem | ',B.BitMap.Cabecalho.TamanhoCabecalho); writeln('Largura Da Imagem | ',B.BitMap.Cabecalho.Largura); writeln('Altura Da Imagem | ',B.BitMap.Cabecalho.Altura); writeln('Numero De Planos Na Imagem | ',B.BitMap.Cabecalho.Planos); writeln('Bits Por Pixel Na Imagem | ',B.BitMap.Cabecalho.BitsPorPixel); writeln('Tipo De Compressao De Dados Na Imagem | ',B.BitMap.Cabecalho.TipoDeCompressao); writeln('Tamanho Da Imagem | ',B.BitMap.Cabecalho.TamanhoDaImagem); writeln('Numero De Pixel Por Metro De Largura | ',B.BitMap.Cabecalho.PixelsPorMetroX); writeln('Numero De Pixel Por Metro De Altura | ',B.BitMap.Cabecalho.PixelsPorMetroY); writeln('Numero De Cores Usadas | ',B.BitMap.Cabecalho.NumeroDeCoresUsadas); writeln('Numero De Cores Importantes | ',B.BitMap.Cabecalho.NumeroDeCoresImportantes); TextColor(12); writeln('Pressione Qualquer Tecla Para Continuar.'); TextColor(15); readkey; ClrScr; {Verifica Se Existe Palheta Se Houver A Mostra} Case B.BitMap.Cabecalho.BitsPorPixel of 4:begin for I:=1 to 16 do begin for L:=1 to 4 do write(B.Palheta.Palheta16[I,L],' '); writeln; end; end; 8:begin for I:=1 to 256 do begin for L:=1 to 4 do write(B.Palheta.Palheta256[I,L],' '); writeln; end; end else begin writeln('Essa Imagem Nao Tem Palheta.'); readkey; end; end; B.Finaliza; //Finaliza O Objeto end. {Unidade BitMap} Unit LibBitMap; Interface type TPalheta16=array[1..16,1..4] of Byte; //Definição Do Tipo da Palheta 16 Cores. TPalheta256=array[1..256,1..4] of Byte;//Definição Do Tipo da Palheta 256 Cores. TPalheta=record Palheta16:TPalheta16; Palheta256:TPalheta256; end; TAssinaturaBitMap=array[1..2] of Char; //Assinatura BM {Cabeçalho De 40 Bytes} TCabecalho=Packed record TamanhoCabecalho:LongInt; //Tamanho Deste Cabeçalho. Largura:LongInt; //Largura Da Imagem Em Pixels Altura:LongInt; //Altura Da Imagem Em Pixels Planos:Word; //Numero De Planos BitsPorPixel:Word; //Bits Por Pixel TipoDeCompressao:LongInt; //Tipo De Compressão TamanhoDaImagem:LongInt; //Tamanho Dos Dados Da Imagem PixelsPorMetroX:LongInt; //Definição De Pixels Por Metro PixelsPorMetroY:LongInt; //Definição De Pixels Por Metro NumeroDeCoresUsadas:LongInt; //Numero De Cores Usadas NumeroDeCoresImportantes:LongInt;//Numero De Cores Importantes Na Imagem end; TBitMap=Packed record Assinatura:TAssinaturaBitMap; Tamanho:LongInt; //Tamanho Do Arquivo Reservado1:Word; //Campos Reservados Reservado2:Word; //Campos Reservados AreaDeDados:LongInt; //Inicio Do Segmento De Dados Da Imagem Cabecalho:TCabecalho; //Cabeçalho De 40 Bytes end; {Definição Do Objeto BitMap} TOBitMap=Object Private Arquivo:file; Erro:integer; //Variável Para Checagem De Erros Internos procedure AbreArquivo(N:string); //Abre O BitMap procedure CarregaCabecalho; //Carrega O Cabeçalho BitMap Completo procedure CarregaPalheta; //Carrega A Palheta Se Houver Public BitMap:TBitMap; Palheta:TPalheta; function CarregaImagem(N:string):boolean; procedure Finaliza; end; Implementation procedure TOBitMap.AbreArquivo(N:string); begin Assign(Arquivo,N); {$I-} Reset(Arquivo,1); {$I+} if IOresult<>0 then Erro:=1 else Erro:=0; end; procedure TOBitMap.CarregaCabecalho; var R:integer; begin BlockRead(Arquivo,BitMap,SizeOf(BitMap),R); if R<>SizeOf(BitMap) then Erro:=1 else Erro:=0; end; procedure TOBitMap.CarregaPalheta; var R:integer; begin Case BitMap.Cabecalho.BitsPorPixel of 4:begin BlockRead(Arquivo,Palheta.Palheta16,SizeOf(TPalheta16),R); if R<>SizeOf(TPalheta16) then Erro:=1 else Erro:=0; end; 8:begin BlockRead(Arquivo,Palheta.Palheta256,SizeOf(TPalheta256),R); if R<>SizeOf(TPalheta256) then Erro:=1 else Erro:=0; end; else Erro:=0; end; end; function TOBitMap.CarregaImagem(N:string):boolean; Experimental; begin AbreArquivo(N); if Erro=1 then begin CarregaImagem:=False; Exit; end; CarregaCabecalho; if Erro=1 then begin CarregaImagem:=False; Exit; end; CarregaPalheta; if Erro=1 then begin CarregaImagem:=False; Exit; end; CarregaImagem:=True; end; procedure TOBitMap.Finaliza; begin Close(Arquivo); end; end. Nota eu sei que no free pascal tem arrays dinâmicas, mais queria para trabalhar com o turbo pascal. Também poderia fazer Alguma coisa tipo assim TBuffer=array[0..0] of byte; e usar o getmem mais ai eu perderia a checagem de faixa. Aqui um print screen do programa no dosbox. Ideias Por favor.
  15. Exercício de pascal

    Boa noite malta, tenho um exercício de avaliação para esta segunda, acontece que ensinar não é o forte da minha professora. E também está pouco preocupada. Só que é para avaliação e é importante para a média. Deixo aqui o exercício, se alguém me conseguir ajudar eu agradecia. Exercicio: "Um marciano chegou a uma floresta escondeu-se atrás de uma das 100 árvores, quando viu um caçador. O caçador só tinha 5 balas na sua espingarda. Cada vez que ele atirava e não acertava, o marciano dizia "Estou mais à esquerda","Estou mais à direita". Se o caçador não conseguir atingir o marciano, será capturado pelo marciano e levado para Marte. Implementa um programa para este jogo utilizando a função RANDOM que permite gerar aleatoriamente um número. Exemplo: árvore:=random(100)" Obrigado
  16. Como fazer uma estrela no pascal

    Olá pessoal, estou este ano no 12ºano e tenho por opção a disciplina de Aplicações Informáticas B, que estou a gostar muito. Nós estamos a desenvolver um projeto, o Euromilhões, e já o tenho quase terminado. O que eu quero saber é se existe alguma forma de criar no Pascal uma estrela [(apenas o contorno) (suponho que seja com a tabela ASCII)], mas não sei como o fazer... e será possível alterar o fundo da aplicação que será criada ? Obrigado por toda a ajuda que me poderem fornecer! http://wiki.portugal-a-programar.pt/dev_geral:pascal:comemorativos:hny16 Era assim deste estilo que eu queria :)
  17. Dúvida num exercício de Pascal

    Boa tarde malta! Sou novato aqui no forum, mas aproveito já para dizer que adorei isto. Já tinha usado para tirar uma dúvida que tinha mas agora criei conta para expor uma questão pois não encontrei resposta! Sou um aluno do 12º e é a primeira vez que aprendo programação, por isso gostaria de, não só compreensão da vossa parte, como também uma boa explicação detalhada. O objetivo do exercício proposto pelo o meu professor é o seguinte. Um programa que aceite um determinado número de alunos e a classificação de cada um e que retorne a média dos alunos, o total de alunos reprovados, o total de alunos aprovados, a classificação mais alta e a classificação mais baixa. Já fiz parte do programa mas não consegui fazer a parte de apresentar o valor mais alto e mais baixo. Aqui está o que fiz. Desde já origado Program classificacoes ; var i,alunos,class,soma,a,r:integer; media:real; Begin writeln('Quantos alunos TEM a turma?'); readln(alunos); soma:=0; for i:=1 to alunos do begin writeln('(Valor inteiro) Classificacao do aluno nº ', i); readln(class); for i:= 1 to class soma:=soma+class; if class >=10 then a:=a+1; if class <=9 then r:=r+1; if class >20 then begin writeln('Classificacao invalida'); readln; exit; end; if class <0 then begin writeln('Classificacao invalida'); readln; exit; end; end; writeln('Media das classificacoes dos alunos: ' , soma/alunos); writeln('Total de alunos aprovados: ',a); writeln('Total de alunos reprovados: ',r); readln; End.
  18. Gestão de matrículas

    Saudações! Sou novo na area de programação, estou no primeiro ano de informática, peço ajuda. Tenho um trabalho, para fazer um programa que ajude na realização e gestão das matrículas nas escola secundárias.
  19. Como utilizar a Graph

    Bom dia, boa tarde, boa noite de acordo com a posição em que o planeta se encontra na sua localização! Eu queria saber se alguém sabe como usar a Graph, se souberem, peço pra que me ajudem, é muito ruim ficar programando numa janela de 80x25. Se tiverem algum link de um livro ou algo assim também aceito. Se não souberem, respondam essa pergunta: Tem como aumentar o tamanho da letra do programa? Obrigado por tudo! Vocês do Portugal A Programar são demais! B.H.A.M.F, Brasil, 20/09/2016 14:34 (Horário de Brasília)
  20. procedure Validate; assembler; asm mov eax,ADDRESS call eax end; seu fazer isso em uma dll funfa corretamente,porém se usar isso em um .exe da aparece ''acesso violado''... Usando Written e Creathread como fica em .exe ?
  21. Variáveis

    Olá a todos, estou precisando saber todos os tipos de variáveis (todos literalmente como Ansistring e tal) do Pascal para o meu projeto o Lipiinn Program, porém não estou conseguindo achar aqui nas minhas pesquisas, se alguém puder me ajudar, fico muito agradecido, obrigado desde já! BHAMF.
  22. memoria corrompida

    Olá a todos, estou com um grande problema, fiz uma tabela ascii e esta dando sigsegv run time erro 217. aqui esta o código que gera o erro. {código parcial da tabela ascii} uses Crt,SysUtils; const S:array[0..32] of string=('Caractere Nulo-NUL', 'Come'+#135+'o De Cabe'+#135+'alho De Transmiss'+#198+'o-SOH', 'Come'+#135+'o Do Texto-STX', 'Fim Do Texto-ETX', 'Fim De Transmiss'+#198+'o-EOT', 'Interroga-ENQ', 'Confirma'+#135#198+'o-ACK', 'Sinal Sonoro-BEL', 'Volta Um Caractere-BS', 'Tabula'+#135#198+'o Horizontal-HT', 'Pr'+#162+'xima Linha-LF', 'Tabula'+#135#198+'o Vertical-VT', 'Pr'+#162+'xima Pagina-FF', 'Inicio Da Linha-CR', 'Shift-Out -SO', 'Shift-In -SI', 'Data Link Escape-DLE', 'Controle De Dispositivo-D1', 'Controle Dispositivo-D2', 'Controle De Dispositivo-D3', 'Controle De Dispositivo-D4', 'Negativa De Confirma'+#135#198+'o-NAK', 'Synchronous Idle-SYN', 'Fim De Bloco De Transmiss'+#198+'o-ETB', 'Cancela-CAN', 'Fim De Meio De Transmiss'+#198+'o-EM', 'Substitui-SUB', 'Escape-ESC', 'Separador De Arquivo-FS', 'Separador De Grupo-GS', 'Separador De Registro-RS', 'Separador De Unidade-US', 'Espa'+#135+'o Em Branco-SPC'); var I,L:integer; procedure Blocos(ST,SB,SH,SD:string); var I:integer; //Ultilizada Em Loops Guard:string; begin For I:=Length(ST) to 38 do begin ST:=ST+' '; end; Guard:=#124+ST; For I:=Length(SB) to 8 do begin SB:=SB+' '; end; Guard:=Guard+#124+SB; For I:=Length(SH) to 10 do begin SH:=SH+' '; end; Guard:=Guard+#124+SH; For I:=Length(SD) to 14 do begin SD:=SD+' '; end; Guard:=Guard+#124+SD+#124; writeln(Guard); end; begin L:=22; for I:=0 to 255 do begin if I IN [0..32] then Blocos(S[i],IntToStr(I),'','') else Blocos(Chr(I),IntToStr(I),'',''); if I>=L then begin readkey; L:=L+22; ClrScr; end; end; readkey; end. Na interação 33 do laço for o if executa o mesmo código. no GDB acusa erro de segmento mais as variáveis estão ok, quando eu verifiquei. compilei sem os símbolos do debug, o programa funcionou, mais deu isso ai. http://imgur.com/a/nZe1K alguém tem alguma ideia do que possa ser.
  23. [Resolvido] Pastas Pascal

    Queria saber como faço para criar pastas em Pascal, alguém aí sabe algo sobre? Estou à espera de respostas. Obrigado desde já
  24. [Resolvido] Record Com Case

    Olá a todos, E minha primeira vez por aqui é estou com duvida meio banal sobre record com case. Eu sei usar records com variantes mais só de uma maneira, consigo usar assim program Dados; uses Crt; type TDados=record Case D:integer of 1:(S:integer); 2:(X:array[1..5] of integer); end; var Ds:TDados; I:integer; begin writeln('Digite 1 Para Uma Entradas, E 2 Para 5 Entradas.'); readln(Ds.D); ClrScr; If Ds.D=1 then begin writeln('Digite Um Numero.'); readln(Ds.S); end else if Ds.D=2 then for I:=1 to 5 do begin ClrScr; writeln('Digite Um Numero Para A Posição ',I); readln(Ds.X[i]); end; ClrScr; if Ds.D=1 then writeln('Resultados ',Ds.S) else if Ds.D=2 then for I:=1 to 5 do writeln('Resultados ',I,' ',Ds.X[i]); readln; end. E assim não TDados:record Case integer of 1:(S:integer); 2:(X:array[1..5] of integer); end; Omitir a variável do case, e utilizar só o tipo.
  25. Não mostrar o que o utilizador digita

    Boa noite pessoal. Gostava de saber se é possível não mostrar o que o utilizador digita. Vou dar um exemplo: O normal é: Nome de utilizador: daniel_silva Palavra Passe: teste O que gostava de saber se dava para fazer era: Nome de utilizador: daniel_silva Palavra Passe: ***** Ou seja, não mostrava as letras da palavra passe e metia outros caracteres a aparecer, mas que assumi-se como "teste", o que o utilizador referia para a palavra passe. Abraço.
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade