А, В, Сwrite (А, В, С)
конend.
Приклад З. Дано дійсне число X і натуральне N. Скласти алгоритм обчислення. Написати програму на Паскалі. p> Рішення. У Паскалі немає операції піднесення до степеня. Якщо показник ступеня - ціле позитивне число, то зводити в ступінь потрібно шляхом N-кратного множення заснування самого на себе. Реалізується це циклічним алгоритмом:
алг СтепеньProgram Power;
цілий N, i; вещ X; var N, i: integer;
поч введення NX: real;
введення Хbegin readln (N);: = l; readln (X);: = l; i: = l;
поки i <= N, повторятьY: == l;
нцwhile i <= N do: = Y * Xbegin: = i +1 Y: = Y * X;
кцi: = i + l
висновок Yend;
конwrite (Y)
end.
Приклад 4. Послідовно вводяться N цілих чисел. Знайти максимальне з них. p> Рішення. Це завдання можна вирішити і без використання масиву, обмежившись простими змінними. Для цього введення даних і обробку треба поєднати в одному циклі. Ось як це робиться:
Алг максімумProgram maximum;
цілий N, i, X, MAXvar N, i, X, MAX: integer;
начbegin
висновок 'введіть N'; write ('введіть N');
введення Nreadln (N);
висновок 'введіть X'; write ('введіть X');
введення Хreadln (X);
МАХ: = Х; i: = Lмах: = X; i: = l;
поки i
нцbegin
висновок 'Введіть X'; write ('Введіть X');
введення Хreadln (X);
якщо Х> MAXif Х> МАХ
то МАХ: = Хthen MAX: = X;
квi: = i + l end;: = i + lend;
кцwriteln (MAX)
висновок MAXend.
кон