Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 18 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

BEGIN
ClrScr; {очистка экрана }
Write('Введите N = ');
ReadLn(N); {ввод значения N}
For i := 1 to N dо {цикл по элементам
массива}
begin
Write('A [ ', i , ' ] = ');
ReadLn(A[i]) {ввод элементов массива}
end;
S := 0; {присваивание начального значения}
For i := 1 to N do S := S+A[i];
{суммирование}
WriteLn;
WriteLn('Сумма равна ', S : 5 : 1);
ReadLn
END.
Пример 2.2. Найти наибольший элемент числового массива A = (a
1
, a
2
, ..., a
N
) и его
номер.
Тест
Данные Результаты
N=4 A=(3, -1, 10, 1) Amax=10 K=3
Школьный АЯ
алг МаксЭлемент (арг цел N, арг вещ таб
A[1:N],
рез вещ Amax, рез цел k)
нач цел i
Amax := A[1]; k := 1
нц для i от 2 до N
если A[i] > Amax
то Amax:=A[i]; k := i
все
кц
кон
Исполнение алгоритма
i A[i] > Amax Amax k
Блок-схема 
BEGIN
  ClrScr;    {очистка экрана }
  Write('Введите N = ');
  ReadLn(N); {ввод значения N}
  For i := 1 to N dо {цикл по элементам
массива}
    begin
      Write('A [ ', i , ' ] = ');
      ReadLn(A[i])   {ввод элементов массива}
    end;
  S := 0; {присваивание начального значения}
  For i := 1 to N do S := S+A[i];
{суммирование}
  WriteLn;
  WriteLn('Сумма равна ', S : 5 : 1);
  ReadLn
END.




 Пример 2.2. Найти наибольший элемент числового массива A = (a1, a2 , ..., aN ) и его
                                   номер.

                                             Тест

                        Данные                         Результаты
               N=4        A=(3, -1, 10, 1)          Amax=10         K=3


Школьный АЯ
алг МаксЭлемент (арг       цел N, арг вещ таб
A[1:N],
                   рез     вещ Amax, рез цел k)
нач цел i
  Amax := A[1]; k :=       1
  нц для i от 2 до N
     если A[i] > Amax                                               Блок-схема
       то Amax:=A[i];      k := i
     все
  кц
кон
Исполнение алгоритма

 i   A[i] > Amax        Amax        k

Страницы