Programación General => Pascal => Mensaje iniciado por: guillermohampp en Sábado 23 de Mayo de 2009, 19:51
Título: Tratamiento De Cadenas De Caracteres
Publicado por: guillermohampp en Sábado 23 de Mayo de 2009, 19:51
buenas Tarde gente.. me han dado un problema q me han dado y es el siguien: Mostrar el valor doble de dos cifras encontrado en una cadena program ej2; uses crt; var texto:string; code,x,cont:integer;
begin cont:=0; x:=0; writeln('ingrese un texto'); readln(texto);
repeat cont:=cont+1;
until (texto
>='0') and (texto
<='9') ;
texto:=copy(texto,cont,2); val(texto,x,code); if code = 0 then begin
writeln(cont*2); end; readkey; end. se q esta mal xq no se resuelve pero compila... ayuda porfa .. muchas gracias desde ya
Título: Re: Tratamiento De Cadenas De Caracteres
Publicado por: m0skit0 en Lunes 25 de Mayo de 2009, 10:01
Usa las etiquetas de código, que para eso están.
Código: Pascal
program ej2;
uses crt;
var
texto:string;
code,x,cont:integer;
begin
cont:=0;
x:=0;
writeln('ingrese un texto');
readln(texto);
repeat
cont:=cont+1;
until(texto[x]>='0')and(texto[x]<='9') ;
texto:=copy(texto,cont,2);
val(texto,x,code);
if code =0thenbegin
writeln(cont*2);
end;
readkey;
end.
Mussssho mehó, ¿no? :mellow:
Cita de: "guillermohampp"
me han dado un problema q me han dado y es el siguien: Mostrar el valor doble de dos cifras encontrado en una cadena
No me entero... ¿"Mostrar el valor doble de dos cifras encontrado en una cadena"? ¿Qué quiere decir eso?
Título: Re: Tratamiento De Cadenas De Caracteres
Publicado por: guillermohampp en Lunes 25 de Mayo de 2009, 18:31
claro por ej pones , juan tiene 25 , y el programa arrojaria 50 solamente
Título: Re: Tratamiento De Cadenas De Caracteres
Publicado por: m0skit0 en Lunes 25 de Mayo de 2009, 19:08
Ok, y ¿qué te arroja tu programa cuando lo ejecutas? No tengo entorno de Pascal ahora mismo.
Título: Re: Tratamiento De Cadenas De Caracteres
Publicado por: guillermohampp en Lunes 25 de Mayo de 2009, 19:45
lo logre resolver .. no me tiraba nada.. estaban mal los contadores program ej7; uses crt; var texto:string; code,x,cont:integer;
begin cont:=0; x:=0; writeln('ingrese un texto'); readln(texto);
repeat cont:=cont+1;
until (texto[cont]>='0') and (texto[cont]<='9') ; texto:=copy(texto,cont,2); val(texto,x,code); if code = 0 then begin