Алгоритм қасиетеріне сәйкестік табу

Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле

procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.  

1. Заметим, что первый вариант дает в результате 0 во всех случаях, так как конъюнкция ложна, если ложен хотя бы один из её аргументов, а это не соответствует значениям F.

 

2. Выражение в варианте 2, как и в варианте 4, принимает ложные значения, если X не эквивалентно Z, а значит, по первой и третьей строчке и 2, и 4 вариант удовлетворяют F.

 

3. Остается сравнить их по второй строке, в которой F – истинно. В этой строке X=0, Y=1, Z=0, значит, выражение в варианте 2 здесь истинно.

 

4. Так как значения F и значения функции в варианте 2 сошлись по всем трем строкам, вариант 2 является ответом к данной задаче.

Объяснение: