14 | 15 | 16 | 17 | 18 | 19 | | 20 | | |

© um.co.ua -

  1. V. ϳ.
  2. ˳ 1. ³
  3. ˳ 1.1. '
  4. ˳ 1.2.
  5. ˳ 4. , .
  6. ˳ 6. .

procedureTform1.FormCreate (Sender: Tobject);

Begin

Edit1.Text: = '';

Edit2.Text: = '';

Edit3.Text: = '';

end;

procedureTform1.Button1Click (Sender: Tobject);

Begin

Edit1.Text: = '';

Edit2.Text: = '';

Edit3.Text: = '';

end;

procedureTform1.Button2Click (Sender: Tobject);

Begin

close;

end;

procedureTform1.Button3Click (Sender: Tobject);

Begin

s: = Edit1.Text;

s: = concat (s, # 32);

i: = 0;

while Length(S)> 0 do

Begin

i: = i + 1;

p: = pos(# 32, s);

ss: = copy(S, 1, p-1);

Val(Ss, k, code);

a [i]: = k;

delete(S, 1, p);

end;

max: = a [1];

Forj: = 1 to i do

ifmax thenmax: = a [j];

min: = a [1];

Forj: = 1 to i do

ifmin> a [j] thenmin: = a [j];

Edit3.Text: = IntToStr (max);

Edit2.Text: = IntToStr (min);

end;

38


24

- , .

1. ³ .

2. : Button, Edit, Label.

3. 䳿:

24. 24

' Object Inspector ' / ' 䳿 ij
Form1 Properties Caption
Button1 Properties Caption
Events Onclick DateTime: = Time; Edit1.Text: = TimeToStr (DateTime);
Button2 Properties Caption
Events Onclick Edit2.Text: = DateToStr (Date);
Edit1 Properties Caption Text
Edit2 Properties Caption Text

39



23 | 25