Pascal/Turbo Pascal - obligar a email llevar @ y ".com"

   
Vista:

obligar a email llevar @ y ".com"

Publicado por david (9 intervenciones) el 10/10/2012 19:35:38
Hola. Quiero hacer un formulario, entrando el email. Y quiero que me obligue a poner "@" y ".com o .es". Si no lo pongo bien que me diga que hay un error.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program paswor;
 uses
   crt;
 
 var
    emal : string[40];
 
 
  procedure entrada;
  begin
     clrscr;
     writeln('**** Entrada Contraseña ****');
     writeln;
     gotoxy(2,5);write('Entre Email : ');
     gotoxy(16,5);readln(emal);
end;


procedure comprobaremail;
(me falta este procedure, sin utilizar los valores por teclado [8..#57,#65..#90,#97..#122,#164,#165])

1
2
3
4
5
6
begin
     entrada;
     clrscr;
     comprobaremail;
     readln;
  end.
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

obligar a email llevar @ y ".com"

Publicado por ramon (2072 intervenciones) el 11/10/2012 10:40:15
{A ver este es tu programa con correcciones necesarias para detección de entradas del
email}

program paswor;
uses
crt;

var
emal : string[40];
n, t : integer;
ok1, ok2, ok : boolean;
da1 : char;
da2 : string[3];

procedure entrada;
begin
writeln('**** Entrada Contraseña ****');
writeln;
gotoxy(2,5);write('Entre Email : ');
gotoxy(16,5);readln(emal);
ok1 := false;
ok2 := false;
ok := false;
da1 := ' ';
da2 := ' ';
for n := 1 to length(emal) do
if emal[n] = '@' then
begin
da1 := emal[n];
ok1 := true;
end;
for t := 1 to length(emal) do
if emal[t] = '.' then
begin
da2 := copy(emal,t + 1,3);
for n := 1 to length(da2) do
da2[n] := upcase(da2[n]);
end;
if (da2 = 'COM') or (da2 = 'ES') then
ok2 := true;
if (ok1 = true) and (ok2 = true) then
begin
ok := true;
clrscr;
writeln(' Entrada Email [OK]');
end
else
begin
clrscr;
writeln('Error en la Entrada ');
entrada;
end;
end;


{procedure comprobaremail;
(me falta este procedure, sin utilizar los valores por teclado [8..#57,#65..#90,#97..#122,#164,#165])
}
begin
clrscr;
entrada;
{ clrscr;
comprobaremail;}
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
0
Comentar