Search the Community

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;

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

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

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)?

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

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

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]