• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Antoniossssss

Programa pesquisa

2 mensagens neste tópico

Olá, o programa abaixo pesquisa nomes inseridos no teclado e dá os resultados ( a pesquisa é feita em string), e a pesquisa é feita somente com palavras exatas e inteiras,sem problemas. No entanto eu gostaria de saber se alguém sabe algum comando para ler somente as três primeiras iniciais e as três últimas letras de uma palavra digitada.

Alguém sabe exemplificar essa questão?

Obrigado

program video;
var
K: string; 
begin
Clrscr;

textbackground(white);
GotoXY (30,12);
textcolor (white);
writeLn ('Digite o seu nome');
Clrscr;

GotoXY (40,12);
readLn (K);
if K = 'Gervásio'
then
begin
Clrscr;

GotoXY (40,15);
textcolor (blue);
writeLn ('Nominho feio hein....');  
end 

else
if K = 'Patrícia'
then
begin
Clrscr;
GotoXY (40,10);
textcolor (red);
writeLn ('Cheia de malícia....');
writeLn;
end;
end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

simples usas primeiro o lenght de seguida o copy

PS. gostei da tua identação :2funny:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora