Colunista ainda sem descrição. Caro colunista, por favor envie-nos sua descrição.
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