Задача 12 Урок 9
Primary tabs
Изучите код:
var s, t:integer;
f, b:boolean;
begin
f := true;
b := false;if (f=true) then
t:=1
else
t:=2;if (b=false) then
s:=3
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.Подсказки:
оператор if итак неявно сравнивает значение логического выражения в скобках с true (и принимает решение, какую именно ветку then или else выполнить)
для второго if в коде выше потребуется исползование оператора Not.
решение задачи:
var s:integer; f,b:boolean; begin f := true; b := false; if f then s := 1 else s := 2; if not b then s := 3 else s := 4; readln(); end.
- Log in to post comments
- 821 reads