Алгоритмы и программы. Афанасьева Т. В - 86 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

86
Задать шаг, отличный от 1 или –1 нельзя!
Выход из цикла
В циклах с условиями при большом объеме вычислений возможна
ситуация, когда время выполнения цикла становится слишком большим.
В этом случае необходимо использовать стандартную процедуру
прекращения выполнения цикла:
break.
Эта процедура используется также для досрочного выхода из цикла в
случае получения результата до конца выполнения цикла. Процедура
continue используется для досрочного перехода
к следующей
операции цикла.
Пример 4.10. Подсчет в строке букв <А> и <B>.
program k1;
var
a:char;
p,i,s:integer;
begin
writeln('Подсчет в строке букв <А> и <B> ');
writeln;
s:=0;
p:=0;
writeln('Введите строку из 10 букв без пробелов');
for i:=1 to 10 do
begin
read(a);
if a='a' then s:=s+1;
if a='b' then p:=p+1;
end;
if s>0 then writeln ('Букв «a» в строке ',s)
else writeln('Букв «a» в строке нет');
if p>0 then writeln ('Букв «b» в строке ',p);
else writeln('Букв «b» в строке нет');
writeln;
writeln('Для окончания работы нажмите ЕNTER');
readln;
end.
Пример 4.11. Возведение числа в
степень.

Страницы