program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
{ TODO -oUser -cConsole Main : Insert code here }
end.
A primeira linha do nosso programa, program Project2; é o nome do nosso projeto, para alterarmos o nome dele, devemos usar o menu File / Save Project As...
Na seqüência temos a linha {$APPTYPE CONSOLE} que indica o tipo do nosso programa, ou seja, uma aplicação do tipo console.
Colocamos na seção Uses as bibliotecas que serão usadas em nosso programa. Por exemplo, nesse programa estamos usando a biblioteca SysUtils, ela contém funções que iremos usar a no decorrer do artigo.
Colocamos na seção Uses as bibliotecas que serão usadas em nosso programa. Por exemplo, nesse programa estamos usando a biblioteca SysUtils, ela contém funções que iremos usar a no decorrer do artigo.
Colocamos na seção Uses as bibliotecas que serão usadas em nosso programa. Por exemplo, nesse programa estamos usando a biblioteca SysUtils, ela contém funções que iremos usar a no decorrer do artigo.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Nome: String;
Idade: Integer;
Salario: Double;
Fumante: boolean;
Letra: char;
begin
{ TODO -oUser -cConsole Main : Insert code here }
end.
No código você pode observar que foram declaradas cinco variáveis. A sua declaração se dá da seguinte maneira: Nome: Tipo; ou Nome1, Nome2, Nome3: Tipo;
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Nome: String;
Idade: Integer;
Salario: Double;
Fumante: boolean;
Letra: char;
begin
Nome := 'Jakson Wendt';
Idade := 21;
Salario := 100.12;
Fumante := False;
Letra := 'J';
end.
Escrevendo na tela
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
Write('Meu primeiro programa!');
end.
Observação: note que após compilar seu programa ele aparece na tela e some rapidamente. Podemos corrigir colocando o comando Readln antes do end.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
Write('Meu primeiro programa!');
readln;
end.
Como você pode observar acima usamos o comando Write, quando a mensagem é exibida note que o cursor ficará pronto para “escrever” na mesma linha. Isso pode ser um problema se, por exemplo, colocarmos outro comando Write na seqüência.
begin
Write('Minha primeira linha de codigo!');
Write('Minha segunda linha de codigo!');
readln;
end.
Quando executado o programa, observe que ambas as linhas se mantêm juntas.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Nome: String; //Declara variável Nome do tipo String
Salario: Double; //Declara variável salario do tipo Double
begin
Nome := 'Jakson'; //Atritui a palavra Jakson à variável Nome
Salario := 500.00; //Atribuir o valor de 500.00 à Variável Salario
Writeln('Meu nome e: ', Nome); //Escreve ‘Meu nome é: ‘ e depois a variável Nome
Write('Meu salario e: ', Salario:3:2); //Escreve ‘Meu salário é : ‘ e depois a variável Salário
readln;
end.
Observe que após mostrarmos a variável salário, colocamos :3:2, ficando Salario:3:2. O 3 representa o número de casas antes da virgulas e o 2 são o número de casas decimais.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Nome: String;
Salario, INSS: Double; //Declara a variável INSS
begin
Nome := 'Jakson';
Salario := 500.00;
INSS := Salario * 0.08; //Atribui à variável INSS o valor do cálculo (Salario * 8%)
Writeln('Meu nome e: ', Nome);
Writeln('Meu salario e: ', Salario:3:2);
Writeln('Meu INSS e: ', INSS:3:2); //Exibe o valor da variável INSS
readln;
end.
Para fixar melhor vamos fazer um exemplo na qual iremos realizar a soma de dois números inteiros. Para fazermos esse cálculo, vamos precisar de três variáveis: num1, num2 e soma.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
num1, num2, soma: Integer; //Declara variáveis
begin
num1 := 20; //Atribui 20 à variável num1
num2 := 60; //Atribui 60 à variável num2
soma := num1 + num2; //Soma as variáveis num1 e num 2
Writeln('A soma e: ', soma); //Exibe a variável soma
readln;
end.
Para implementarmos um pouco mais ainda nosso programa, vamos fazer com que os valores de num1 e num2 sejam informados pelos usuário ao invés de simplesmente defini-los.
Para que possamos ler os valores informados pelo usuário vamos fazer uso da função read e readln. A diferença entre read e readln é a mesma entre write e writeln.
num1 := 20; //Atribui 20 à variável num1 num2 := 60; //Atribui 60 à variável num2Por:
Write('Digite o número 1: ');
readln(num1);
Write('Digite o número 2: ');
readln(num2);
Assim, exibiremos uma mensagem solicitando ao usuário que digite o primeiro valor. Após exibir a mensagem o programa fica “esperando” que o usuário digite um número inteiro e pressione a tecla Enter. Assim que Enter for pressionada, o valor digitado pelo usuário será armazenado dentro da variável num1. Em seguida, será exibida a mensagem solicitando que o usuário digite o segundo valor e será aguardado que o número seja digitado e Enter pressionada. Na seqüência o programa se comportará de maneira semelhante ao programa anterior.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Nome: String;
Salario: Double;
Const
INSS: Double = 0.08; //Declara constante INSS e atribui valor para a mesma
begin
Write('Digite seu nome: ');
readln(Nome);
write('Digite seu salario: ');
readln(salario);
Write(Nome, ' seu desconto e de: ', Salario * INSS:3:2);
readln;
end.
Bom, espero que esse artigo sirva para os que estão iniciando para terem um pouco mais de lógica de programação. Nos próximos dias estarem postando a continuação dos mesmos. Vou deixar um e-mail para que vocês possam entrar em contato, enviar sugestões para artigos, críticas, dúvidas etc.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009