Паскаль - Урок 21: Основные алгоритмы Паскаль (Часть 2)

Паскаль - Урок 21: Основные алгоритмы Паскаль (Часть 2)

Продолжаем изучение и повторение основных алгоритмов Паскаль. Сегодня я расскажу про возведение числа в степень, а также поиск максимального и минимального элементов в массиве.

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]max then". Также для удобства можно изменить переменную min на max.
Автор: Zed от 2013-10-08 17:46:39   Просмотров: 8807

Теги: Паскаль уроки урок основные алгоритмы Pascal