Programación General > Pascal

 Tratamiento De Cadenas De Caracteres

(1/1)

guillermohampp:
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[x]>='0') and (texto[x]<='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

m0skit0:
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 = 0 then begin        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
--- Fin de la cita ---
No me entero... ¿"Mostrar el valor doble de dos cifras encontrado en una cadena"? ¿Qué quiere decir eso?

guillermohampp:
claro por ej pones , juan tiene 25 , y el programa arrojaria 50 solamente

m0skit0:
Ok, y ¿qué te arroja tu programa cuando lo ejecutas? No tengo entorno de Pascal ahora mismo.

guillermohampp:
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

writeln(x*2);
end;
readkey;
end.

Navegación

[0] Índice de Mensajes