Email correcto
Publicado por david (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.
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
-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
0