Продолжаем изучение и повторение основных алгоритмов Паскаль. Сегодня я расскажу про возведение числа в степень, а также поиск максимального и минимального элементов в массиве.
1 (4). Возведение числа в положительную степень.
На вход подается два числа - само число и степень в которую надо возвести это число. Для того, чтобы возвести число в степень нужно:
a) Присвоить переменной, в которой будет храниться результат, - единицу;
b) Сделать проверку степени на ноль. Если степень ноль, то вывести результат 1 , так как нулевую степень принято считать за 1;
c) Если степень не нулевая, то выполнять цикл с параметром FOR от одного до значения (переменной) степени, в котором выполнять умножение результата на исходное число.
Возведение числа в целую положительную степень на Pascal:
Var rez, st, a, i:integer;
Begin
readln (a, st);
rez:=1;
if st=0 then rez:=1 else
For i:=1 to st do
rez:=rez*a;
writeln (rez);
End.Скачать: stepen.pas
2 (5). Нахождение минимального элемента в массиве.
Для того, чтобы найти минимальной элемент в одномерном массиве нужно:
a) Создать переменную, в которой мы будем хранить минимальное значение (например, min). Присвоить этой переменной значение первой ячейки массива.
b) Создать цикл от 2 (значение первой ячейки уже присвоили минимальному значению, поэтому проверять её на минимальность нет смысла) до границы массива
c) Сравнивать значение min с ячейками, если минимальное значение больше значения сравниваемой ячейки, то присвоить ему значение этой ячейки.
Поиск минимального элемента и его индекса в одномерном массиве Pascal:
const //Описание констант
Sz = 100;
var //Описание переменных
a: array [1..Sz] of real;
N: integer;
min: real;
minind: integer;
begin
N := 20;
for var i:=1 to N do //Заполнение и вывод массива
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
min := a[1]; //Поиск минимального элемента
minind := 1;
for var i:=2 to N do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
writeln('Минимальный элемент: ',min); //Вывод минимального элемента и его индекса
writeln('Индекс минимального элемента: ',minind);
end. //Конец программыСкачать: minimal.pas
3 (6). Поиск максимального элемента в одномерном массиве.
Поиск максимального элемента от поиска минимального отличается только лишь знаком в выражении "if a[i]