<![CDATA[
<body>
<PRE>
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
Label2: TLabel;
Button6: TButton;
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
function t(szam:integer):boolean;
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x:array[1..15] of integer;
maxp,max:integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
StringGrid1.Cells[1,0]:= 'Számok';
for i := 1 to 15 do
begin
x[i]:= random(100)+1;
StringGrid1.Cells[1,i]:=inttostr(x[i]);
StringGrid1.Cells[0,i]:=inttostr(i) + '.';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
max:=x[1];
for i:=2 to 15 do
begin
if max<x[i] then max:=x[i];
end;
label1.Caption:=('A legnagyobb szám: '+ inttostr(max));
end;
function tform1.t(szam:integer):boolean;
begin
if szam mod 2=0 then
t:=true
else
t:=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
i:=1;
maxp:=2;
while (i<=15) do
begin
if T(x[i]) then
begin
if maxp<x[i] then
maxp:=x[i];
i:=i+1;
end
else
i:=i+1;
end;
label2.Caption:=('A legnagyobb páros: ' +inttostr(maxp));
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if maxp=100 then
form2.label1.Caption:='Van 100!!!!!!'
else
form2.label1.Caption:='Nincs 100 a tömbben!';
end;
procedure TForm1.Button6Click(Sender: TObject);
var
a,j,i:integer;
begin
form2.Image1.Canvas.MoveTo(0+20,20);
form2.Image1.Canvas.lineto(10+20,10);
form2.Image1.Canvas.lineto(20+20,20);
form2.Image1.Canvas.MoveTo(10+20,10);
form2.Image1.Canvas.lineto(10+20,190);
form2.Image1.Canvas.lineto(360,190);
form2.Image1.Canvas.lineto(350,180);
form2.Image1.Canvas.lineto(360,190);
form2.Image1.Canvas.lineto(350,200);
for j := 1 to 15 do
form2.Image1.Canvas.TextOut(j*20+20,200,inttostr(j));
for i := 1 to 15 do
begin
if maxp-x[i]>0 then
begin
a:=maxp-x[i];
form2.Image1.Canvas.MoveTo(i*20+25,190);
form2.Image1.Canvas.lineTo(i*20+25,190-a);
end
else
a:=x[i]-maxp;
form2.Image1.Canvas.MoveTo(i*20+25,190);
form2.Image1.Canvas.lineTo(i*20+25,190-a);
end;
form2.showmodal;
end;
end.
</PRE>
</pref>
</body>
<br>Partneroldalak: <br>
<a href="http://domain.domainshop.hu/domain.html" alt="tárhely domainregisztráció">Domain regisztráció tár és szerverszolgáltatások: domain domainnév tárhely e-mail, imap, pop3</a><br>
<a href="http://www.webtar.hu" alt="tárhely donainregisztráció">www.webtar.hu</a><br>
<a href="http://www.micropay.hu" alt="micropay">www.micropay.hu</a><br>
<a href="http://www.ingyenweb.hu" alt="ingyenweb">www.ingyenweb.hu</a><br>
<a href="http://www.videok.hu" alt="Videók">www.videok.hu</a><br>
<a href="http://www.xn--antikvrium-x4a.hu" alt="Antikvárium">www.antikvárium.hu</a><br>
<a href="http://www.ftpdir.hu" alt="ftpdir">www.ftpdir.hu</a><br>
<a href="http://xn--fotk-sqa.hu" alt="fotók">www.fotók.hu</a><br>
<a href="http://www.randi.hu" alt="Randi">www.randi.hu</a><br>
<a href="http://www.licit.hu" alt="Licit">www.licit.hu</a><br>
<a href="http://www.napivicc.hu" alt="vicc">www.napivicc.hu</a><br>
<a href="http://www.gyertyalang.hu" alt="gyertyagyújtás">www.gyertyalang.hu</a><br>
<a href="http://www.xn--helyesrs-fza2j.hu" alt="helyesírás.hu">www.helyesírás.hu</a><br>
<a href="http://domain.webtar.hu/domain.html" alt="Domain regiszráció és tárhely">Domain regisztráció</a><br>
]]>