[Delphi] 4 proste programy

1. Oblicz średnią liczb wprowadzonych do 3 okien TEdit .Wartosc średniej wyświetl na etykiecie z dokładnością do 2 miejsc po przecinku.

2.Wstaw komponent Edit . Wpisz do niego liczbę 0,2 . Po każdym naciśnięciu enter zawartośc w oknie edit zmienia się o 0,1 .

3.Zwiększ wielkośc przycisku o ( 2 szer.) (2 wysokosci). po każdym dwukrotnym kliknięciu przycisku myszy.

4.Wstaw na formularzu przycisk z napisem otwórz plik . Po kliknięciu na nim wyświetla sie napis zamknij plik, kolejne kliknięcie otworz plik itd.


pilne

1.

Dodajesz 3 edity jeden przycisk, klikasz 2 razy na przycisk i w procedurze OnClick wpisujesz:

var  a,b,c,srednia : double;
 begin
   a := StrToFloat(Edit1.Text);
   b := StrToFloat(Edit2.Text);
   c := StrToFloat(Edit3.Text);
  srednia := (a+b+c)/3;
  Label1.Caption := FormatFloat("0.00",srednia);
end;

2.

W zdarzeniu OnKeyDown dla Edita wpisujesz:

var c : double;
begin
if Key = VK_RETURN then
begin
 c := StrToFloat(Edit1.Text);
 c := c + 0.1;
 Edit1.Text = FloatToStr(c);
end;
end;

3.

Dla przycisku w OnClink wpisujesz:

Button1.Width := Button1.Width + 2;
 Button1.Height := Button1.Height + 2;

4.

Dla przycisku w OnClick wpisujesz:

if Button1.Caption = 'Otwórz plik' then Button1.Caption := 'Zamknij plik'
else Button1.Caption := 'Otwórz plik';