Конспект лекций по программированию для начинающих. Гладков В.П. - 120 стр.

                                     122

каждый раз обрабатываются три элемента, поэтому нужно принять
соответствующие меры для их сохранения.
    { фрагмент 42 }
    read(a,b); { читаем два первых элемента }
    s:=0; { начальное значение суммы }
    f:=(a<>100) and (b<>100); { a и b не равны 100? }
    while f do { пока не обработан элемент равный 100 }
    begin
       read(c); { читаем следующий элемент }
       s:=s+a*b*c; { вычисляем сумму }
       a:=b; { сдвигаем прочтенные
       b:=c; элементы }
       f:=c<>100 { элемент c не равен 100? }
    end.
    При выводе на печать следует помнить, что в стандартном Паскале строки
выводятся (печатаются) последовательно. Напечатав строку, к ней нельзя
вернуться. При выводе очень часто структуру алгоритма подсказывает структура
печатаемых данных.
    Пример 10.44. Напечатать квадрат со стороной из n звездочек (n>2).
Например, для n=4 должно получиться
       ****
       ****
       ****
       **** .
    Решение. Выводимая информация состоит из n строк. Ее можно вывести с
помощью арифметического цикла.
    { фрагмент 43 }
    for i:=1 to n do
    begin
       writeln; { в начало новой строки }
       { вывести i-ю строку }
    end.
    Вывод i-й строки состоит в печати n звездочек. Он может быть выполнен так:
    { фрагмент 44 }
    { вывести i-ю строку }
    for j:=1 to n do write('*');
    Если фрагмент 44 подставить вместо соответствующего комментария во
фрагмент 43, то получим решение задачи:
    { фрагмент 45 }
    for i:=1 to n do
    begin
       writeln; { в начало новой строки }
       for j:=1 to n do write('*') { вывести i-ю строку }
    end.
    Пример 10.45. Напечатать квадрат со стороной из n звездочек (n>2), причем
звездочки должны располагаться по периметру квадрата.