7/23/2019 Variáveis e Strings

http://slidepdf.com/reader/full/variaveis-e-strings 1/1

Program strings;var teste, copia, maiuscula: string;posicao: Integer; Begin  teste:='Thiago Batista'; {botar Santana entre o nome}  insert('Santana ',teste,8); {trata com 1 a mais}  writeln(teste);  writeln; 

posicao:=pos('Santana',teste); {procurar a posiçao}  writeln(posicao);  writeln; 

delete(teste,8,8); {deletar o string na posição 8,8} writeln(teste); writeln; maiuscula:= upcase(teste); {transformar em maiusculo} writeln(maiuscula); writeln; writeln(concat(teste,' ',maiuscula)); {juntar} writeln; 

copia:= copy(teste,0,6); {copiar o string da posição} writeln; {variáveis compostas heterogênear(registros)} {type - criando sua própria variável antes do var} 

End.

-----------------------------------------------------------------------------------------

Program variaveis;type aluno = record nome: string[20];  matricula, cpf: integer;  end;var alunos: aluno; Begin  writeln('Digite seu nome: ');  readln(alunos.nome);  writeln('Digite sua matrícula: ');  readln(alunos.matricula);  writeln('Digite seu cpf: ');  readln(alunos.cpf);  writeln('Nome: ',alunos.nome,' Matrícula: ',alunos.matricula,' Cpf: ',alunos.cp

f) End.