Search the Community
Showing results for tags 'pascal'.
-
pascal Como imprimir números negativos no Pascal ?
Alexah posted a question in Lógica de Programação
Program Cont ; var N, cont : integer; Begin cont := 1; writeln('Informe o valor de N'); readln(N); while(N > 10000) do begin writeln('Valores Invalidos'); readln(N); end;-
- programação
- linguagem
-
(and 1 more)
Tagged with:
-
Bom dia.Estou com um probleminha que não estou conseguindo resolver.Tenho dois DBGrids onde no 'Dbgrid1' coloco as contas e no 'Dbgrid2' as parcelas das mesmas e desta forma atualizo as cores conforme baixa nas contas e parcelas.Digamos que para o 'Dbgrid1' uso o DM.qcontasareceber e no 'Dbgrid2' uso o DM.qparcelasR.Preciso que as contas vencendo no dia atual fiquem conforme abaixo. //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color
-
Separar conteudo de arquivi HTM com Pascal
Roberto Duha posted a question in Outras Linguagens de Programação
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 -
funcao Exemplo de função | comentada | pascal
Thiago André Cardoso posted a question in Lógica de Programação
Uso na prática: ------------------------------ program FuncaoSomar; uses crt; var numero1, numero2, resultado: integer; // início da função somar function somar(n1:integer; n2:integer😞integer; // n1 e n2 são variáveis locais e só existem dentro dessa função. begin somar:= n1 + n2; // retorna o valor da soma para a função end; // Fim da função somar // Bloco principal do programa begin clrscr; writeln('Este programa irá somar dois valores'); writeln('Digite o primeuro número:' -
//fpc 3.0.0 //Thiago André Cardoso Silva //Git Hub: https://github.com/doctorwho1998 program funcionario; uses crt; const COL = 2; LIN = 10; var matricula_nome:array[0..(LIN - 1), 0..(COL - 1)] of String; salario:array[0..9] of Real; jornada:array[0..9] of integer; matricula:String; q_c,i,j,k,aux_alt,aux_exc,aux_mat:integer; cont_cad:boolean; //-----Pesquisar funcionário----- procedure pesquisar(mat:String); begin for i := 0 to 9 do begin if mat = matricula_nome[i,0] then begin writeln; writeln('Resultado da busca:');
-
1 - Deixe sua reposta para que outras pessoas posam ver 2 - Pode-se responder em qualquer linguagem, mas se puder deixar só o algoritmo escrito (Portugol) por exemplo, seria ótimo. Vamos ao desafio: Criar um algoritmo que multiplique dois números inteiros positivos maiores que zero SEM usar o operador de multiplicação (*) Boa sorte!
-
Este programa irá: | Escrever 10 números aleatórios em um vetor | Ordenar um vetor em ordem crescente | Trocar um valor por outro, caso tenha | inserir um valor na ultima posição | //fpc 3.0.0 program vetor; var vet:array[0..9] of integer; vet_aux:array[0..9] of integer; i, j, k, aux_crescente, x, y, ultima:integer; // Procedimento que irá mostrar o vetor na tela procedure mostrar ( vetor : array of integer) ; var i : integer; begin for i := 0 to 9 do write(vetor[i], ' '); end; // Fim do procedimento
-
Porque o pascal do Linux não aceita a biblioteca crt(uses crt)?
-
Pessoal sou iniciante na programação, estou com dúvidas nessa questão, pois não consigo resolver, o programa tem que ser resolvido só com comados de entrada e saída. Carlos chegou ao aeroporto para fazer o check-in do seu vôo. Ao entrar na fila de passageiros, ele percebeu que a empresa aérea tinha 5 guichês para fazer o check-in dos passageiros, e que estes guichês eram numerados de 1 a 5. Considerando que os guichês iam começar a realização dos check-ins no exato momento em que Carlos entrou na fila, e que cada check-in é realizado em exatamente 15 minutos, escreva um programa
-
Bom pessoa boa noite, comecei a fazer um trabalho da faculdade de grafos, que é pra ler um arquivo .txt contendo uma matriz nesse arquivo e o programa mostrar a arvore minima geradora pelo algoritmo de Kruskal, eu so não consegui fazer até agora essa parte desse algoritmo, achei muito complexo, vou postar aqui a parte do meu codigo onde ler o arquivo, se alguém poder me ajudar agradeço muito. Program AlgoritmoemGrafos; uses crt, dos; var MAdjacencia : Array [1..100,1..100] of integer; {Matriz de Adjacencia do Grafo} n,m : Integer; {Quantidade de Vertices e de Arestas direcion
-
Olá a todos. Estava fazendo um trabalho para o curso referente a corretora de seguros onde trabalho. Porém após o término percebi um grave erro e não estou conseguindo ideias para resolver. SEGUINTE: * O preço de um seguro vem de: Valor Líquido + 7.38% de IOF * Porém, Este valor líquido é o valor já adicionado a comissão. Exemplo: Valor Líquido(15% de comissão)= 1254.80 IOF(7.38%)= 92.60 Valor Total= 1347.41 * Gostaria de fazer que o valor líquido variasse ao modo que altero a comissao. Tentei de toda forma e não consigo. Segue ____________________________________________
-
Olá, Preciso executar uma aplicação que calcule o valor de IOF(+7,8%) sobre um valor à determinar. Após isto, preciso elencar as parcelas sendo que: em 1x não há juros em 2x há 1,7% sobre o valor da de (1x) em 3x há 1,7% sobre o valor da de (2x) . . . . até 9x Por Exemplo: Valor liquido: R$ 900,00 IOF:+7,8% Valor total: R$ 970,20 1x 970,20 2x 493,34 = 986,69 3x 334,49 = 1003,46 . . . Alguém me da uma luz???
-
Olá pessoal,boa tarde! Tudo bem ? Estou com umas dúvidas em pascal e gostaria de umas ajudas. Tenho o seguinte exercício: Desenvolva uma pequena aplicação em Pascal que leia do teclado um inteiro n, maior ou igual a 1, e que e que apresente linhas dessa forma: 1 1 1 1 1 4 4 4 4 9 9 9 16 16 25 Dessa forma eu já consegui fazer usando comandos de repetição, todavia o terceiro exercício pede que façamos esse mesmo exercício usando recursividade(sem repetição), não tenho muita ideia de como poderia começar, alguém poderia me dar uma ideia? Segue o código da primeira aplicação
- 2 replies
-
- recursividade
- pascal
-
(and 2 more)
Tagged with:
-
Soluções em biometria para leitor Nitgen e Catracas Biométricas para desenvolvedores vb.net implementamos biometria em seu projeto de controle de ponto.. saiba mais sobre nossas soluções em http://geovanny-oliveira16.wix.com/khronostecnologia Acesse nosso canal no youtube e saiba mais sobre nosso módulo para desenvolvedor em biometria https://www.youtube.com/watch?v=YH318BNCV6E Giovanny Oliveira Skype:Giovanny 0113 Correio Eletrônico:[email protected]