Базовые циклические алгоритмы в Паскаль

Базовые циклические алгоритмы

Алгоритм подсчета

Используется, если число элементов в некоторой совокупности заранее не известно.

count

Program count;
Var c:Integer;
    x:тип элемента;
Begin
c:=0; 
  While есть элементы Do
    begin
       получение элемента x;
       c:=c+1;
    end;
  WriteLn(c);
End.

Алгоритм суммирования методом накопления

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

summ

Program sum;
Var
    S:тип элемента;
    x:тип элемента;
Begin
S:=0;
  While есть элементы Do
    begin
      получение элемента x;
      S:=S+x;
    end;
  WriteLn(S);
End.

Алгоритм поиска максимального элемента

Для того, чтобы найти максимальный элемент в некоторой совокупности, требуется оценить нижнюю границу возможных элементов. Условно обозначается -∞. Это такое число, которое заведомо меньше любого элемента совокупности.

Пример: найти максимальное число звонков на АТС. -∞ = -1, т.к кол-во звонков>=0.

al_max

Program Max;
Var 
    x:тип элемента;
    м:тип элемента;
Begin
m:= - ∞;
    While есть элементы Do
       begin
         Получение элемента х;
         If m<x Then m:=x;
       end; 
	WriteLn  (m);
End.

Для алгоритма поиска минимального элниента все также только граница будет +∞ (верхняя), соответсвенно m>x и m=+∞.

. циклические алгоритмы в паскале
. алгоритм накопления паскаль
Комментирование и размещение ссылок запрещено.