• Viernes 29 de Marzo de 2024, 15:23

Autor Tema:  PROBLEMA! Algoritmo de QM  (Leído 1947 veces)

Sparkle

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
PROBLEMA! Algoritmo de QM
« en: Sábado 7 de Agosto de 2010, 22:25 »
0
Mi problema es así, quiero hacer el programa del Algoritmo de Quine-McCluskey
pero para comenzar no llevo casi nada:
Citar
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i2: string;
  i:integer;
implementation
{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
a:=(edit1.text);
 For i:=1 to length(a) do
  Begin
     If a='''' then
      begin
      Upcase(a[i-1]);
      Delete(a,i,1);
      end;
  end;
 edit1.text:=a;
end;
end.

Queria poner las variantes primas en mayúsculas y asi se me hiciera mas fácil manejarlas, pero, primero no me pone en mayúscula, solo elimina la apóstrofe y segundo, no puedo siquiera llegar a hacer la expansión ni los implicantes primos.
Alguien que realmente me pudiera ayudar, en serio se lo agraeceria mucho. (: