Variáveis, Tipos de Dados e Constantes

Variáveis – armazena valor que podem ser

modificados

Tipos de Dados – inteiro, real, caractere,

literal e lógico

Constantes – armazena um valor fixo

Variáveis, Tipos de Dados e Constantes

Tipos de dados em portugol

Tipos de dados em pascal

InteiroRealCaractereLiteralLógico

IntegerRealCharStringBoolean

Nome da constante e seu

tamanho

Variáveis, Tipos de Dados e Constantes

Algoritmo teste;Const tamanho_maximo

= 30; Declare nome : literal; idade : inteiro; sexo : caractere; salário : real; opção : lógico;Inicio <comandos>;Fim.

Variável e seu respectivo

tipo

Sintaxe em portugol

Sintaxe em pascal

Program teste;Const tamanho_maximo

= 30; Declare nome : string

[20]; idade : integer; sexo : char; salário : real; opção : boolean;Begin <comandos>;End.

Variáveis, Tipos de Dados e Constantes

Nome da constante e seu

tamanho

Variável e seu respectivo

tipo

Variáveis, Tipos de Dados e Constantes

Sintaxe em portugol Sintaxe em pascal

Algoritmo soma;Declare result : inteiro; x,y : inteiro;Inicio Leia (x); Leia (y); result x + y; Escreva (result);Fim

Program soma;Var result : integer; x,y : integer;Begin read (x); read (y); result := x + y; write (result);End.

Exemplos de utilização em

programas

Variáveis, Tipos de Dados e Constantes

Sintaxe em portugol Sintaxe em pascal

Algoritmo media;Declare P1, P2, P3, P4, media : real; nome_aluno : literal;Inicio Ler (nome_aluno); Ler(P1); Ler(P2); Ler(P3); Ler(P4); Media (P1+ P2+P3+ P4) / 4; Escrever(“Média do aluno”,nome_aluno, “é”, media);Fim.

Program media;Var P1, P2, P3, P4, media : real; nome_aluno : string;Begin Read (nome_aluno); Read(P1); Read (P2); Read (P3); Read (P4); Media := (P1+ P2+P3+ P4) / 4; write( ‘Média do aluno’, nome_aluno,’é’, media);End.

Exemplos de utilização em

programas

Registros

Sintaxe em portugol Sintaxe em pascal

Tipo <nome> = registro <lista de campos e seus tipos>

fim registro;

Type <nome> = record <lista de campos e seus tipos>

end;

Tipo cadastro = registro

nome : literal; idade : inteiro;

fim registro;

Type cadastro = record

nome : string [20]; idade : integer;

end;

Registros

Sintaxe em portugol Sintaxe em pascal

Algoritmo registro_aluno; Tipo reg_aluno = registro nome : literal; idade : inteiro; fim registro; Declare aluno: reg_aluno; INICIO Escrever(“Entre com o Nome: ”); Ler(aluno.nome); Escrever(“Entre com a Idade: ”); Ler(aluno.idade); Escrever(“O nome do aluno é:”, aluno.nome); Escrever(“A idade do aluno é:”, aluno.idade); FIM.

Program registro_aluno;Type reg_aluno = record nome : string [20]; idade : integer;end;Var aluno : reg_aluno;Beginwrite (‘Entre com o Nome: ’);read (aluno.nome); write (‘Entre com a Idade: ’);read (aluno.idade); write (‘O nome do aluno é :’, aluno.nome);write (‘A idade do aluno é :’, aluno.idade);End.

Exemplos de utilização em

programas

Registros

Sintaxe em portugolAlgoritmo cadastro_musicas; Tipo cadastro_mus = registro nome : literal; nome_cantor: literal; genero : literal;fim registro; Declare musica[15]: cadastro_mus; i : inteiro;INICIO //Lendo os dados de 15 registros de musicas contidas num vetor Para i de 1 até 15 faça Escrever(“Entre com o nome da musica ”); Ler(musica[i].nome); Escrever(“Entre com o nome do cantor: ”); Ler(musica[i].nome_cantor); Escrever(“Entre com o genero da musica ”); Ler(musica[i].genero); ParaFIM;

Registros

Sintaxe em portugol (cont.)

// Imprimindo os dados de 15 registros de musicas contidas num vetor Para i de 1 até 15 faça Escrever(“O nome da musica é: ”, musica[i].nome); Escrever(“O nome do cantor é : ”, musica[i].nome_cantor); Escrever(“ O genero da musica é : ”, musica[i].genero); ParaFIM; FIM.

Registros

Sintaxe em pascalProgram cadastro_musicas; Type cadastro_mus = record; nome : string [10]; nome_cantor: string [15]; genero : string [8];End; Var musica [15]: cadastro_mus; i : integer;Begin //Lendo os dados de 15 registros de musicas contidas num vetor For i:=1 to 15 do begin writeln (“Entre com o nome da musica ”); readln (musica[i].nome); writeln (“Entre com o nome do cantor: ”); readln (musica[i].nome_cantor); writeln (“Entre com o genero da musica ”); readln (musica[i].genero); end;

Registros

Sintaxe em pascal (cont.)

// Imprimindo os dados de 15 registros de musicas contidas num vetor

For i:=1 to 15 do begin writeln (‘O nome da musica é: ‘, musica[i].nome); writeln (‘O nome do cantor é : ‘, musica[i].nome_cantor); writeln (‘O genero da musica é : ‘, musica[i].genero ); end;

End.

Modularização

Procedimentos Com Parâmetro Sem Parâmetro

Funções Com Parâmetro Sem Parâmetro

Passagem de Parâmetro por Valor

Passagem de Parâmetro por Referência

Com Parâmetro

Sintaxe em portugol Sintaxe em pascal

Procedimento <nome_do_procedimento> (lista de parâmetros); declare < lista-de-variáveis> : <tipo>; <comandos>; FimProcedimento ;

Procedure <nome_do_procedimento> (lista de parâmetros); var < lista-de-variáveis> : <tipo>; begin <comandos>; end;

Procedimentos

Exemplo de utilização em programas Sintaxe em portugol

Procedimentos

Algoritmo multiplos;Declare r ,s: inteiro;Procedimento multiplo (u,v : inteiro) ; inicio Se (u / v = 0 ) então Escrever (“O numero é multiplo de “,v) senão Escrever (“Este numero não é multiplo de”,v,” tente outro !”); fim;Inicio Escrever (“Digite um numero”); Ler (r); Escrever (“De qual numero você quer saber se”,r, “é multiplo ? “); Ler (s); multiplo (r,s);Fim.

u e v são parâmetros do procedimento

multiplo

chamada ao procedimento multiplo

Exemplo de utilização em programas Sintaxe em pascal

Procedimentos

Program multiplos;Var r ,s: integer;Procedure multiplo (u,v : integer) ; begin If (u mod v = 0 ) then writeln (‘O numero é multiplo de ’,v) else writeln (‘Este numero não é multiplo de’,v,’ tente outro !’);End;Begin writeln (‘Digite um numero’); readln (r); writeln (‘De qual numero você quer saber se’,r, ‘é multiplo ? ’); readln (s); multiplo (r,s);End.

Sem ParâmetroProcedimentos

Sintaxe em portugol Sintaxe em pascal

Procedimento <nome_do_procedimento>; declare < lista-de-variáveis> : <tipo>; <comandos>; FimProcedimento ;

Procedure <nome_do_procedimento>; var < lista-de-variáveis> : <tipo>; begin <comandos>; end;

Exemplo de utilização em programas Sintaxe em portugol

Procedimentos

Algortimo verifica_numero;Declare k: inteiro;Procedimento verifica; Inicio Se (k / 2 = 0) então Escrever (“Numero par”) senão Escrever (“Numero impar”); fim;Inicio Escrever (“Digite um numero qualquer”); Ler (k); verifica;Fim.

Chamada ao procedimento

verifica

Exemplo de utilização em programas Sintaxe em pascal

Procedimentos

Program verifica_numero;Var k: integer;Procedure verifica; begin If (k mod 2 = 0) then writeln (‘Numero par’) else writeln (‘Numero impar’); end;Begin writeln (‘Digite um numero qualquer’); readln (k); verifica;End.

Sem Parâmetro

Sintaxe em portugol Sintaxe em pascal

Funcao<Nome>:<tipo de dado do valor retornado>; <declarações locais a esta função>; <corpo da função: seqüência de comandos>; FimFuncao;

Function <Nome>: <tipo de dado do valor retornado>; var < lista-de-variáveis-locais> : <tipo>; begin <comandos>; end;

Funções

Exemplo de utilização em programas Sintaxe em portugol

Funções

Algoritmo multiplica_dois_numeros; Declare x,y, M : real; Funcao multiplica : real; declare multi : real; mult x * y; FimFuncao; Inicio Escrever (“Digite dois números ”) Ler(x, y); M multiplica; Escrever ( “A multiplicação destes números é:”, M); FIM.

Chamada a função multiplica

Exemplo de utilização em programas Sintaxe em pascal

Funções

Program multiplica_dois_numeros; Var x,y, M : real; Function multiplica : real; var multi : real; begin mult := x * y; end; Begin writeln (‘Digite dois números ‘); readln (x, y); M := multiplica; writeln ( ‘A multiplicação destes números é:’, M); End..

Com Parâmetro

Sintaxe em portugol Sintaxe em pascal

Funcao<Nome>(variaveis: tipo de dados):<tipo de dado do valor retornado>; <declarações locais a esta função>; <corpo da função: seqüência de comandos>; FimFuncao;

Function <Nome>(variaveis: tipo de dados): <tipo de dado do valor retornado>; var < lista-de-variáveis-locais> : <tipo>; begin <comandos>; end;

Funções

Exemplo de utilização em programas Sintaxe em portugol

Funções

Algoritmo soma_dois_numeros; Declare a,b : inteiro; Funcao soma (num, valor :inteiro) : inteiro; declare result: inteiro; result:= num + valor ; FimFuncao; Inicio Escrever (“Digite dois números ”) Ler (a , b); Escrever ( “A soma destes números é:”, soma(a,b)); FIM.

Num e valor são parâmetros da função soma

Exemplo de utilização em programas Sintaxe em pascal

Funções

Program soma_dois_numeros; var a,b : integer; Function soma (num, valor :integer) : integer; var result: integer; begin result:= num + valor ; end; Begin writeln (‘Digite dois números ‘) readln (a , b); writeln ( ‘A soma destes números é:’, soma(a,b)); End.