Головна |
Практична робота № 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; лістинг підпрограми | Завдання для самостійного виконання Випадковий вибір зі списку | найпростіший плеєр | Практична робота № 12 | Застосування смуг прокрутки | Практична робота № 14 | Практична робота № 15 | Практична робота № 16 | Практична робота № 17 | Практична робота № 18 | Практична робота № 19 | |