Добавить в код использование процедур - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Решение задачи: «Добавить в код использование процедур»

textual
Листинг программы
const n = 10;
type mas=array[1..n] of integer;
procedure vvod(var a:mas);
var i:byte;
begin
for i:=1 to n do
read(A[i]);
writeln;
end;
procedure sort(var a:mas);
var i,j,max:byte;
    t:integer;
begin
for i:=1 to n do
 begin
  max:= i;
  for j:=i to n do
  if a[j]<a[max] then max := j;
  t :=a[i];
  a[i]:=a[max];
  a[max] := t;
 end;
end;
procedure vyvod(a:mas);
var i:byte;
begin
writeln('Вывод массива:');
for i:=1 to n do
write(a[i],' ');
end;
var a:mas;
begin
vvod(a);
sort(a);
vyvod(a);
end.

Объяснение кода листинга программы

  1. Объявлены константа n равная 10 и тип массива mas как массив целых чисел размером 10.
  2. Объявлены процедуры vvod и sort.
  3. В процедуре vvod используется цикл for для прохода по всем элементам массива a. В каждой итерации цикла происходит чтение значения из стандартного ввода и сохранение его в соответствующем элементе массива a.
  4. В процедуре sort используются две вложенные цикла for. Внешний цикл выполняется для каждого элемента массива a. Во время каждой итерации внешнего цикла, внутренний цикл сравнивает каждый элемент массива a с текущим максимальным элементом и обновляет значение максимального элемента, если текущий элемент меньше.
  5. Значение текущего элемента сохраняется в переменной t, а затем заменяется значением элемента с индексом максимального элемента. Значение элемента с максимальным индексом заменяется значением t.
  6. В процедуре vvod используется цикл for для прохода по всем элементам массива a. В каждой итерации цикла происходит вывод значения элемента массива a с пробелом в качестве разделителя.
  7. В основной части программы вызываются процедуры vvod, sort и vvod для ввода, сортировки и вывода массива a соответственно.
  8. Значения массива a вводятся с клавиатуры, сортируются и выводятся на экран.

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы