Реферат: Семантика оператора case

для того, кто будет проверять правильность этой программы.

Program Factorial (input, output);

{ Предусловие: (nÎ N)Ù(n ³ 0)

Постусловие: (Fctrl=) }

var i , n , fctrl : integer;

begin { T }

write(¢Введите значение n = ¢);

readln( n ); { nÎ N }

if n < 0 then { n < 0 }writeln (¢Ошибка: n не может быть < 0¢)

else

begin { n ³ 0 }

if n = 0 then {n=0} fctrl:=1 {n=0Ùfctrl=1Ù(i не определенно)}

else

begin { n > 0 }

fctrl : =1 ;

{n=0 Ù fctrl=1}

for i : =2 to n do fctrl : = fctrl * i

{"i: 2 £ i £ n : Pk : 1£k<i : k};

{ n>0 Ù fctrl=(Pi : 1£i<n : i) }

writeln (¢ При n = ¢ , n , ¢ n! = ¢ , fctrl )

end

{ n ³ 0 Ù fctrl= n! };

end

end {Program}

Рис. 11.2.

Упражнения: