Программирование с использованием процедур

@SmokyStarCat · Регистрация: 16.09.2018

Студворк — интернет-сервис помощи студентам

Задача на использование процедур:

Отсортировать по возрастанию заданный массив чисел, исключив отрицательные числа. Использовать функцию сортировки.

@ZfoxAK · 03.12.2018, 05:23

Delphi

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TMassData = array of Integer;
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    MassData: TMassData;
  public
    { Public declarations }
    procedure MySort(var AData : TMassData );
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//Использование процедуры сортировки
 MySort(MassData);
end;
 
//Процедура сортировки
procedure TForm1.MySort(var AData: TMassData);
begin
//код сортировки
end;
 
end.

@SmokyStarCat 3 / 3 / 0 Регистрация: 16.09.2018 Сообщений: 175
		1
	Программирование с использованием процедур 02.12.2018, 19:16. Показов 330. Ответов 1 Метки delphi 10, процедура (Все метки) Задача на использование процедур: Отсортировать по возрастанию заданный массив чисел, исключив отрицательные числа. Использовать функцию сортировки. 0

Опции темы