Практическая работа № 20
«Обычный калькулятор» Цель работы - создать программу, выполняющую действия обычного калькулятора. Описание плана разработки программы 1. Открыть новый проект. 2. Разместить на форме экземпляры компонентов: Label, Edit, Button.
3. Сохраните проект, запустите и протестируйте его. Листинг подпрограммы procedure TForm1.FormCreate(Sender: TObject); Begin Edit1.Text:= ''; Edit2.Text:= ''; Edit3.Text:= ''; end; procedure TForm1.Button5Click(Sender: TObject); Begin Edit1.Text:= ''; Edit2.Text:= ''; Edit3.Text:= ''; end; procedure TForm1.Button6Click(Sender: TObject); Begin close; end; procedure TForm1.Button1Click(Sender: TObject); Begin a:= StrToFloat (Edit1.Text); b:= StrToFloat (Edit2.Text); c:= a + b; Edit3.Text:= FloatToStr (c); end; procedure TForm1.Button2Click(Sender: TObject); Begin a:= StrToFloat (Edit1.Text); b:= StrToFloat (Edit2.Text); c:= a - b; Edit3.Text:= FloatToStr (c); end; procedure TForm1.Button3Click(Sender: TObject); Begin a:= StrToFloat (Edit1.Text); b:= StrToFloat (Edit2.Text); c:= a * b; Edit3.Text:= FloatToStr (c); end; procedure TForm1.Button4Click(Sender: TObject); Begin a:= StrToFloat (Edit1.Text); b:= StrToFloat (Edit2.Text); if b = 0 then Edit3.Text:= 'division by zero' Else Begin c:= a / b; Edit3.Text:= FloatToStr (c); end; end;
|
