Исполнитель чертежник перемещается на координатной плоскости, оставляя след в виде линии. чертежник может выполнять команду Сместиться на (a,b) где a, b - целые числа), перемещающую Чертежника из точки с координатами( x, y) в точку с координатами (x+a, y+b).Если числа a, b положительные, значение соответствующей координаты увеличивается; если отрицательные, уменьшается. Чертежнику был дан для исполнения следующий алгоритм: Повтори 3 раз Команда 1 Сместиться на ( 3, 3) Сместиться на (1, -2) Конец Сместиться на (-6, 9) После выполнения этого алгоритма Чертежник вернулся в исходную точку. Какую команду надо поставить вместо команды Команда 1 ? В ответе укажите правильный вариант цифрой. 1) Сместиться на (-6,-12)
2) Сместиться на (2, -10)
3) Сместиться на (2,4)
4) Сместиться на ( -2, -4)
0 1 1
1 0 0
Данное выражение ложно, когда А-ложно и истинно, когда А истинно.
2) A B B⇒A или В
0 0 1
0 1 1
1 0 1
1 1 1 Всегда истинно ( тождественно истинно)
3) F - данное выражение
A B C A⇒(B⇒C) (A⇒B) ⇒(A⇒C) F
0 0 0 1 1 1
0 0 1 1 1 1
0 1 0 1 1 1
0 1 1 1 1 1
1 0 0 1 0 0
данное выражение не тождественно истинно
8) P*¬Q + Q*R + ¬ P*¬Q = ¬Q*(P +¬P) + Q*R = ¬Q +Q*R
7) X Y Z X*(Y+Z) XY + XZ
0 0 0 0 0
0 0 1 0 0
0 1 0 0 0
0 1 1 0 0
1 0 0 0 0
1 0 0 0 0
1 0 1 1 1
1 1 0 1 1
1 1 1 1 1 Равенство док-но
A B ¬(A +B) ¬A *¬B
0 0 1 1
0 1 0 0
1 0 0 0
1 1 0 0 Равенство док-но
function Euclid(a,b:integer):integer;
begin
while a<>b do if a>b then a-=b else b-=a;
Result:=a
end;
begin
var a,b,c,d:integer;
Write('Числитель и знаменатель первой дроби: ');
Read(a,b);
Write('Числитель и знаменатель второй дроби: ');
Read(c,d);
var zn:=b*d;
var ch:=a*d-c*b;
var sgn:=Sign(ch); ch:=Abs(ch);
var gcd:=Euclid(ch,zn);
Write('Результат вычитания: ');
if sgn=-1 then Write('-');
Writeln(ch div gcd,'/',zn div gcd)
end.
Тестовое решение:
Числитель и знаменатель первой дроби: 7 12
Числитель и знаменатель второй дроби: 3 4
Результат вычитания: -1/6