Programas em Ambiente Delphi
Tipo de Dado Inteiro
Vamos elaborar um programa que efetue a leitura de dois
números do tipo inteiro e efetue uma soma.
Algoritmo:
1.
Ler um número inteiro
2.
Ler um segundo número inteiro
3.
Efetuar a adição dos dois valores
4.
Apresentar o valor calculado
Início
A, B
R = A+B
Obs:
Você irá necessitar de dois componentes
Edit, um Button e um Label
R
Fim
Programas em Ambiente Delphi
Tipo de Dado Inteiro
Como iremos trabalhar com VARIÁVEIS,
elas necessitam ser previamente declaradas
com nome e tipo.
Vá no Unit1.PAS do Button e declare as
Variáveis da seguinte maneira:
procedure TForm1.Button1Click(Sender: TObject);
var
A, B, R: Integer;
begin
end;
end.
Programas em Ambiente Delphi
Tipo de Dado Inteiro
Teremos agora de preparar o programa para trabalhar o que
realmente queremos: Somar !
Os dados estão sendo coletados nos componentes (objetos)
Edit1 e Edit2, porém estas estruturas trabalham apenas com
tipo String (alfanumérico).
Teremos de usar uma função para converter o tipo String para
Integer para compatibilizar com as variáveis numéricas.
StrToIInt (Componente)
Programas em Ambiente Delphi
Tipo de Dado Inteiro
procedure TForm1.Button1Click(Sender: TObject);
var
A, B, R: Integer;
begin
A := StrToInt (Edit1.Text);
B := StrToInt (Edit2.Text);
R := A + B;
end;
end.
Agora, temos de transferir o resultado da variável R para o componente Label de
saída. Este componente também trabalha com Strings apenas, há necessidade de
usar outra função para converter tipos: IntToStr (Componente)
Label1.Caption := IntToStr (R);
Programas em Ambiente Delphi
Tipo de Dado Inteiro
Programas em Ambiente Delphi
Tipo de Dado Real
Para entender o tipo Real e algumas funções que o manipulam
vamos desenvolver o seguinte programa:
Calcular o salário líquido de um profissional que trabalha
por hora.
Iremos necessitar de alguns dados, como:
1. valor da hora do trabalho (VH))
2. número de horas trabalhadas no mês (HT)
3. percentual de desconto do INSS (PD)
Algumas fórmulas:
Salário Bruto (SB) = HT * VH
Total de Desconto (TD) = (PD/100) * SB
Salário Líquido (SL) = SB - TD
Programas em Ambiente Delphi
Tipo de Dado Real
Algoritmo:
1. Obter o valor para a variável HT (Horas Trabalhadas no mês)
2. Obter o valor para a variável VH (valor hora trabalhada)
3. Obter o valor para a variável PD (percentual desconto)
4. Calcular o salário bruto (SB) = HT * VH
5. Calcular o total de desconto (TD) = (PD/100)*SB
6. Calcular o salário líquido (SL) = SB – TD
7. Apresentar o valor do salário líquido
Início
HT, VH, PD
SB = HT*VH
TD = (PD/100)*SB
SL = SB-TD
SL
Início
Programas em Ambiente Delphi
Tipo de Dado Real
Algumas Funções para manipulação do tipo Real:
StrToFloat (Argumento) = converte tipo String para tipo Real (Float)
FloatToStr (Argumento) = inverso do anterior
Definição do tipo de variável:
var
HT, VH, PD, TD, SB, SL: Real;
Formatação da Máscara de Saída:
FormatFloat (‘#,##0.00;(#,##0.00);ZERADO’, variável)
positivo negativo zeros
Programas em Ambiente Delphi
Tipo de Dado Real
Codificar e Executar !!!
Exercícios
Programas em Ambiente Delphi
Tomada de Decisões
A tomada de decisão é uma das estruturas fundamentais para o desenvolvimento
de qualquer aplicação.
Basicamente, temos a CONDIÇÃO e a DECISÃO, onde compomos estrutura de
comandos para encaminhar a lógica de execução das instruções do programa.
Operadores Relacionais determinam uma condição a ser analisada. Temos:
=
<>
>
<
>=
<=
igual a
diferente de
Maior que
menor que
maior ou igual que
menor ou igual que
Programas em Ambiente Delphi
Desvios Condicionais
O desvio condicional é definido através da instrução if ... Then, que possui a
seguinte sintaxe:
if <condição> then
<instrução executada quando a condição é verdadeira>;
Quando há necessidade de executar mais de uma instrução no caso da condição
verdadeira, define-se um “bloco de comandos” através de uma estrutura begin/
end, da seguinte forma:
if <condição> then
begin
<instrução1>;
<instrução2>;
<instrução3>;
.....
end;
Programas em Ambiente Delphi
Desvios Condicionais
Início
A,B
Exemplo:
Exemplo
Ler dois números inteiros,
Se a soma for maior que 10,
Mostrar o valor.
R=A+B
N
R>10
S
R
Fim
Programas em Ambiente Delphi
Desvios Condicionais
procedure TForm1.Button1Click(Sender: TObject);
var
A, B, R: Integer;
begin
A := StrToInt (Edit1.Text);
B := StrToInt (Edit2.Text);
R := A + B;
If (R > 10) then
Label3.Caption := IntToStr (R);
Edit1.SetFocus;
end;
end.
Programas em Ambiente Delphi
Desvios Condicionais
O desvio condicional pode ser composto, aumentando a flexibilidade do uso,
que possui a seguinte sintaxe:
if <condição> then
begin
<instrução 1>;
<instrução 2>;
...
end
else
begin
<instrução 1>;
<instrução 2>;
...
end;
Programas em Ambiente Delphi
Desvios Condicionais
Também é possível fazer o encadeamento do comando if ... then ... else:
if <condição> then
if <condição> then
<instrução 1>
else
<instrução 2>
else
begin
<instrução 1>;
<instrução 2>;
...
end;
Programas em Ambiente Delphi
Operadores Lógicos
Permite a análise de condições concatenadas, ou seja, várias condições compondo
um resultado final, que será verdadeiro ou falso para a condição analisada. Temos:
AND
OR
NOT
if <condição1> AND <condição2> AND <condição3> then ...
if <condição1> OR <condição2> OR <condição3> then ...
if not (condição1) then ...
Programas em Ambiente Delphi
Algumas Funções e Componentes
Função ShowMessage
Tem a finalidade de apresentar uma mensagem dentro de uma caixa com um botão
OK. Usada como saída informativa para usuário.
Sintaxe:
ShowMessage (‘texto’);
Componente RadioButton
Este componente, entre outras funções, nos permite selecionar opção de “Marcado”
ou “Não Marcado”, de forma a termos condições de tomar decisões no programa.
A verificação do seu status é através do componente “RadioButtonX.Checked”:
if (RadioButton1.Checked) then ...
Programas em Ambiente Delphi
Exercício
Codificar uma “Calculadora Simples”, utilizando-se das funções vista até agora,
de forma a fazer as operações básicas de: Adição, Subtração, Multiplicação e
Divisão, conforme layout abaixo: