Алгоритм

алг Задача № 1 (цел T1, W2, T2, D3, A2, D4, F)

арг T1, W2, T2, D3, A2, D4

рез F

начцел F1, F2, F3, F4, F5, F6, F7, F8

нцдля T1 от 0 до 1 шаг 1

нцдля W2 от 0 до 1 шаг 1

нцдля T2 от 0 до 1 шаг 1

нцдля D3 от 0 до 1 шаг 1

нцдля A2 от 0 до 1 шаг 1

нцдля D4 от 0 до 1 шаг 1

F1:=(T1 ине W2) или (не T1 и W2)

F2:=(T2 ине D3) или (не T2 и D3)

F3:=(A2 ине D4) или (не A2 и D4)

F4:= не (A2 и W2)

F5:= не (T2 и A2)

F6:= не (T2 и W2)

F7:= не (D3 и D4)

F8:= не (T1 и T2)

F:=F1 и F2 и F3 и F4 и F5 и F6 и F7 и F8

если F=1

товывод F, T1, W2, T2, D3, A2, D4

Все

кц

кц

кц

кц

кц

кц

Кон

Программа на Паскале:

PROGRAM LOGIKA1;

USES CRT;

VAR T1, W2, T2, D3,A2, D4, F1, F2, F3, F4, F5, F6, F7, F8, F:

INTEGER;

BEGIN

CLRSCR;

FOR T1:=0 TO 1 DO BEGIN

FOR W2:=0 TO 1 DO BEGIN

FOR T2:=0 TO 1 DO BEGIN

FOR D3:=0 TO 1 DO BEGIN

FOR A2:=0 TO 1 DO BEGIN

FOR D4:=0 TO 1 DO BEGIN

F1:=(T1 AND NOT W2) OR (NOT T1 AND W2);

F2:=(T2 AND NOT D3) OR (NOT T2 AND D3);

F3:=(A2 AND NOT D4) OR (NOT A2 AND D4);

F4:=NOT(A2 AND W2);

F5:=NOT(T2 AND A2);

F6:=NOT(T2 AND W2);

F7:=NOT(D3 AND D4);

F8:=NOT(T1 AND T2);

F:=F1 AND F2 AND F3 AND F4 AND F5 AND F6 AND F7 AND F8;

IF F=1 THEN BEGIN WRITELN(' F ','T1 ','W2 ','T2 ','D3 ','A2',' D4 ');

WRITELN(F:3, T1:3,W2:3,T2:3,D3:3,A2:3,D4:3); END;

END; END; END; END; END; END;

END.

В результате работы ЭВМ по программе будет выведен текст:

Это означает, что F=1, T1=1, W2=0, T2=0, D3=1, A2=1, D4=0. На основе введенных обозначений получаем, Таня заняла первое место, Алла – второе, Даша – третье, а Валя – четвертое.