TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Visual Basic 6.0

Exames: Visual Basic 6.0. Pesquise 861.000+ trabalhos acadêmicos

Por:   •  23/8/2014  •  258 Palavras (2 Páginas)  •  378 Visualizações

Página 1 de 2

10

2.3 Corpo do Programa

O programa propriamente dito em Pascal está escrito na área denominada corpo

do programa. esta área tem início com a instrução begin e é finalizada pela instrução

end seguida do símbolo ponto ( . ). O uso destas instruções caracteriza o que é chamado

de bloco, como indicado abaixo:

begin

instruções;

(...)

end.

Na área denominada corpo do programa, poderão existir, dependendo da

necessidade, vários blocos.

2.4 Exemplo de um Programa em Pascal

Para se colocar em prática o que foi explicado até este momento, considere o

seguinte exemplo de um problema:

“Desenvolver um programa que efetue a leitura de dois valores numéricos.

Faça a operação de adição entre os dois valores e apresente o resultado obtido.”

Note que sempre estaremos diante de um problema, e que este deverá ser

resolvido primeiro por nós, para que depois seja resolvido por um computador.

Primeiramente, você deve entender bem o problema, para depois buscar a sua solução

dentro de um computador, ou seja, você deverá “ensinar” a máquina a resolver seu

problema, através de um programa. Desta forma, o segredo de uma boa lógica está na

compreensão adequada do problema a ser solucionado. Vejamos nosso problema citado

acima:

Algoritmo:

1. Ler um valor para a variável A;

2. Ler outro valor para a variável B;

3. Efetuar a soma das variáveis A e B, colocando o resultado na variável X;

4. Apresentar o valor da variável X após a operação de soma dos dois valores

fornecidos.

Completada a fase de interpretação do problema e da definição das variáveis a

serem utilizadas passa-se para a fase de codificação de nosso programa para a

linguagem Pascal.

11

Programa em Pascal

program ADICIONA_NUMEROS;

var

X : integer;

A : integer;

B : integer;

begin

readln(A);

readln(B);

X := A + B;

writeln(X);

...

Baixar como (para membros premium)  txt (1.9 Kb)  
Continuar por mais 1 página »
Disponível apenas no TrabalhosGratuitos.com