Baixe o app para aproveitar ainda mais
Prévia do material em texto
and downto In or then asm else Inline packed to array end Final de um programa, procedimento. Interface procedure type begin Início de um programa, procedimento. exports Label program unit case file Library record until const for Mod Imprime o resto de uma divisão 7 mod 2 = 1 repeat uses Agrupa uma lista de unidades predefinidas do compilador Uses crt; Begin clrScr; end. constructor function Nil set var destructor goto Not shl while div Divisão de numerous 8 div 4 if Object shr with do implementation Of readln A entrada de dados é feita em Pascal através do comando de entrada ... Readln(identificador); ... writeln exibição dos resultados do processamento e de mensagens é feita através dos comandos de saída writeln(‘mensagem’,expressao); string xor Readkey Função predefinida que atribui o que é digitado a uma variável. uses Crt; var c: char; begin writeln('Digite um caractere'); c := ReadKey; writeln(' Voce digitou ', c, '.'); end. Tabela 3 Tipos de dados da Pascal Denominação Conjunto de valores Char caracteres codificados no código ASCII (letras, dígitos e caracteres especiais como :, ?, *, etc.) Shortint números inteiros do intervalo [-128, 127] Integer números inteiros do intervalo [–32768, 32767] Longint números inteiros do intervalo [-2 147 483 648, 2 147 483 647] Byte números inteiros do intervalo [0, 255] Word números inteiros do intervalo [0, 65535] Real números reais do conjunto [–3,4x1038, –3,4x10-38][3,4x10-38 , 3,4x1038] Boolean conjunto dos valores false (falso) e true (verdadeiro) - Variáveis pequenas utilizar tipo byte e shortin que é apenas 1byte. - Comando de Atribuição A:=a*a/2; Tabela 8 Algumas funções predefinidas da linguagem Pascal Função Argumento Valor Valor calculado Abs(x) real/integer mesmo valor absoluto de x ArcTan(x) real real número cuja tangente é x Chr(x) byte char caractere cujo código ASCII é x Cos(x) real real coseno de x Exp(x) real real exponencial de x (ex) Frac(x) real real parte fracionária de x program Arredonda; var x : real; Roundx : integer; begin writeln('Digite um número real'); readln(x); if Frac(x) < 0.5 //se a parte fracionaria de x for menor que 0.5 then Roundx := Trunc(x) //atribua a Roundx a parte inteira de x else Roundx := Trunc(x) + 1; writeln('Round(' , x:4:2 , ') = ', Roundx); end. Ln(x) real real logaritmo natural de x Odd(x) integer boolean verifica se x é ímpar program VerificaParidade; var n : integer; begin writeln('Digite um numero inteiro'); readln(n); if Odd(n) = true //se ‘n’ for impar then writeln(n,' e impar') else writeln(n,' e par'); end. Ord(x) tipo ordenado integer ordem de x no tipo de dado program LowCase; var Maiuscula, Minuscula : char; begin writeln('Digite uma letra maiúscula'); readln(Maiuscula); Minuscula := Chr(Ord(Maiuscula) + 32); //atribua a ‘minuscula’ o char de ordem maiúscula + 32 writeln('LowCase(' , Maiuscula , ') = ', Minuscula); end. Pred(x) tipo ordenado mesmo antecessor de x Round(x) real integer arredondamento de x program Arredonda; var x : real; Roundx: integer; begin writeln('Digite um numero real'); readln(x); Roundx := Trunc(2*x) - Trunc(x); writeln('Round(' , x , ') = ', Roundx); end Sin(x) real real seno de x Sqr(x) real/integer mesmo quadrado de x SqrT(x) real/integer real raiz quadrada x Area := SqrT(SemiPer*(SemiPer - a)*(SemiPer - b)*(SemiPer - c)); Succ(x) tipo ordenado mesmo sucessor de x Trunc(x) real integer Exibe a parte inteira de x UpCase(x) char char X maiúsculo Stop pag. 44
Compartilhar