Скачиваний:
12
Добавлен:
15.06.2014
Размер:
2.1 Кб
Скачать
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type Tps=^Ts; // Определяет тип элемента стека
Ts=record
inf:integer; // Информационная часть элемента стека
ps:Tps; // Указатель на предыдущий элемент стека
end;

Ta=array[1..1] of Integer;
Tpa=^Ta;

//const n=10;


var
a:tpa;
p:tps;
i,sl,j,max,n:integer;
Form1: TForm1;

implementation

Procedure AddStack(var P:Tps; n:integer);
var pt:Tps;
Begin
new(pt); // Выделяем память для нового элемента стека
pt^.inf:=n; // Записываем новое число в элемент стека
pt^.ps:=p; // Запоминаем указатель на предыдущий элемент стека
p:=pt; // Возвращаем этот новый указатель на вершину стека
end;


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:='';
ListBox1.Clear;
GetMem(a,10*Sizeof(Integer));
n:=Strtoint(Edit1.text);
for i:=1 to 10 do a^[i]:=0;
p:=nil; // Указатель на вершину стека полагаем равным константе nil
for i:=1 to n do Begin // Открываем цикл записей в стек
sl:=random(10)+1;
for j:=1 to 10 do // Считаем кол-во встречаемости
begin if sl=j then inc(a^[j]) end;
addstack(p,sl); // Записываем его в стек
ListBox1.Items.Add(inttostr(sl));
end;

Edit1.ReadOnly:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
j:=1;
max:=a^[1];
for i:=1 to 10 do if a^[i]>max then begin max:=a^[i]; j:=i; end;
Edit2.Text:=inttostr(j);

Edit1.ReadOnly:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='10';
Edit2.ReadOnly:=true;
end;

end.
Соседние файлы в папке наиб.часто встреч. число
  • #
    15.06.2014213 б11Project1.dpr
  • #
    15.06.2014876 б11Project1.res
  • #
    15.06.20145.6 Кб11Unit1.dcu
  • #
    15.06.201451 б11Unit1.ddp
  • #
    15.06.20142.86 Кб12Unit1.dfm
  • #
    15.06.20142.1 Кб12Unit1.pas
  • #
    15.06.20141.29 Кб11Unit1.~dfm
  • #
    15.06.20141.88 Кб11Unit1.~pas
  • #
    15.06.20141.25 Кб11Unit2.dcu