.....12
充13
.14
Delphi . Delphi 1 1995 . 16- Windows 3.11. Delphi 2 1996 , 32- .
Delphi - , , :
1) Windows , , .
2) ( ) , ; Windows , , , , Windows.
3) (DLL) , , , .
4) ; .
5) , , .
6) (.hlp), , , , , Windows.
7)
Windows, Windows.
, . , . . -, , . . . -, -
. - .
- (). , . .
|
|
, . A, B. . .
(>=25); .
; .
:
1) Delphi ( ).
2) :
) .
) .
) .
) .
.
.
;
:
:
:[1]
:
:
,
-
-
Procedure vvod |
n |
a[I,j] |
I:=1 to n |
`
Procedure vivod |
I:=1 to L-1 |
v[i] |
n |
- :
Procedure formir |
I:=1 to n |
j:=1 to n |
a[i]=b[j] |
v[l]:=b[i]; l:=l+1; |
-
Procedure sortirovka |
I:=1 to n |
K:=1 to n-1 |
C[k]>c[k+1] |
f:=c[k]; c[k]:=c[k+1]; c[k+1]:=f; |
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
Type mas=array[1..25] of integer;
procedure vvod(var a:mas;var m:integer);
var i:integer;
begin
writeln(' ');readln(m);
writeln(' , ');
for i:=1 to m do
begin
write('a[',i:2,']=');
readln(a[i]);
end;
end;
procedure formir(a,b: mas; n,m:integer; var v:mas; var l:integer);
var
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
if a[i]=b[j] then begin
v[l]:=a[i];
l:=l+1;
end;
end;
end;
procedure vivod(v:mas;l:integer);
var i:integer;
begin
writeln(' ');
for i:=1 to l-1 do
write(' ',v[i],' ');
end;
procedure sortirovka(var c:mas; n:integer);
var i,k,f:integer;
begin
for i:= 1 to n-1 do begin
for k:= 1 to n-2 do if c[k]>c[k+1] then begin f:=c[k]; c[k]:=c[k+1]; c[k+1]:=f; end; end;
end;
var
a,b,v:mas;
i,j,n,m,l:integer;
begin
vvod(a,n);
vvod(b,m);
l:=1;
writeln;
formir(a,b,n,m,v,l);
sortirovka(v,l);
vivod(v,l);
readln;
readln;
readln;
|
|
end.