 |
|
||||
Você está aqui: Cards de Engenharia Civil - Estruturas de Concreto Armado |
||
|
||
 Link para compartilhar na Internet ou com seus amigos: |
||
Dart ::: Desafios e Lista de Exercícios Resolvidos ::: Arrays e Matrix (Vetores e Matrizes) |
Exercício Resolvido de Dart - Escreva um programa Dart para mover todos os zeros para o final do vetor, sem alterar a ordem dos elementos já presentes no arrayQuantidade de visualizações: 872 vezes |
|
Pergunta/Tarefa: Dado o seguinte vetor de inteiros: // vamos declarar e construir um vetor (List) de 8 inteiros List<int> valores = [0, 3, 0, 5, 7, 4, 0, 9]; Sua saída deverá ser parecida com: Vetor na ordem original: 0 3 0 5 7 4 0 9 Vetor com os zeros deslocados para o final: 3 5 7 4 9 0 0 0 Veja a resolução comentada deste exercício usando Dart:
// Vamos importar a biblioteca dart:io
import "dart:io";
void main(){
// vamos declarar e construir um vetor (List) de 8 inteiros
List<int> valores = [0, 3, 0, 5, 7, 4, 0, 9];
// vamos mostrar o vetor na ordem original
print("Vetor na ordem original:\n");
for(int i = 0; i < valores.length; i++){
stdout.write("${valores[i]} ");
}
// vamos inicializar j como 0 para que ele aponte para
// o primeiro elemento do vetor
int j = 0;
// agora o laço for percorre todos os elementos do vetor,
// incrementanto a variável i e deixando o j em 0
for(int i = 0; i < valores.length; i++){
// encontramos um valor que não é 0
if(valores[i] != 0){
// fazemos a troca entre os elementos nos índices
// i e j
int temp = valores[i];
valores[i] = valores[j];
valores[j] = temp;
// e avançamos o j para o elemento seguinte
j++;
}
}
// agora mostramos o resultado
print("\n\nVetor com os zeros deslocados para o final:\n");
for(int i = 0; i < valores.length; i++){
stdout.write("${valores[i]} ");
}
}
Não se esqueça: A resolução do exercício deve ser feita sem a criação de um vetor, array ou lista adicional, e os elementos diferentes de zero devem permanecer na mesma ordem que eles estavam antes. |
Delphi ::: Dicas & Truques ::: Arquivos e Diretórios |
Como listar todos os arquivos de um diretório usando DelphiQuantidade de visualizações: 2658 vezes |
|
Como listar todos os arquivos de um diretório usando Delphi Em algumas situações precisamos listar todos os arquivos contidos em um determinado diretório. Para isso podemos usar a função abaixo. Esta função recebe o caminho e nome de um diretório e uma coleção de strings TStrings. Como resultado de sua execução, a função insere em TStrings todos os nomes dos diretórios encontrados. Para facilitar o entendimento do exemplo eu incluí uma chamada à função a partir do evento Click de um botão. Tenha a certeza de colocar uma TListBox no formulário antes de executar o código:
procedure listarArquivosDir(diretorio: string; lista: TStrings);
var
search_rec: TSearchRec;
begin
if FindFirst(diretorio + '*.*', faAnyFile, search_rec) = 0 then
begin
repeat
if search_rec.Attr <> faDirectory then
lista.Add(search_rec.Name);
until FindNext(search_rec) <> 0;
FindClose(search_rec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
listarArquivosDir('c:\', ListBox1.Items);
end;
Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
C# ::: Windows Forms ::: TextBox |
Como definir a cor de fundo de uma caixa de texto TextBox do C# Windows Forms via códigoQuantidade de visualizações: 9373 vezes |
|
Nesta dica mostrarei como podemos usar a propriedade BackColor da classe Control do C# Windows Forms para definir a cor de fundo de uma caixa de texto TextBox. Note que criei uma TextBox com o nome textBox1 e estou chamando o código a partir do evento Click de um botão Button. Veja o trecho de código para o exemplo:
private void button1_Click(object sender, EventArgs e){
textBox1.BackColor = Color.YellowGreen;
}
|
Java ::: Dicas & Truques ::: Matemática e Estatística |
Como converter de binário para decimal usando o método parseInt() da classe Integer da linguagem JavaQuantidade de visualizações: 16149 vezes |
|
Nesta dica eu mostro como podemos usar o método parseInt() da classe Integer do Java para converter um valor binário em um valor decimal. Para isso só precisamos forcecer o valor 2 como segundo argumento para o método parseInt(). Veja o código completo para o exemplo:
package arquivodecodigos;
public class Estudos{
public static void main(String args[]){
String binario = "00000110";
// efetua a conversão de binário para
// decimal
int decimal = Integer.parseInt(binario, 2);
// exibe o resultado
System.out.println("O valor binário " + binario +
" convertido para decimal é: " + decimal);
System.exit(0);
}
}
Ao executar este exemplo nós teremos o seguinte resultado: O valor binário 00000110 convertido para decimal é: 6 |
Delphi ::: Dicas & Truques ::: Arquivos e Diretórios |
Como retornar o diretório atual em Delphi usando a função GetDir()Quantidade de visualizações: 13056 vezes |
Em algumas situações precisamos obter o diretório atual, ou seja, aquele a partir do qual nosso programa está sendo executado. Em Delphi isso pode ser feito com o auxílio da procedure GetDir(). Esta procedure requer um valor inteiro na faixa de 0 a 3 e uma string passada por referência. Em geral usamos o valor 0 no primeiro argumento para representar o drive padrão. Veja o exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
diretorio_atual: string;
begin
// vamos obter o diretório atual e atribuí-lo
// na variável diretorio_atual
GetDir(0, diretorio_atual);
// vamos exibir o resultado
ShowMessage('O drive e diretório atual são: ' +
diretorio_atual);
end;
Ao executar este código nós teremos o seguinte resultado: O drive e diretório atual são: C:\Users\Osmar\Documents\RAD Studio\Projects Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
