Pascal/Turbo Pascal - ANAGRAMA EN PASCAL

   
Vista:

ANAGRAMA EN PASCAL

Publicado por frank TYCHEMANN franktyche@hotmail.com (1 intervención) el 18/02/2012 19:40:36
ESCRIBIR UN PROGRAMA EN PASCAL QUE DETERMINE SI DOS PALABRAS son ANAGRAMAS una de la otra.Escribir las declaraciones de tipo que considere necesarias.
SUPONERque todas las letrasde la palabra estan en mayusculas.
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

ANAGRAMA EN PASCAL

Publicado por ramon (2072 intervenciones) el 18/02/2012 22:12:05
{Esto es lo que querías }

program anagra;
uses
crt;
type
string10 = string[10];

var
palabra1, palabra2 : string10;
tama, i, k : integer;
respu : string10;

procedure entradas;
var
am : integer;
begin
clrscr;
gotoxy(4,2);write('**** Entre la 2 Palabras [Maximo 10 Letras] ****');
gotoxy(4,4);write('Palabra 1 : ');
gotoxy(16,4);readln(palabra1);
gotoxy(4,5);write('Palabra 2 : ');
gotoxy(16,5);readln(palabra2);
for am := 1 to length(palabra1) do
begin
palabra1[am] := upcase(palabra1[am]);
end;
for am := 1 to length(palabra2) do
begin
palabra2[am] := upcase(palabra2[am]);
end;
end;

function sonanagramas(de, ne : string10) : boolean;
var
t, lon : integer;
begin
fillchar(respu,11,' ');
respu[0] := chr(10);
sonanagramas := false;
tama := length(de);
lon := length(ne);
if tama = lon then
begin
t := 1;
for i := 1 to tama do
begin
for k := 1 to lon do
begin
if de[i] = ne[k] then
begin
respu[t] := ne[k];
respu[0] := chr(t);
t := t + 1;
ne[k] := ' ';
end;
end;
end;
if de = respu then
sonanagramas := true;
end
else
begin
sonanagramas := false;
end;
end;


begin
clrscr;
entradas;
clrscr;
write(sonanagramas(palabra1, palabra2));
writeln;
writeln('[* ',palabra1,' *] ',palabra2,' = ',respu);
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