ТАБЛИЦЫ ИСТИННОСТИ DELPHI 7.0 :: Закладка Additional компонент StringGrid

Теоретическое обоснование

Ход работы

procedure TForm1.Button1Click(Sender: TObject);
 var y,a,b,c:boolean;
     i:integer;
     astr,bstr,cstr,ystr:string;
begin
 i:=0;
 for a:=false to true do
   for b:=false to true do
     for c:=false to true do
       begin
         if a=false then astr:='0' else astr:='1';
         if b=false then bstr:='0' else bstr:='1';
         if c=false then cstr:='0' else cstr:='1';
         y:= not b or a and b or not c;
         if y=false then ystr:='0' else ystr:='1';
         Form1.StringGrid1.cells[0,i+1]:=astr;
         Form1.StringGrid1.cells[1,i+1]:=bstr;
         Form1.StringGrid1.cells[2,i+1]:=cstr;
         Form1.StringGrid1.cells[3,i+1]:=ystr;
         i:=i+1;
       end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.StringGrid1.cells[0,0]:=' a ';
  Form1.StringGrid1.cells[1,0]:=' b ';
  Form1.StringGrid1.cells[2,0]:=' c ';
  Form1.StringGrid1.cells[3,0]:=' y ';
end;

Задания для самостоятельной работы

Задача №1
Построить таблицу истинности для функции:

Задача №2
Заполнить таблицу размером 11x11 в соответствии со следующим условием: если номер столбца и номер строки ячейки, чётные то в ячейку вписать единицу, в противном случае вписать в ячейку ноль. Левый столбец и верхнюю строку сделать фиксированными и пронумеровать. Нумерацию осуществить уже при загрузке формы, а заполнение таблицы «поручить» кнопке «Заполнить таблицу».

Задача №3
Заполнить таблицу размером 8x8 в шахматном порядке («чёрные клетки» заполнить единицами, «белые клетки» нулями). В таблице логичнее сделать 9 строк и 9 столбцов, но при этом левый столбец и верхнюю строку сделать фиксированными и пронумеровать. Нумерацию осуществить уже при загрузке формы, а заполнение таблицы «поручить» кнопке «Заполнить таблицу».

Задача №4
Заполнить таблицу размером 4x4 «змейкой» (см. рисунок). В таблице отсутствуют фиксированные строка и столбец. Заполнение таблицы «поручить» кнопке «Заполнить таблицу».

Задача №5
Заполнить таблицу размером 5x5 случайными числами в диапазоне от 20 до 70. В таблице отсутствуют фиксированные строка и столбец. Заполнение таблицы «поручить» кнопке «Заполнить таблицу».

§ Алиса в лесу Забывчивости
Решение логических задач методом рассуждений
«Из ложных посылок можно вывести истинное заключение».
Аристотель

§ Загадка Эйнштейна, а может быть и Кэрролла на новый лад ;-)
Решение логических задач табличным способом
«Если бы это было так, это бы ещё ничего, а если бы ничего, оно бы так и было, но так как это не так, так оно и не этак! Такова логика вещей!».
Льюис Кэрролл

§ Кто из богатырей победил Змея Горыныча?
Решение логических задач средствами алгебры логики
Посвящается Ельдесу Амерхановичу Бурину,
моему университетскому преподавателю информатики
Алма-Ата, КазГПУ, 1987–1992 год
«В научном мышлении всегда присутствует элемент поэзии. Настоящая наука и настоящая музыка требуют однородного мыслительного процесса». Альберт Эйнштейн

§ Одноклассницы на встрече выпускников
Решение логических задач табличным способом
«Поиски прекрасного приводят нас к тому же выбору, что и поиски полезного».
Жюль Анри Пуанкаре

§ Три дочери писательницы Жаклин Деманж
Решение логических задач табличным способом
«Логика, которая одна может дать достоверность, есть орудие доказательства; интуиция есть орудие изобретательства».
Жюль Анри Пуанкаре

§ Способы умножения без таблицы умножения (гимнастика для ума)
Посвящается Елене Петровне Каринской,
моему школьному преподавателю математики и классному руководителю
Алма-Ата, РОФМШ, 1984–1987 год
Русский способ умножения; рисовательный способ умножения :-)
Некоторые математические символы на HTML

_statistics

---