Откуда взялся ноль?

@Petro29 · Регистрация: 30.04.2016

Author24 — интернет-сервис помощи студентам

В самоучителе задан такой синтаксис:
if a = 28 then WriteLn(f) else k:= 44;
на этого синтаксиса составил программу.

Pascal

 uses Crt;
Var a, k: integer;
        f: Char;
begin
ClrScr;
  ReadLn(a);
if  a = 28  then  WriteLn('f')  else  k:= 44;
WriteLn(k);
  ReadLn

end.
На выходе имеем:

Pascal

1
2
3

28                         5
f                            44
0

И, конечно, вопрос: почему при выполнении 1-го условия печатается 0. Он ведь не должен печататься.

@Hitoku · 25.02.2018, 11:23

Pascal

uses Crt;
var a, k: integer;
    f: Char;
begin
  ClrScr;
  ReadLn(a);
  if a = 28 then WriteLn('f') else begin
    k := 44;
    WriteLn(k);
  end;
  ReadLn
end.

@TAVulator · 25.02.2018, 11:34

Сообщение от Petro29

И, конечно, вопрос: почему при выполнении 1-го условия печатается 0. Он ведь не должен печататься.

Потому, что при выполнении условия переменной k ничего не присваевается, но вы его в любом случае выводите на экран ( writeln(k)). Поэтому программа и выводит значение k равное нулю.

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	25.02.2018, 11:34	3
	Сообщение от Petro29 И, конечно, вопрос: почему при выполнении 1-го условия печатается 0. Он ведь не должен печататься. Потому, что при выполнении условия переменной k ничего не присваевается, но вы его в любом случае выводите на экран ( writeln(k)). Поэтому программа и выводит значение k равное нулю. 0