Формула для составления таблицы истинности

[danek130995]

Не могу составить формулу, по которой бы заполнялся StringGrid нулями и единицами. Знаю, что число строк это 2^n, где n-число переменных. Нужное количество строк и столбцов уже появляется. А вот по какой формуле сделать автоматическое заполнение StringGrid нулями и единицами в нужной последовательности?

[Stilet]

Знаю, что число строк это 2^n, где n-число переменных.

Откуда познания?

[min@y™]

ващето, кроме количества логических переменных необходимо знать логические операции с этими переменными, что в итоге есть лог. выражение, по которому и строится таблица истинности.

[Вадим Мошев]

Я бы посоветовал делать так.
Будем нумеровать столбцы слева направо, начиная с 1.
1-й столбец на половину заполняем нулями, потом единицами.
2-й столбец на одну четверть заполняем нулями, на одну четверть 1, потом снова четверть нули и потом четверть единицы.
3-й столбец на тоже самое, но для 1/8
И так далее.
Наконец получится, что последний столбец (самый правый) будет будет по строкам чередовать нули и единицы (нечётные содержат нули, а чётные - единицы)

[Serge_Bliznykov]

а я бы делал цикл от 0 до (2^n-1),
в цикле переводил число в двоичный вид (и сразу раскладывал по разрядам - каждый разряд в отдельный столбец)
и всё.
можно цикл завершать просто по условию - когда во всех N разрядах получены единицы.

Например, для N= 3
будут такие строки в StringGrid
0 0 0
0 0 1
0 1 0
0 1 1
1 0 0
1 0 1
1 1 0
1 1 1


danek130995, пример набросать?

[phomm]

http://programmersforum.ru/showthread.php?t=78287

[danek130995]

Сообщение от Вадим Мошев

Я бы посоветовал делать так.
Будем нумеровать столбцы слева направо, начиная с 1.
1-й столбец на половину заполняем нулями, потом единицами.
2-й столбец на одну четверть заполняем нулями, на одну четверть 1, потом снова четверть нули и потом четверть единицы.
3-й столбец на тоже самое, но для 1/8
И так далее.
Наконец получится, что последний столбец (самый правый) будет будет по строкам чередовать нули и единицы (нечётные содержат нули, а чётные - единицы)

Да, вы правы, я так и хочу сделать, только вот как дать понять ему, чтобы он следующий столбец делил еще, и чередовал? Цикл в цикле уже пробую..

[min@y™]

блин, ты меня устал. давай я тебе утром пример напишу, шоб ты үспокоился?

[danek130995]

вот код

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls,Math;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }



procedure TForm1.Button1Click(Sender: TObject);
  var i,j,k,z1:integer; z:real;
begin

 StringGrid1.RowCount:=1;StringGrid1.ColCount:=1;
ListBox1.Items.Clear;


  for i:=1 to length(edit1.text) do begin
  k:=0;
  if edit1.text[i] in ['A'..'Z','a'..'z'] then
  for j:=0 to ListBox1.Items.Count-1 do
  if edit1.text[i]=ListBox1.Items[j] then
  k:=k+1;
  if k=0 then
  ListBox1.Items.Add(edit1.text[i]);
  end;


 for i:=1 to ListBox1.Items.Count do
StringGrid1.RowCount:=StringGrid1.RowCount*2;
 StringGrid1.RowCount:=StringGrid1.RowCount+1;
 StringGrid1.ColCount:=ListBox1.Items.Count+1;
 for j:=0 to ListBox1.Items.Count-1 do
 stringgrid1.cells[j,0]:=Listbox1.Items[j];


 z:= (StringGrid1.RowCount-1)/2;
  z1:=round(z);
 for j:=1 to z1 do
 stringgrid1.cells[0,j]:=inttostr(0);
 for j:=(z1+1) to StringGrid1.RowCount-1 do
 stringgrid1.cells[0,j]:=inttostr(1);

 for i:=1 to stringgrid1.ColCount-2 do begin
 for j:=1 to stringgrid1.RowCount-1 do
 stringgrid1.cells[i,j]:=stringgrid1.cells[i-1,j];{вот здесь надо задумать что то, чтобы что то делалось с предыдущей строкой для составления текущей
 end;

 {for i:=0 to StringGrid1.RowCount-1 do
for j:=ListBox1.Items.Count-1 downto 0 do
if ((i and (1 shl j))>0) then stringgrid1.Cells[ListBox1.Items.Count-1-j-1,i]:='1'
else stringgrid1.Cells[ListBox1.Items.Count-1-j-1,i]:='0'; }



end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.clear;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Аватар]

function IntToBin(Value: Integer; Digits: Integer): string;
var i: integer;
begin
  Result:='';
  for i:=0 to Digits-1 do Result:=IntToStr(Integer(Value and (1 shl i) <> 0))+Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,n: Integer;
    s: String;
begin
  n:=8;
  StringGrid1.FixedCols:=0;
  StringGrid1.FixedRows:=0;
  StringGrid1.ColCount:=n;
  StringGrid1.RowCount:=1 shl n;
  for i:=0 to 1 shl n - 1 do begin
    s:=IntToBin(i,n);
    for j:=1 to n do StringGrid1.Cells[j-1,i]:=s[j];
  end;
end;