HugoTessaro
Membros-
Total de itens
12 -
Registro em
-
Última visita
Sobre HugoTessaro
HugoTessaro's Achievements
0
Reputação
-
Duvida em 2 funções
pergunta respondeu ao HugoTessaro de HugoTessaro em Outras Linguagens de Programação
Muito obrigado Jhonas, exatamente como precisava! Ao invez de colocar -1 nos IFs das funções, modifikei o array para 0 até 6. Valeu cara -
Boa noite, faço curso de programação em pascal, e o professor deu um exercicio para que resolvessemos. Mas não consegui deixar ele 100%, o resultado final da um valor totalmente diferente... Vou postar o código e se alguém puder me ajudar agradeçerei Function Pertence(vet: Array of Integer; v: Integer):Boolean; Var x: Integer; Begin For x:=1 To 7 Do If (vet[x] = v) Then Result := TRUE; End; Function Posicao(vet: Array of Integer; v: Integer):Integer; Var x: Integer; Begin If Pertence(vet,v) Then For x:=1 To 7 Do If (vet[x] = v) Then Result := x; End; VAR Vetor: Array[1..7] of Integer; x: Integer; BEGIN For x:=1 To 7 Do Begin WriteLN('Digite o ',x,'o valor'); ReadLN(Vetor[x]); End; WriteLN('Digite um valor para verificar se contem no vetor'); ReadLN(x); If Pertence(Vetor,x) = TRUE Then WriteLN('O valor ',x,' esta na posicao ',Posicao(Vetor,x),' do vetor') Else WriteLN('Este valor não pode ser encontrado'); ReadLN; END. A ideia do programa é, digitar 7 valores; depois digitar um outro fora do array; ai ter uma função pra verificar se aquele valor está presente no array de 7 numeros; depois ele verifica a posição no array daonde aquele valor está. Aqui estou usando para compilar em DOS no Delphi, se alguém tiver alguma ideia ai... Valeu
-
Olá, vou postar aqui, 2 funções. Um para converter numero binário para decimal e outra parar converter decimal para binário. Sou iniciante em delphi, e tive esta duvida, então talvez alguma outra pessoa tambem possa ter. Por ser iniciante, nunca tinha feito uma função tão legal assim :mellow: e creio que esteja certa. function BinToDec(valor: String): string; var decimal: real; x,y:integer; begin decimal:=0; y:=0; for x:=Length(valor) DownTo 1 Do Begin decimal:=decimal+(StrToFloat(valor[x]))*Exp(y*Ln(2)); y:=y+1; End; result:=FloatToStr(decimal); End; function DecToBin(valor: integer): string; var binario: string; begin while valor >= 1 do begin binario:=IntToStr(valor mod 2)+binario; valor:=(valor div 2); end; result:=binario; end;
-
Boa noite, queria saber como colocar arquivos .GIF em meu programa... andei procurando por ai e achei uma unit com um arquivo .cnt junto... mas eu não sei como instalar... se alguém puder me dar uma luz agradeço muito.
-
Funcionou perfeitamente! Vlw pela dica
-
Boa tarde, estou precisando de um comando que feche o programa... o código é assim... Eu pesso pra ele digitar uma palavra, se a palavra for diferente da tal, o programa fecha... System.Console.WriteLine("Digite uma palavra"); Palavra = System.Console.ReadLine(); if ((Palavra!= "a") && (Palavra!= "b") && (Palavra!= "c")) { Programa fecha; } não sei o comando, pois não sei absolutamente nada de C# Se alguém me responder agradeço! :rolleyes:
-
Olá, estou tentando faze um simples programa aqui mas acontece um erro... O programa é o seguinte... Estou usando o componente ClientSocket(ScktComp). Tem 2 Edit, um serve pra por o IP do servidor, e o outro a porta. Ai coloquei 1 Botão, e quando clicado, o socket é ativado (Cliente.Active := True), ai puiz o comando... Cliente.Socket.Connected = True Se ele tiver conectado, escreve num Label que o servidor está online, caso contrario escreve offline... mas em alguns IPs que eu tento verificar (Ex: 127.0.0.1) ele da um erro, e descobri que este erro é porque o servidor não é encontrado também da erro quando você verifica muitas vezes IPs diferente. Sou iniciante, se alguém puder me ajudar... Agradeço mesmo!
-
(Resolvido) Como fazer para funcionar o programa...
pergunta respondeu ao HugoTessaro de HugoTessaro em Delphi, Kylix
Perfeito! Problema resolvido, Vlw -
Bom, estou aprendendo Delphi faz 1 semana... e estou com uma duvida de como fazer tipo, eu crio um programa, ai eu coloco por exemplo, um código que quando aperta CTRL + T, faz tal comando... mas queria que se eu apertasse CTRL + T mesmo o programa estando minimizado executasse o comando Dificil de explicar... lol Tomara q tenham entendido
-
(Resolvido) Duvida com cursor do mouse
pergunta respondeu ao HugoTessaro de HugoTessaro em Delphi, Kylix
Consegui!!! Os comandos são esses: -
Boa tarde! Estou com dificuldade para fazer uma coisa que seria... Ao apertar um botao qualquer do teclado, levar o cursor do mouse na posição X, Y da tela, e fazer com que automaticamente ele de um clique no botao esquerdo do mouse... Mover o cursor até a posição que desejo quando apertada a tecla já consegui fazer... só não estou conseguindo fazer com que ele de um clique.
-
Excelente! Porem esse código copia apenas o arquivo que está sendo executado... sera que teria como fazer para que copie juntamente com o programa mais arquivos que estão na mesma pasta? mesmo eu especificando seu nome...