Представлений код - для розв’язку задачі сортування елементів масиву, який складається з 6 елементів, за зростанням. Завдання: змініть код таким чином, щоб сортування відбувалось за спаданням. var Form1: TForm1; i:integer; a: array [0..5] of integer=(4, 9, 2, 0, 1, 8); procedure TForm1.Button1Click(Sender: TObject); begin for i:=0 to 5 do memo1.lines[i]:=inttostr(a[i]); end; procedure TForm1.Button2Click(Sender: TObject); var j, min, n, buf, imin : integer; begin n:=6; for i := 0 to n-1 do begin min := a[i]; imin := i; for j := i+1 to n do begin if a[j] < min then begin min := a[j]; imin := j; end; end; buf:=a[i]; a[i]:=min; a[imin] := buf; end; for i:= 1 to n do Memo2.Lines[i] := IntToStr(a[i]); end; end.

Информатика

Ответить

Ответы

klepa-79

06.04.2021

Просто: 1) система программирования это средство, которое позволяет писать программы, на определенном языке программирования, или на нескольких определенных языках. 2) язык программирования: это система обозначений, которая позволяет записывать алгоритмы. 3) чтоб алгоритм работал на машине, нужно: описание, на языке программирования, ввести в систему программирования, которая по этому описанию сделает выполняемую программу. 4) кроме транслятора, система программирования содержит весь набор инструментов для работы: текстовые редакторы, конструкторы, отладчики, и тд. поэтому называется "система"

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Представлений код - для розв’язку задачі сортування елементів масиву, який складається з 6 елементів, за зростанням. Завдання: змініть код таким чином, щоб сортування відбувалось за спаданням. var Form1: TForm1; i:integer; a: array [0..5] of integer=(4, 9, 2, 0, 1, 8); procedure TForm1.Button1Click(Sender: TObject); begin for i:=0 to 5 do memo1.lines[i]:=inttostr(a[i]); end; procedure TForm1.Button2Click(Sender: TObject); var j, min, n, buf, imin : integer; begin n:=6; for i := 0 to n-1 do begin min := a[i]; imin := i; for j := i+1 to n do begin if a[j] < min then begin min := a[j]; imin := j; end; end; buf:=a[i]; a[i]:=min; a[imin] := buf; end; for i:= 1 to n do Memo2.Lines[i] := IntToStr(a[i]); end; end.