Знатоки программирования на pascal помогите разобраться!?

Без имени, 371 просмотр

Делал программу сортировка массивов, сортировка выбором по убыванию, код сортировки взял из интернета!
Меня препод заставила объяснить(но не из-за того что хочет что бы я понял, а просто она сама не может понять этот алгоритм поэтому требует что бы я объяснил), а я сам как рассуждал оказалось не правильно(что находим мин элемент и т.д. она говорит тогда должен быть еще кусок проги, так что это не правильно), поэтому не могу ей объяснить!Помогите пожалуйста!

program Sortirovka;
uses Crt;
type mas=array[Byte] of char;
procedure sort(var a:mas;n:byte);
var i,j,imin:byte;
min:char;
begin
!!!!Это надо объяснить!!!!!
j:=n;
while j > 1 do
begin
min := a[1];
imin := 1;
for i := 2 to j do
if a[i] < min then
begin
min := a[i];
imin := i
end;
a[imin] := a[j];
a[j] := min;
j := j - 1
end;
end;
!!!!до этого!!!!
function sred(a:mas;n:byte):real;
var i,k:byte;
s:real;
begin
s:= 0; k:=0;
for i := 1 to n do
if i mod 3=0 then begin
s := s + ord(a[i]);
k:=k+1;
end;
sred:=s/k;
end;

var a:mas;
n,i:byte;
f:text;
begin
clrscr;
write('Vvedite razmernost massiva n:');
readln(n);
writeln('Vvedite elementy massiva');
for i := 1 to n do
begin
write('a[', i, ']=');
readln(a[i]);
end;
clrscr;
writeln('Ishodnyj massiv:');
for i:=1 to n do
write(' ',a[i]);
writeln;
sort(a,n);
writeln('Sortirovka v poryadke ubvaniu:');
for i := 1 to n do
write(' ',a[i]);
writeln;
writeln('Srednee arifmeticheskoe kodov...=', sred(a,n):0:3);
assign(f,'Kod.txt');
rewrite(f);
for i:=1 to n do
if i mod 3=0 then write(f,' ',ord(a[i]));
close(f);
readln
end.

Ответы:

Suren Enfiajyan

var a:array[1..30] of integer;
i,j,n,c:integer;
begin
write('Vvedite kolichestvo elementov ');
readln(n); {ввод количества элементов}
for i:=1 to n do {ввод массива}
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to n-1 do {повторяет этот цикл n-1 раз}
for j:=1 to n-i do {так как при каждом этом цикле наименьшие елементы попадают в конец массива,то в следуйщий раз рассматривает на один элемент меньше}
if a[j] < a[j+1] then {сортировка элементов - если следуйщий больше его предыдущего ,то поменяет их местами}
begin
c:=a[j];
a[j]:=a[j+1];
a[j+1]:=c;
end;
write('Poryadok po ubyvaniyu- ');
for i:= 1 to n do
write(a[i],' ');{вывод массива}
readln;
end.

Итерация:В качестве минимального элемента берется первый элемент, затем идет второй проход по массиву, и если обнаруживается элемент кото

!!!!Это надо объяснить!!!!!
j:=n;
while j > 1 do
begin
min := a[1];
imin := 1;
for i := 2 to j do
if a[i] < min then
begin
min := a[i];
imin := i
end;
a[imin] := a[j];
a[j] := min;
j := j - 1
end;
end;
!!!!до этого!!!!

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.