Estude fácil! Tem muito documento disponível na Docsity
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Prepare-se para as provas
Estude fácil! Tem muito documento disponível na Docsity
Prepare-se para as provas com trabalhos de outros alunos como você, aqui na Docsity
Encontra documentos específicos para os exames da tua universidade
Prepare-se com as videoaulas e exercícios resolvidos criados a partir da grade da sua Universidade
Responda perguntas de provas passadas e avalie sua preparação.
Ganhe pontos para baixar
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Apostilas de Tecnologia em Análise e Desemvolvimento de Sistemas sobre o estudo da Linguagem Pascal, Programação Orientada a Objetos.
Tipologia: Notas de estudo
1 / 51
Esta página não é visível na pré-visualização
Não perca as partes importantes!
O ambiente de desenvolvimento
A linguagem Pascal , Programação Orientada a Objetos
Visual Components Library
Banco de dados: abordagem I e II
begin
repeat until Keypressed;
end.
Onde:
objetivo = desviar a seqüência natural do código fonte dos
programas
goto (vá para): desvio incondicional
instrução repetitiva ( for , while e repeat )
instruções são executadas no programa
serem executados
begin
Comando 1;
Comando 2;
Comando N;
end ;
Exemplo da estrutura de controle seqüêncial,
ou composição ( begin - end )
begin
if A < C then A := C;
for i := 1 to 10 do dec(C);
end ;
true
Comando
false
Semântica da instrução condicional na sua
forma simples ( if - then ):
if ExpressãoLógica (EL) then Comando ;
No caso da Expressão Lógica (condição)
avaliada ser verdadeira, o comando ou um
conjunto de comandos é executado e, após
seu término, o fluxo de execução prossegue
pela próxima instrução após a instrução
if - then.
Quando a condição é falsa, nenhum comando é
executado e o fluxo prossegue normalmente
pela primeira instrução após a instrução
if - then.
Exemplo da utilização da instrução condicional
na sua forma simples ( if - then )
if Exame_Glicose < 80
then writeln (‘Hipoglicemia.’) ;
if (Idade = 18) and (Sexo = ‘M’)
then writeln (‘Serviço Militar Obrigatório’) ;
if Salario < (2 * SalarioMinimo)
then begin
Salario := Salario * 1.15;
writeln (‘Salário: ’, Salario:10:2);
end;
{ Efetuar a leitura de um valor inteiro positivo ou
negativo e apresentar o número lido como sendo um
valor positivo, ou seja, o programa devera apresentar
o módulo de um número fornecido. Lembre-se de verificar
se o número fornecido e menor que zero, sendo
multiplique-o por -1. }
program ValorAbsoluto;
uses Crt;
var Numero: integer ;
begin
clrscr ;
write ('Digite o número.: '); readln (Numero);
writeln ;
if Numero < 0
then Numero := Numero * (-1) ;
writeln ('O módulo do Número e.: ', Numero);
readln ;
end.
