Pascal/Turbo Pascal - error en programa

   
Vista:

error en programa

Publicado por fer (7 intervenciones) el 16/11/2009 00:19:13
program x;
uses crt;
var
a,b,c,d:string;
i,t,a1:integer;

procedure leer;
begin
writeln('digite un texto');
readln(a);
end;

procedure leer2;
begin
clrscr;
writeln('digite la palabra que quiere buscar');
readln(b);
clrscr;
writeln('digite la palabra por la que la desea cambia');
readln(c);
a1:=pos(b,a);
if (a1=0) then
begin
writeln('la palabra no se encuentra dentro del texto')
end;
end;

procedure le;
begin
if(a1<>0)then
begin
delete(a,a1,length(b));
insert(c,a,a1);
t:=t+1;
writeln(a);
end;
end;

procedure fer;
begin
clrscr;
writeln(a);
writeln('desea hacer otro cambio en la frase si o no');
read(d);
if (d='si') then
leer2
else
writeln('el total de cambios hechos es de ',t);
end;



begin
clrscr;
leer;
leer2;
le;
fer;
readkey;
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

RE:error en programa

Publicado por BrunoBsso (10 intervenciones) el 23/11/2009 12:44:44
No es de mala onda, pero ese codigo es un asco!
Variables globales en vez de parametros; identificadores de variables de 1 digito (a, b, c) en vez de ponerles PalabraBuscar, TextoReal, PalabraCambiar, etc.
Lo mismo para los modulos... un procedimiento se llama "fer" y otro se llama "le".
Limpialo un poco. Se mas prolijo.
Asi no dan ganas de testear tu codigo master... ayudanos a ayudarte no?
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