Цель работы - создать программу, выполняющую действия обычного калькулятора. Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Label, Edit, Button.

Практическая работа № 20 Обычный калькулятор

Рис. 41.

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;

Задание для самостоятельного выполнения

1. Создать программу, выполняющую действия простого инженерного калькулятора.

Практическая работа № 20 Обычный калькулятор

Рис. 42.

Фрагмент подпрограммы (для вычисления функции Cos(x)) if Edit1.Text <> '' then begin
a := StrToFloat (Edit1.Text);
c := cos (a);
end;
if Edit2.Text <> '' then
begin
b := StrToFloat (Edit2.Text);
c := cos (b);
end;

Edit3.Text := FloatToStr (c); Добавить на форму кнопки для вычисления функций Tg(x), Log ab.

2. Создать программу, выполняющую перевод чисел из десятичной системы счисления в двоичную систему и обратно.

Практическая работа № 20 Обычный калькулятор

Рис. 43.

Практическая работа № 19 "Головоломка № 2" || Оглавление || Практическая работа № 21 "Строковый калькулятор"


Практикум по Delphi для решения прикладных задач



Новости за месяц

  • Сентябрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс