Pascal/Turbo Pascal - Email correcto

   
Vista:

Email correcto

Publicado por david davo3k@gmail.com (9 intervenciones) el 24/11/2012 16:35:37
Hola, he realizado el siguiente ejercicio:
-Formulario con entrada de clave y email. Debemos comprobar que son correctos.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program formulario;
uses crt;
const ext1 = '@';
ext2 = 'com';
var clave,clave2 : string[20];
var email : string[20];
 
procedure entrada;
begin
clrscr;
writeln('**** Entrada Contrase¤as Y Email ****');
writeln;
write('Entre Clave : ');
readln(clave);
writeln;
write('Entre Email : ');
email:= ' ' + ext1 + ' ' + ext2;
readln(email);
end;
 
procedure validarclave;
begin
writeln;
write('Repita la clave : ');
readln(clave2);
if clave = clave2 then
	writeln ('La clave es correcta. Buen registro')
else
	writeln ('Las claves no coinciden');
	exit;
end;
 
 
BEGIN
entrada;
validarclave;
writeln(email,'     ',clave);
readln;
END.



La clave la e podido confirmar sin problemas. Lo que quiero es validar tambien el email, quiero que me salga con el "@" y el ".com" usando las constantes ext1 y ext2 que he creado. Alguna solucion?

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Email correcto

Publicado por ramon (2072 intervenciones) el 24/11/2012 18:44:11
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
{Comprueba tu código anterior y este corregido }
 
 program formulario;
uses crt;
const ext1 = '@';
ext2 = '.com';
var
    clave, clave2 : string[20];
    email : string[20];
    patroc : string[20];
 
procedure entrada;
begin
clrscr;
writeln('**** Entrada Contrase¤as Y Email ****');
writeln;
write('Entre Clave : ');
readln(clave);
writeln;
write('Entre Email : ');
readln(email);
write('Patrocinador : ');
readln(patroc);
email := email + ext1 + patroc + ext2;
 
end;
 
procedure validarclave;
begin
writeln;
write('Repita la clave : ');
readln(clave2);
if clave = clave2 then
writeln ('La clave es correcta. Buen registro')
else
writeln ('Las claves no coinciden');
exit;
end;
 
 
BEGIN
entrada;
validarclave;
writeln(email,' ',clave);
readln;
END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Email correcto

Publicado por david davo3k@gmail.com (9 intervenciones) el 24/11/2012 18:50:20
Muchas gracias, la verdad sk siempre me complico y intento usar menos variables jaja. xo la solucion es muy buena, gracias.

Intentare de todas formas hacerlo a mi manera aver si me sale, sino esta solucion ya me servira
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar