Название: Методика преподавания информатики - Лапчик М.П.

Жанр: Информатика

Рейтинг:

Просмотров: 962

end.

Пример З. Дано вещественное число Хк натуральное N. Составить алгоритм вычисления XN. Написать программу на Паскале.

Решение.В Паскале нет операции возведения в степень. Если показатель степени — целое положительное число, то возводить в степень нужно путем ЛГ-кратного умножения основания самого на себя. Реализуется это циклическим алгоритмом:

алг Степень                                                 Program Power;

цел N,i; вещ X;                                            var N,i: integer;

нач ввод N                                                               X: real;

ввод X                                               begin readln(N);

i:=l;                                                                  readln(X);

Y:=l;                                                                i:=i;

пока i<=N, повторять                                Y:=l;

нц                                                                   while i<=N do

Y:=Y*X                                               begin

i:=i+l                                                                Y:=Y*X;

кц                                                                                i:=i+l

вывод Y                                                        end;

кон                                                                             write(Y)

end.

При выполнении трассировки этого алгоритма обязательно следует проверить правильность его работы при N = 0. Как известно из математики, Х° = 1. Трассировка доказывает, что и в этом случае алгоритмбудет давать правильный результат.

Пример 4. Последовательно вводятся N целых чисел. Найти максимальное из них.

Решение. В программировании часто приходится решать задачу поиска максимального (минимального) значения в числовом массиве. В базовом курсе могут не рассматриваться структурированные данные, в том числе массивы. Однако-эту задачу можно решить и без использования массива, ограничившись простыми переменными. Для этого ввод данных и обработку надо совместить в одном цикле. Вот как это делается:

Алг максимум                                                         Program maximum;

цел N, i, X, MAX                                                      var N, i, X, MAX: integer;

нач                                                                             begin

вывод 'введите N';                                                write('введите N');

ввод N                                                                       readln(N);

вывод 'введите X';                                                             write С введите X');

ввод X                                                                       readln(X);

МАХ:=Х; i:=l                                                              MAX:= X; i:=l;

пока i < N, повторять                                          while i < N do

нц                                                                               begin

вывод 'Введите X';                                                             write('Введите X');

ввод X                                                                       readln(X);

если X > MAX                                                          if X > MAX

то MAX:=X                                                                then MAX: = X;

kb                                                                              i : = i + 1

i: = i + l                                                                 end;