Xibalbá
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

ayuda free pascal

4 participantes

Ir abajo

ayuda free pascal Empty ayuda free pascal

Mensaje por jSmR13 Jue Feb 11, 2010 10:49 am

ps ahora es con esto
lo usamos en la escuela y nos pusieron a hacer esto
ke se trata de deponer la clave de acceso

program ClaveDeAcceso;

var
ClaveCorrecta, Intento: String[30];

begin
ClaveCorrecta := 'PaskalForever';
repeat
WriteLn( 'Introduce la clave de acceso...' );
ReadLn( Intento )
until Intento = ClaveCorrecta
(* Aquí iría el resto del programa *)
eso ya lo ise perolo ke kieren ke agamos es
# Mejorar el programa de la clave de acceso para que avise de que la clave no es correcta.
# Mejorar más todavía para que sólo haya tres intentos.
y no se como si alguien mepudeira explicar
gracias

http://www.freepascal.es/tutorials/cupas06.php
jSmR13
jSmR13
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1003
Edad : 28
Localización : nogales, sonora
Fecha de inscripción : 03/05/2009
Guerrero : Cocodrilo
Jades : ayuda free pascal Emptyayuda free pascal Jaderetominiayuda free pascal Jadeshkespminiayuda free pascal Jade10knoobmini
Mascaras : ayuda free pascal Empty

Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d
Batallon : ayuda free pascal Pinfrijolitobatallonayuda free pascal Cod4insigniamini

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por makinadefuego78 Jue Feb 11, 2010 11:13 am

ay weyyyy quien fregados enseña pascal en estos dias jaja nop en esta si no puedo ayudar..................
makinadefuego78
makinadefuego78
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1382
Edad : 34
Localización : Grupo Carso
Fecha de inscripción : 24/03/2009
Guerrero : Venado
Jades : ayuda free pascal Emptyayuda free pascal Championhalo3miniayuda free pascal Jadeplataminiayuda free pascal Jaderetominiayuda free pascal Jadeinformaticominiayuda free pascal Jadeshkespmini
Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d

http://www.furiian.wordpress.com

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por jSmR13 Jue Feb 11, 2010 1:02 pm

ESCASTO escribió:ay weyyyy quien fregados enseña pascal en estos dias jaja nop en esta si no puedo ayudar..................

jaja ps en la escuela we no es mi culpa
jaja
y tengo ke terminar los trabajos son 3 putos!!! jaja
jSmR13
jSmR13
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1003
Edad : 28
Localización : nogales, sonora
Fecha de inscripción : 03/05/2009
Guerrero : Cocodrilo
Jades : ayuda free pascal Emptyayuda free pascal Jaderetominiayuda free pascal Jadeshkespminiayuda free pascal Jade10knoobmini
Mascaras : ayuda free pascal Empty

Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d
Batallon : ayuda free pascal Pinfrijolitobatallonayuda free pascal Cod4insigniamini

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por oXBAo MEFISTO Jue Feb 11, 2010 1:31 pm

ps como dice escasto kien coños enseña pascal en estos dias jeje pero en fin ayudarte con el codigo sera dificil por que ni idea de como sea la sintaxis de pascal pero de manera general ps piensale asi



begin
ClaveCorrecta := 'PaskalForever';
contador=0; //esta variable llevara el numero de intentos

repeat
WriteLn( 'Introduce la clave de acceso...' );
ReadLn( Intento )

SI(intento igual a clavecorrecta) // no se cual sea la sintaxis en pascal
contador=3; //le ponemos el valor de 3 para que rompa el ciclo

SINO
WriteLn(Clave no valida);
contador=contador +1;

until contador=3;



Al final si tecleaste mal la clave 3 veces te sacara del bucle igual que si la tecleas bn por lo que debes checar que si la tecleas mas 3 veces te sake del programa y no continue pero eso ya es dependiendo de como sea todo tu programa
oXBAo MEFISTO
oXBAo MEFISTO
Miembro activo
Miembro activo

Masculino Cantidad de envíos : 309
Edad : 37
Localización : Mexico D.F.
Fecha de inscripción : 28/03/2009
Guerrero : Mono
Jades : ayuda free pascal Emptyayuda free pascal Jadeorgulloxibminiayuda free pascal Jadecreporteromini
Mascaras : ayuda free pascal Mascaracalavera1mini
Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal 75hh9
Batallon : ayuda free pascal Gow2pincopiaqq

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por makinadefuego78 Jue Feb 11, 2010 3:41 pm

for := < valor_inicial > to < valor_final > do
begin
< bloque_de_instrucciones >
end

No seria asi ?? jaja tendrias q asigarles valores inciales y valores finales pero igual que mefisto no se cual sea la sintaxis de pascal, por lo que veo es similar a TurboC, por cierto que compilador usas Jsmr???.................
makinadefuego78
makinadefuego78
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1382
Edad : 34
Localización : Grupo Carso
Fecha de inscripción : 24/03/2009
Guerrero : Venado
Jades : ayuda free pascal Emptyayuda free pascal Championhalo3miniayuda free pascal Jadeplataminiayuda free pascal Jaderetominiayuda free pascal Jadeinformaticominiayuda free pascal Jadeshkespmini
Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d

http://www.furiian.wordpress.com

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por oXBAo MEFISTO Jue Feb 11, 2010 4:47 pm

OK LEYENDO LA PAGINA QUE PUSISTE PERESE QUE NO SE VALE USAR EL IF(LA CONDICION QUE YO TE PUSE) JEJEJEJ PS SIENDO ASI DEBES USAR UN WHILE

MIENTRAS (LA CLAVE NO SEA IGUAL A LA CORRECTA O EL NUMERO DE INTENTOS SEA MENOR A 3)

HAZ AKI PONES LO MISMO QUE TENIAS CON LA DIFERENCIA QUE EN LA VARIABLE QUE USES PARA CONTAR EL NUMERO DE INTENTOS LA VAYAS AUMENTANDO EN 1
oXBAo MEFISTO
oXBAo MEFISTO
Miembro activo
Miembro activo

Masculino Cantidad de envíos : 309
Edad : 37
Localización : Mexico D.F.
Fecha de inscripción : 28/03/2009
Guerrero : Mono
Jades : ayuda free pascal Emptyayuda free pascal Jadeorgulloxibminiayuda free pascal Jadecreporteromini
Mascaras : ayuda free pascal Mascaracalavera1mini
Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal 75hh9
Batallon : ayuda free pascal Gow2pincopiaqq

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por oXBAo ZEITGEIST Jue Feb 11, 2010 8:42 pm

mmmmmm pasacal? forever?mmmmmmmmmse me hace que tus profesores son los pastelosos y tu de ahi te educateeeeeeeeeeeeeeeeeeeeeeeeesnnnnn
oXBAo ZEITGEIST
oXBAo ZEITGEIST
Miembro V.I.P.
Miembro V.I.P.

Femenino Cantidad de envíos : 5003
Edad : 47
Localización : Distrito Federal
Fecha de inscripción : 18/02/2009
Guerrero : TLATOANI
Jades : ayuda free pascal Emptyayuda free pascal Jadeoromini2ayuda free pascal Jadeorgulloxibminiayuda free pascal Jade10knoobminiayuda free pascal Jademulticonsolaminiayuda free pascal Jadeshkespminiayuda free pascal Jadecreporterominiayuda free pascal Jadecinefilomini
Aniversario : ayuda free pascal 3er
Sangre : ayuda free pascal Bancf0d
Batallon : ayuda free pascal Pinfrijolitobatallon

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por jSmR13 Jue Feb 11, 2010 10:21 pm

aahhhh
ps no se ake te refieres con copilador escasto
y nos puso otro ejemplo ke es el ke viene mas abajo de la pagina ke puse
es de adivinar numeros
pero no le entiendo ni madres
pero algo delo ke entendi es
poner una variable ke se llame intentoact( ke seria intento actual
y poner
algo mas pero yano recuerdo

(ni yomismo me entendi) jeje
ah y mephisto no te entendi nada
esto necesita mucha concentracion dijo el profe
jaja
jSmR13
jSmR13
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1003
Edad : 28
Localización : nogales, sonora
Fecha de inscripción : 03/05/2009
Guerrero : Cocodrilo
Jades : ayuda free pascal Emptyayuda free pascal Jaderetominiayuda free pascal Jadeshkespminiayuda free pascal Jade10knoobmini
Mascaras : ayuda free pascal Empty

Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d
Batallon : ayuda free pascal Pinfrijolitobatallonayuda free pascal Cod4insigniamini

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por makinadefuego78 Jue Feb 11, 2010 10:30 pm

Compilador es el programa que usas para crear codigo en tu caso es Pascal......................
makinadefuego78
makinadefuego78
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1382
Edad : 34
Localización : Grupo Carso
Fecha de inscripción : 24/03/2009
Guerrero : Venado
Jades : ayuda free pascal Emptyayuda free pascal Championhalo3miniayuda free pascal Jadeplataminiayuda free pascal Jaderetominiayuda free pascal Jadeinformaticominiayuda free pascal Jadeshkespmini
Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d

http://www.furiian.wordpress.com

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por oXBAo MEFISTO Vie Feb 12, 2010 10:17 pm

jSmR13 escribió:
esto necesita mucha concentracion dijo el profe
jaja

ps mi buen jsmr no me lo tomes a mal y no lo digo en forma grocera pero creo que debes estudiar un poco mas por que realmente lo que te estan dejando de tarea no es dificil si tu profe les pidio eso en pascal es por que algo debieron de ver en clase por lo tanto tu debrias de tratar de hacerlo y no pedir que te lo hagan los demas como dige al principio no es en mala onda como viste uno trata de ayudarte pero tu tmb devbes esforzarte un poco mira que el ser estudiante no creas que es cosa facil (un poco filosofico) SER ALUMNO CUALKIERA PERO ESTUDIANTE NO TODOS jejeje comento esto por que si no supiste responderle a escasto que compilador usas ps me imagino que no le das mucha importancia a esta materia Razz una vez mas espero no ofendrte creeme que no es mi intencion
oXBAo MEFISTO
oXBAo MEFISTO
Miembro activo
Miembro activo

Masculino Cantidad de envíos : 309
Edad : 37
Localización : Mexico D.F.
Fecha de inscripción : 28/03/2009
Guerrero : Mono
Jades : ayuda free pascal Emptyayuda free pascal Jadeorgulloxibminiayuda free pascal Jadecreporteromini
Mascaras : ayuda free pascal Mascaracalavera1mini
Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal 75hh9
Batallon : ayuda free pascal Gow2pincopiaqq

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por jSmR13 Sáb Feb 13, 2010 12:03 pm

oXBAo MEFISTO escribió:
jSmR13 escribió:
esto necesita mucha concentracion dijo el profe
jaja

ps mi buen jsmr no me lo tomes a mal y no lo digo en forma grocera pero creo que debes estudiar un poco mas por que realmente lo que te estan dejando de tarea no es dificil si tu profe les pidio eso en pascal es por que algo debieron de ver en clase por lo tanto tu debrias de tratar de hacerlo y no pedir que te lo hagan los demas como dige al principio no es en mala onda como viste uno trata de ayudarte pero tu tmb devbes esforzarte un poco mira que el ser estudiante no creas que es cosa facil (un poco filosofico) SER ALUMNO CUALKIERA PERO ESTUDIANTE NO TODOS jejeje comento esto por que si no supiste responderle a escasto que compilador usas ps me imagino que no le das mucha importancia a esta materia Razz una vez mas espero no ofendrte creeme que no es mi intencion
jaja ni pedo we no me ofendo
todo los dias estoy viendo ave rke le muevo
y la pregunta de escasto del copilador
es por ke la netha no sabia ke es copilador y no es por no darle importancia ala materia( si no no tuviera 10 en los primeros dos bimestres jaja:D ?
pero el pedo eske ya seke no es dificl osea lo p uede aser tomando otros de ejemplos
pero eske el profe no me explika como ponerlos o utilizarlos
ese es el pedo
pero todo bn
ua Razz
jSmR13
jSmR13
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1003
Edad : 28
Localización : nogales, sonora
Fecha de inscripción : 03/05/2009
Guerrero : Cocodrilo
Jades : ayuda free pascal Emptyayuda free pascal Jaderetominiayuda free pascal Jadeshkespminiayuda free pascal Jade10knoobmini
Mascaras : ayuda free pascal Empty

Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d
Batallon : ayuda free pascal Pinfrijolitobatallonayuda free pascal Cod4insigniamini

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por jSmR13 Sáb Feb 13, 2010 12:06 pm

ahh y sie so si lo vimos pero casi nadie lo termina al menos somos unos 6
y otros ke kopian los trabajos jaja
pero muchos como yo nos kedamos aka kon alguna duda
y con algo asi
pero ala gaver ke verguenza preguntar jaja
jSmR13
jSmR13
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1003
Edad : 28
Localización : nogales, sonora
Fecha de inscripción : 03/05/2009
Guerrero : Cocodrilo
Jades : ayuda free pascal Emptyayuda free pascal Jaderetominiayuda free pascal Jadeshkespminiayuda free pascal Jade10knoobmini
Mascaras : ayuda free pascal Empty

Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d
Batallon : ayuda free pascal Pinfrijolitobatallonayuda free pascal Cod4insigniamini

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por jSmR13 Mar Feb 16, 2010 10:26 pm

ya casi lo termino!! jaja
me sale ke la clavee es incorrecta
pero se pasa de los tres intentos
y cuando le pongo bien sale clave incorrecta y se sale del programa
jaja
ya casi lo termino tengo asta el jueves para terminarlo ys akarme mi 10
uuu
jSmR13
jSmR13
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1003
Edad : 28
Localización : nogales, sonora
Fecha de inscripción : 03/05/2009
Guerrero : Cocodrilo
Jades : ayuda free pascal Emptyayuda free pascal Jaderetominiayuda free pascal Jadeshkespminiayuda free pascal Jade10knoobmini
Mascaras : ayuda free pascal Empty

Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d
Batallon : ayuda free pascal Pinfrijolitobatallonayuda free pascal Cod4insigniamini

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por makinadefuego78 Mar Feb 16, 2010 10:33 pm

jaja XD Venga tu puedes!!........................
makinadefuego78
makinadefuego78
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1382
Edad : 34
Localización : Grupo Carso
Fecha de inscripción : 24/03/2009
Guerrero : Venado
Jades : ayuda free pascal Emptyayuda free pascal Championhalo3miniayuda free pascal Jadeplataminiayuda free pascal Jaderetominiayuda free pascal Jadeinformaticominiayuda free pascal Jadeshkespmini
Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d

http://www.furiian.wordpress.com

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por jSmR13 Miér Feb 17, 2010 9:47 pm

lo iseeeeeeeeee
Very Happy Very Happy
ala madre
mela rife
ahorita estaba aka y me salio crei ke me faltaria pero no
uuuuuu
ahora esperare a mañana para ke me pongan mis trs pu ntos
y tener 10
y mantener mi racha de 3 bimestres consekutivos con 10
jSmR13
jSmR13
Miembro importante
Miembro importante

Masculino Cantidad de envíos : 1003
Edad : 28
Localización : nogales, sonora
Fecha de inscripción : 03/05/2009
Guerrero : Cocodrilo
Jades : ayuda free pascal Emptyayuda free pascal Jaderetominiayuda free pascal Jadeshkespminiayuda free pascal Jade10knoobmini
Mascaras : ayuda free pascal Empty

Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal Bancf0d
Batallon : ayuda free pascal Pinfrijolitobatallonayuda free pascal Cod4insigniamini

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por oXBAo MEFISTO Jue Feb 18, 2010 5:25 pm

yeahh eso es todo mi buen jsmr todo es cosa de chingarle un pokito vientos vientos
oXBAo MEFISTO
oXBAo MEFISTO
Miembro activo
Miembro activo

Masculino Cantidad de envíos : 309
Edad : 37
Localización : Mexico D.F.
Fecha de inscripción : 28/03/2009
Guerrero : Mono
Jades : ayuda free pascal Emptyayuda free pascal Jadeorgulloxibminiayuda free pascal Jadecreporteromini
Mascaras : ayuda free pascal Mascaracalavera1mini
Aniversario : SEGUNDO AÑO
Sangre : ayuda free pascal 75hh9
Batallon : ayuda free pascal Gow2pincopiaqq

Volver arriba Ir abajo

ayuda free pascal Empty Re: ayuda free pascal

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.