Задача 12 Урок 9

Primary tabs

Submitted by jl8qy9kd_pro on Tue, 07/20/2021 - 23:50

Forums:

http://fkn.ktu10.com/?q=node/8539

Изучите код:

var s:integer;
    f:boolean;
begin
  f := true;
  b := false;
  if (f=true) then
    s:=1;
  else
    s:=2;
  if (b=false) then
    s:=3;
  else
    s:=4;
end.

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

var s: integer;
    f: boolean;
    b: boolean;
begin
  f := true;
  b := false;
  if(((f = true) and (b = true)) or ((f = false) and (b = true))) then
    s := 4
  else
    s := 3;
end.
  • Log in to post comments
  • 3804 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 13:22

считаем что исходный код такой (условие обновлено):

<pre class="brush: delphi">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. </pre>

По варианту решения:
1) куда исчезли s:=1; и s:=2; ?
2) сравнение с true и false для boolean не нужно (см. примечания к задаче)

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Mon, 07/26/2021 - 15:07

s:=3;
t:=1; Вроде как точка запятая не нужны.

var s, t:integer;
f, b:boolean;
begin
  f := true;
  b := false;
  if (f) then
    t:=1
  else
    t:=2;
  if (b) then
    s:=3
  else
    s:=4;
end.
vedro-compota's picture

vedro-compota

Tue, 07/27/2021 - 18:57 

if (b) then
    s:=3
  else
    s:=4;

-- работает отлично от исходного кода

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Wed, 07/28/2021 - 11:37 

var s, t:integer;
f, b:boolean;
begin
  f := true;
  b := false;
  if (f) then
    t:=1
  else
    t:=2;
  if (not b) then
    s:=3
  else
    s:=4;
end.
vedro-compota's picture

vedro-compota

Sun, 08/01/2021 - 12:53

решение засчитано

_____________
матфак вгу и остальная классика =)