Strings Pascal

Introdução a Pascal
Introdução a Lógica de Programação

Cadeia de Caracteres (String)
• var Identificador : string[8];
• Uma string pode ser vista como um vetor cujas componentes são variáveis do tipo char
– Pode ser acessada de uma só vez var St : string[8];
St := ‘Livro’;

St[1] = L, St[4] = r
Length(St) = 5

Exemplo program ExemploStrings; var St1, St2: string[20]; begin readln(St1);
St2 := 'MARIA' if (St1 < St2) then writeln(St1) else writeln(St2); end;

Exemplo program ContaVogais; var frase : string; letra: char; i, contVog : integer; begin writeln('Digite a frase'); readln(frase); contVog := 0; for i := 1 to Length(frase) do begin letra := UpCase(frase[i]); if (letra = 'A') or (letra = 'E') or (letra = 'I') or (letra = 'O') or (letra =
'U') then
ContVog := ContVog + 1; end; writeln('A frase: ', frase,' possui ', ContVog, ' vogais '); end. Manipulação de Strings
• Funções e procedimentos predefinidos para manipulação de cadeias de caracteres

Concatenando strings
• Concat(s1, s2, ... , sn : string) : string
• Operador +
St1 := 'Programa';
St2 := 'dor';
St := Concat(St1,St2); ou St := St1 + St2;

Verificando Substring
• Pos(St1, St2 : string) : byte;
• Verifica se a string St1 está contida na string St2, retornando a posição a partir da qual isto ocorre ou zero se St1 não é substring de St2 p := Pos('Federal', 'Universidade Federal da Bahia'); armazena em p o valor 14, enquanto que o comando p := Pos('Fedetal', 'Universidade Federal de Alagoas'); armazena em p o valor zero.

Extraindo uma Substring
• Copy(s : string, i, n : integer) : string;
• Retorna, da string s, a substring com n caracteres, a partir do índice i
Data := '07/09/1822';
Mes := Copy(Data, 4, 2); armazena em Mes a cadeia de caracteres 09.

Excluindo caracteres de uma string
• Delete(s : string, i, n : integer);
• Exclui, da string s, n caracteres a partir do índice i
St := ‘CAMINHAO’;
Delete(St, 3, 2);