SORTIROVKA - Pascal
Формулировка задачи:
POMOGITE OTSORTIROVAT DVYXMERNI MASSIV V PORIADKE VOZRASTANIA 4ISEL
Решение задачи: «SORTIROVKA»
textual
Листинг программы
uses crt; const nmax=50; var n,i,j,imax,jmax,k,buf,v: integer; x:byte; A: array [1..nmax,1..nmax] of integer; begin clrscr; randomize; writeln ('Введите размерность массива: '); readln (n);clrscr; for i:=1 to n do begin for j:=1 to n do begin gotoxy(i*3,j*1); A[i,j]:=random(20); write (A[i,j],' '); end; writeln; end; for k:= 1 to n*n do for i:= 1 to n do for j:= 1 to n do begin if j<>n then begin if a[i,j+1]<a[i,j] then begin buf:=a[i,j+1]; a[i,j+1]:=a[i,j]; a[i,j]:=buf; end; end else if(a[i+1,1]<a[i,j])and(i<>n)then begin buf:=a[i+1,1]; a[i+1,1]:=a[i,j]; a[i,j]:=buf; end; end; writeln('Отсортированный: '); for i:= 1 to n do begin for j:= 1 to n do begin write(a[i,j]:3); end; writeln; end; readkey; end.
Объяснение кода листинга программы
- Объявлены переменные: n, i, j, imax, jmax, k, buf, v, x, A.
- Задается размерность массива через ввод с клавиатуры.
- В цикле заполняются элементы массива A случайными значениями.
- Выводится на экран содержимое массива A в виде двумерного массива.
- В цикле происходит сортировка элементов массива A по возрастанию.
- Выводится на экран отсортированный массив A.
- Программа ожидает нажатия клавиши для завершения работы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д