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

[min@y™]

покажь скриншот результата работы этого километра кода.

[danek130995]

спасибо Аватар, ваш код работает, сейчас пытаюсь его переделать, чтобы он начинал заполнение не с первой строчки, а со второй(т.к. первая отведена для имен переменных) Только мне непонятно, зачем n вы такое большое сделали(8). N Должно быть равно StringGrid1.ColCount

[Аватар]

Ну если должно, так сделай. Мне-то откуда знать

[danek130995]

Аватар, не могу( У меня первая строка отведена под переменные. Когда в вашей строчке
for i:=0 to 1 shl n - 1 do begin
s:=IntToBin(i,n); делаю цикл по i от 1, то верхняя строчка остается, но получается 0001111, т.е. первый 0 теряется. Подскажите, плиз

[Аватар]

У-у-у

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

[danek130995]

аватар, сорри, все работает! Забыл цикл от 0 снова запустить! Спасибо!!!

[danek130995]

аватар, сорри, все работает! Забыл цикл от 0 снова запустить! Спасибо!!!

[danek130995]

Понять бы еще, как работает ваш супер-гениальный код