Реферат: Семантика оператора 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.
Упражнения:
|
{?} 1. if a=1 then b:=a else b:=a+1; {b=1} К-во Просмотров: 1425
Бесплатно скачать Реферат: Семантика оператора case
|