Jump to content

Search the Community

Showing results for tags 'pascal'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Comunidade
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Apresentação de Projectos de Programação
    • Downloads
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Pascal
    • Python
    • Bases de Dados
    • 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
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica e Automação Industrial
    • Matemática
    • Software de Contabilidade e Finanças
    • Dúvidas e Discussão de Programação
  • Outras Áreas
    • Notícias de Tecnologia
    • 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

Categories

  • 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

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

  1. Um editor de texto simples e eficiente em Pascal. Descobre como se aplica na prática o tipo de dados Text. Origem: Editor de Texto simples - utilização do tipo de dados Text
  2. Chenriques

    Ideias de programas

    Olá boa noite Eu preciso de fazer um projeto para a escola, mas não tenho ideias e queria perguntar se alguém teria alguma. É o meu primeiro ano de programação , por isso eu não sou um pro nisto, mas desenrasco me bem e não tenho problema em ir pesquisar algo que não saiba. Neste projeto nos somos avaliados entre outras coisas pela originalidade do programa e é obrigatório usar: Ciclos de repetição e decisão (aprendemos o while, until, case of, if, ...), vetores/matrizes, strings, funções e procedimentos. Alguém tem alguma ideia? Obrigado desde já!
  3. xaviermbp

    Arrays bidimensionais

    Estou com dúvidas de como resolver estes exercícios alguem me poderia ajudar? https://prnt.sc/106jxwd
  4. Duarte

    Batalha naval em Pascalzim

    Estou a criar um Jogo em Pascalzim com matrizes. Foi me pedido para fazer a batalha naval singleplayer para a escola mas quero fazxer com que haja outro jogador. Como Posso Fazer isso? Aqui esta o codigo: { 24-02-2021} Program Batalha_Naval ; {Jogo da batalha naval single player contra o computador} {Campo de 10 por 10} type Matriz=array[1..10, 1..10] of char; var batalha:matriz; li,c,contaS:integer; opc:char; {----------------------------------------------------------------- objectivo: preencher o tabuleiro com submarios em posicoes aleatorias. parâmetros: matriz --------------
  5. Program ping_pong ; const cantoCima = 2 ; cantoBaixo = 10 ; cantoEsquerda = 2 ; cantoDireita = 38 ; var bolaX, bolaY: integer; // posicao x, y da bola raquete1X, raquete1Y: integer; // posicao x, y da raquete 1 raquete2X, raquete2Y: integer; // posicao x, y da raquete 2 moveBolaDireita, moveBolaBaixo: boolean ; // controla direcao da bola pontos: integer; acabouJogo: boolean ; menu1:real; nome1, nome2:string; Procedure menuin; //Interface do Menu Begin clrscr; Writeln; Writeln; writeln(' ----------- '); Writeln(' 1-Jogar
  6. Boa Tarde Integração do Delphi com o Primavera V10. Alguém consegue comunicar com a API do Primavera usando Delphi ? Obrigado Carlos Martins
  7. program SomaGrande; {$R+} const NumMaxAlg=100; type indices=0..NumMaxAlg; digitos=0..9; numGrande=array[indices] of digitos; var n, i : Integer; num1, num2, somaNum :numGrande; vaiUm:0..1; somaAlg:0..19; begin readLn(n); for i:=1 to n do read(num1); readLn; for i:=1 to n do read(num2); readLn; vaiUm:=0; for i:=n downto 1 do begin somaAlg:=num1+num2+vaiUm; somaNum:=somaAlg mod 10; vaiUm:=somaAlg div 10 end;
  8. Já aqui anda no fórum algo do género, mas creio que não em Delphi/Pascal. Este é um algoritmo para validar um NIF (Nº de contribuinte) segundo as regras portuguesas. É em Delphi, mas com pouco trabalho se pode adaptar a Pascal, ou mesmo a qualquer outra linguagem. function ValidaNIF(NIF:String):Boolean; var i:byte; Control:Integer; begin // Testa o tamanho do NIF (Obrigatório 9 digitos) Result:=Length(NIF)=9; // Testa o NIF por tipo de caracteres (apenas númerico é aceite) try Control:=StrToInt(NIF); except Result:=False; end; // Testa se o
  9. JoaoF

    Webservice AT SOAP

    Bom dia, Alguém está a conseguir implementar os Webservices SOAP da AT para a Declaração Periodica de IVA, IRC ou IES? Actualmente em .NET dá-me o seguinte erro: An error occurred while making the HTTP request to https://servicos.portaldasfinancas.gov.pt/dm22ircws/SubmeterDeclaracaoIRCService/. This could be due to the fact that the server certificate is not configured properly with HTTP.SYS in the HTTPS case. This could also be caused by a mismatch of the security binding between the client and the server. Tenho andado nos foruns e confesso que o tópico Webservice AT está exten
  10. nazshue

    Quebra de listagem registros

    Preciso de uma pequena ajuda. Tenho um arquivo que eu devo ordenar, tem diversos campos, dentre eles categoria e nome. Essas categorias vão de 1 a 10 e eu teria que ordenar por categoria e ordem alfabetica, preciso quebrar essa listagem toda vez que der 15 registros, essas duas coisas eu já tenho, só que junto a isso preciso parar a listagem toda vez que a categoria também for diferente, ou seja, quando for 2, mostrar na próxima página, 3 na próxima, assim sucessivamente. Segue o trecho do código: if (totalreg mod 15 = 0) then header; Obs: header "para" a ordenação dos
  11. Wenderson Lisboa

    Instalando pacote OnGuard

    Olá amigos, preciso instalar o OnGuard no Lazarus 2.0.6 e não estou conseguindo, se puderem me explicar o passo-a-passo vos agradeço muito. #EternamentePascal
  12. Rafael aloned da Silva

    Progama sem fim

    Ola pessoal, Eu sou novo em programação. Vocês poderiam me ajudar com um probleminha? Eu quero fazer uma programação mas não consigo fazela pois ela devia ficar aberta para sempre mas ela fica fexando e não consigo terminala. Agradesso por qual quer idea.
  13. Mário01

    Calculadora em Pascal

    Pretendo fazer uma calculadora no pascal que possa: 1- Executar operações até que o utilizador interrompa o programa 2- Sejam realizadas operações diversas entre vários valores, não apenas 2 3- Uma opção especial para o cálculo da média aritmética simples de um número variado de valores. Previamente já consegui realizar uma calculadora que apenas fizesse as 4 operações com 2 valores, como se vê em baixo. Gostava que me pudessem ajudar com este problema Este é o programa : program calculadora; uses crt; var n1, n2: integer; conta: real; operacao: char; be
  14. Adelaide

    Erro de sintaxe

    Escrever um algoritmo que leia o nome e o sexo de 5 pessoas e informe o nome e se ela é homem ou mulher. No final informe total de homens, de mulheres, e de casos não identificados (quando o utilizador não respondeu nem M nem F) e eu não sei o que estou a fazer de errado var i, homens, mulheres, nao_identificado: integer; nome, sexo, nao_identificados: char; Begin for i := 1 to 5 do begin writeln ('Escreva o seu nome'); readln (nome); writeln ('Caso seja Mulher, digite a letra M'); writeln ('Caso seja Homem, digite a letra H'); readln (sexo); cas
  15. Para começar a programar em Pascal é preciso um compilador, a ferramenta que transforma o código-fonte escrito num programa executável. Para escrever o código-fonte podem usar um editor de texto, como o Notepad++ ou o PSPad ou então usar um IDE, um ambiente de desenvolvimento integrado, que permite não só escrever o código fonte mas executá-lo directamente do mesmo sítio, entre outras coisas. Em último caso, o Notepad do Windows também permite escrever o código-fonte. Existem vários compiladores/IDEs para Pascal. Ambiente Windows FPC - Free Pascal Compiler
  16. Miguel Tomas

    Ideias para projeto

    Boa noite, comecei a pouco tempo na escola um curso de programaçao. Pediram me para fazer um projeto em pascal mas o problema é que nao sei o que fazer. Tenho de usar ao máximo tudo o que ja dei(while,case of, for to do, repeat, if,). Será que alguem me podia ajudar? Nao quero codigos feitos nem nada disso, apenas queria alguma ideia do que fazer.
  17. Podem ajudar-me a escrever um algoritmo em visualg que converta um número real em horas, minutos e segundos.
  18. Larfis

    Eventos no Pascalzim

    Boa tarde, venho hoje pedir ajuda a resolver um problema que tenho no meu programa. O programa é um jogo simples de Pong, no qual eu tenho uma função para User Input (mexer as barras para cima e para baixo). Ela está assim de momento: Procedure TeclaPressionada; begin if keypressed then begin case upcase(readkey) of #0:Begin case upcase(readkey) of #80: desenhoBar('B', 1); #72: desenhoBar('B', 0); end; end; #56: desenhoBar ('B', 0); #50: desenhoBar ('B', 1); 'W': desenhoBar ('A', 0); 'S': desenhoBar ('A', 1);
  19. Alfonso CV

    Abrir Gaveta de dinheiro

    Olá galera. Estou a apresentar problemas ao tentar abrir a minha gaveta de dinheiro pela aplicação "Lazarus", eu utilizo uma impressora fiscal de talão USB e já tentei abrir de varias formas diferentes e não consigo, alias, para Lazarus em google com porta USB não encontro nada. Já fiz testes colocando diretamente na impressora no comando antes de imprimir e trabalha lindamente abrindo a gaveta mas preciso administrar isso pela aplicação e não mandar aos clientes a ter que mexer na impressora. Alguma dica por favor??? Cumprimentos....
  20. Faustino

    Erro na leitura de ficheiros

    Fiz este programa em pascal: Program Pzim ; type pessoa=record nome:string; idade:integer; end; var f:file of pessoa; p:pessoa; x:integer; Begin assign(f,'pessoa.dat'); {$I-} reset(f); if ioresult<>0 then rewrite(f); {$I+} repeat write('Insira o nome: '); readln(p.nome); if upcase(p.nome)<>'FIM' then begin write('Idade: '); readln(p.idade); write(f,p); end; writeln; until upcase(p.n
  21. 10gpsi

    Records

    Dá para colocar vários records em pascal? se sim, como o faço?
  22. Olá galera. Me esta a acontecer o seguinte. Tenho uma app já desenvolvida e em "produção" desde a versão 1.6 de Lazarus, até lá todo bém. Resulta que a semana anterior fiz upgrade da versão 1.8 para a 2.00 de Lazarus e todo perfeito, mas a principio de semana quando os clientes começarem a explorar o sistema inicio-se a catástrofe. Quando vou a gravar una transacção que inclui mais duna sentencia SQL o sistema compilado com a versão 2.00 me da um erro e antes não, isso sem cambiar uma linha de código. Sublinho que isto não sucedia antes. Fazendo um "debugger" (depurando o sistema)
  23. DiamondStyle

    Remover espaços em braco de uma String ?

    Olá pessoal, Eu gostaria de saber se alguém sabe como eu faço para retirar os espaços no meio da string. Ex: Nome: \"Alberto Silva\", e o programa deve retornar \"AlbertoSilva\".
  24. Hélder Viegas

    E-Factura

    Boas! Novato no forum, cota na idade e na profissão... Sou TOC, CC ou lá o que os manda chuvas queiram chamar... Preciso de uma aplicação que leia o EFACTURA e grave para um ficheiro excel ou csv com matérias colectáveis e com valores de IVA. Aguardo propostas. Obrigado
  25. Boa Tarde, estou Criando um programa de euromilhões para que o Utilizador indique a chave do euromilhoes e Compare com a Chave dada pelo random e diga se é Vencedor ou não mas Meu Problema está no ordenar a Chave dada pelo random e não permitir Sair valores repetidos. Agradecia vossa Ajuda program Euromilhao; uses crt; var E,i:integer; Num:Array[0..5] of integer; Est:Array[0..2] of integer; CNum:Array[0..5] of integer; CEst:Array[0..2] of integer; begin For I:=1 to 5 do Begin Writeln('Insira os Seus Numeros'); Readln(CNum); end; For i:=1 to 2 do Begin
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.