Строковый калькулятор. 
Программирование: delphi

Цель работы — создать программу, выполняющую действия строкового калькулятора (рис. 56).

Рис. 56. Строковый калькулятор

Описание плана разработки программы

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

Фрагмент программы

procedure TForml. Button2Click (Sender: TObject); begin

s := Editl. Text; k := StrToInt (Edit2.Text); t := StrToInt (Edit3.Text);

Delete (s, k, t);

EditlO.Text := s; end;

procedure TForml. Button3Click (Sender: TObject); begin

s := Editl. Text; q := StrToInt (Edit4.Text); w := Edit5. Text;

Insert (w, s, q); editll. Text := s; end;

procedure TForml. Button4Click (Sender: TObject); begin.

• s := Editl. Text; p := StrToInt (Edit6.Text);
• 1 := StrToInt (Edit7.Text);

Copy (s, p, 1); si := Copy (s, p, 1);

Editl2.Text := si; end;

procedure TForml. Button5Click (Sender: TObject); begin.

s := Editl. Text; r := Edit9. Text; a := Pos (r, s); editl3. Text := IntToStr (a); end;

procedure TForml. Button6Click (Sender: TObject); begin.

s := Editl. Text; b := Length (s); editl4. Text := IntToStr (b); end;

Таблица умножения

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

• 1. После запуска программы в окне изображается два движка.
• 2. Необходимо выбрать два числовых значения и найти их произ ведение.
• 3. Если выбирается одно число, то находится его квадрат.
• 4. Для выхода из программы необходимо щелкнуть мышью на за крывающей кнопке в строке заголовка.

Рис. 57. Окно разработанной программы

• 1. Откройте новый проект.
• 2. Разместите на форме экземпляры компонентов: командная кнопка Button, движок TrackBar, рамка GroupBox, надпись Label, флажок CheckBox.
• 3. Выполните действия, перечисленные в табл. 25.
• 4. Сохраните проект, запустите и протестируйте его.

Таблица 25

Листинг подпрограммы procedure TForml. TrackBarlChange (Sender: TObject); begin

Labell.Caption := IntToStr (TrackBarl.Position); LabelB. Caption := IntToStr (TrackBarl.Position * TrackBar2. Position); if CheckBoxl. Checked then

TrackBar2.Position := TrackBarl. Position;

end;

procedure TForml. TrackBar2Change (Sender: TObject); begin

Label2.Caption := IntToStr (TrackBar2.Position); Label3. Caption := IntToStr (TrackBarl.Position * TrackBar2. Position); if CheckBoxl. Checked then

TrackBar2.Position := TrackBarl. Position;

end;

procedure TForml. CheckBoxlClick (Sender: TObject); begin

TrackBar2.Position := TrackBarl. Position; end;

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

• 1. Изменить программу так, чтобы находить произведения не только двузначных, но и трехзначных чисел от 2 до 199.
• 2. Изменить программу так, чтобы находить сумму двух чисел.