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.