Laboratorium 8. Aplikacje

Zad.8.1. Zbudowad Aplikację „kalkulator” arytmetyczny. Założenia: (a)dane wprowadzane w dwóch
oknach tekstowych; (b) wyniki w oknie tekstowym (lub etykiecie); (c) 4 przyciski na działania (+,-,*,/)
(d) dwa przyciski: C (czyśd), i Koniec; (e) działania arytmetyczne wykonywane będą na dwóch liczbach
całkowitych a wynik będzie liczbą całkowitą/rzeczywistą (f) lub działania arytmetyczne wykonywane
będą na dwóch liczbach rzeczywistych .
Każdemu przyciskowi będzie odpowiadał metoda (funkcja) która będzie wykonywała określone

działanie arytmetyczne. Np. przyciskowi

+

będzie odpowiadała metoda:

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtoint(Edit1.text);
b:=strtoint(Edit2.text);
c:=a+b;
Edit3.text:=inttostr(c);
Label1.caption:='suma';
End;
Gdzie: a,b,c; zmienne globalne typu integer zdefiniowane
w klasie Form1 lub w zmiennych globalnych
(po linii: var Form1 :TForm1)

Zad.8.2. Zbudowad Aplikację „Silnia”, która będzie obliczad wartośd silni dla podanej liczby
(Komponenty: Button x1; 1 Edit x1; 1 Label x1)

Zad.8.3 Zbudowad Aplikację „Licznik”, która będzie zliczad klikniecia na przycisku1 oraz zliczad do tyłu
po kliknięciu na przycisku 2, w oknie edycyjnym będzie można ustalid krotnośd zliczania (od 1 do 10).

Zad.8.4. Zbudowad Aplikację „Potęgowanie”, która będzie obliczad wartośd potęgi danej liczby : a)
wersja podstawowa czyli tylko potęga całkowita dodania; b) potęga całkowita; c) potęga rzeczywista.

Zad.8.5. Zbudowad aplikację, „Równanie” w której można rozwiązad równanie kwadratowe.
Założenia a) wsp. równania „a,b,c” będą podawane w 3 okienkach edycyjnych; b) wyniki rozwiązania
(dowolnie, zalecane w 2 okienka Edit); c) wersja podstawowa gdzie wsp. a<>0 oraz rozwiązania
rzeczywiste; b) wersja „plus” tzn. równanie stałej, liniowe i kwadratowe; e) pole wyboru z typem
wyniku: rzeczywisty lub zespolony.