Entradas etiquetadas con delphi

La cuestión es sencilla, necesitamos comparar cuáles palabras están en ambos arreglos (arrays ).

Pero…¿es posible hacer esto?, claro que lo es, para ello lo haremos en dos lenguajes diferentes.

El primero será en C++ y fue originalmente programado por JaAViEr.

#include <iostream>
 
using namespace std;
 
int main()
{
	char *nombrex[]={"Javier","Alex","Void","Animalf","Bolivianito","RockoX","3D1","Vart","Ranefi"};
	char *nombrey[]={"Javier","Esteban","NA","Ranefi","Alex","ELEMENTO","2D1","WUALA","CUEK"};
	for(int i=0;i < 9;i++)
	{
		for(int a=0;a < 9;a++)
		{
if(nombrex[i]==nombrey[a])
			{
			    cout << "La palabra " << nombrey[a] << " Coinciden en ambas listas." << endl;
			}
		}
	}
}

Ahora mi versión en Delphi.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    NombreX: Array [0..4] of String =('Sebastian','Camilo','Milton','Julian','WindHack');
    NombreY: Array [0..4] of String =('Sebastian','Diana','Spektrum','Camilo','Milton');
    I,A:Integer;
 
begin
  try
    for I := 0 to 4 do
      for A := 0 to 4 do
        if NombreX[i]=NombreY[A] then
          Writeln('Las palabras '+NombreY[a]+' Coinciden...');
 
          ReadLn;
    except
      on E: Exception do
        begin
          Writeln(E.ClassName, ': ', E.Message);
          ReadLn;
        end;
    end;
end.

Paso a explicar un poco:

Empleamos el bucle for y la condicional if para realizar esta tarea. Buscamos las palabras y las comparamos con el otro arreglo, si este llega a ser correcto mostramos en la consola el mensaje con las palabras correctas. Si se necesita comparar con más arreglos simplemente agregamos otro bucle y modificamos la condicional.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    NombreX: Array [0..4] of String =('Sebastian','Camilo','Milton','Julian','WindHack');
    NombreY: Array [0..4] of String =('Sebastian','Diana','Spektrum','Camilo','Milton');
    NombreZ: Array [0..4] of String =('Sebastian','Diana','Spektrum','Camilo','xD');
    I,A,B:Integer;
 
begin
  try
    for I := 0 to 4 do
      for A := 0 to 4 do
	for B := 0 to 4 do
          if (NombreX[i]=NombreY[A]) And (NombreY[A]=NombreZ[B]) then
            Writeln('Las palabras '+NombreY[a]+' Coinciden...');
 
            ReadLn;
    except
      on E: Exception do
        begin
          Writeln(E.ClassName, ': ', E.Message);
          ReadLn;
        end;
    end;
end.

Más >