Strings Pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (446 palavras )
  • Download(s) : 0
  • Publicado : 20 de novembro de 2014
Ler documento completo
Amostra do texto
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áveisdo 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];
beginreadln(St1);
St2 := 'MARIA'
if (St1 < St2) then
writeln(St1)
else
writeln(St2);
end;

Exemplo
program ContaVogais;
var frase : string;
letra: char;
i, contVog : integer;
beginwriteln('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 cadeiasde caracteres

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

VerificandoSubstring
• 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 umaSubstring
• 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 acadeia 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);...
tracking img