Циклы с постусловием

Begin

...

...

End.

Begin

Begin

Begin

ClrScr;

s:= 0;

Write(‘Первое число:’);

ReadLn(n);

If (n = 0)

Then Exit;

min:= n;

max:= n;

count:= 1;

s:= s + n;

While (n <> 0) Do

Write(‘Oчередное число:’);

ReadLn(n);

If (n <> 0) Then

count:= count + 1;

s:= s + n;

If (n > max)

Then max:= n;

If (n < min)

Then min:= n;

End; {If (n <> 0)}

End; {While}

sred:= s / count;

WriteLn;

WriteLn(‘Сумма =’,s);

WriteLn(‘Количество чисел =’,count);

WriteLn(‘min=’,min);

WriteLn(‘max=’,max);

WriteLn(‘Среднее арифметическое =’,sred:5:2);

ReadLn;

Часто встречающиея ошибки программирования:

1. Использование в качестве условия выражения не логического типа:

While (n + m) Do

2. Отсутствие в заголовке цикла слова Do:

While (n < 10)

3. Использование после слова Do точки с запятой, которая, как правило, приводит к появлению бесконечного цикла:

s:=0;

n:=1;

While (n < 10) Do;

s:= s + n;

n:= n + 1;

End;

У циклов с постусловием (циклов типа ДО) проверка условия окончания цикла производится после выполнения операторов, составляющих тело цикла:

Дата добавления: 2014-01-06