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

Практическая работа № 21 Строковый калькулятор

Рис. 44.

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

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

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

procedure TForm1.Button2Click(Sender: TObject);
begin
s:=Edit1.Text;
k:=StrToInt(Edit2.Text);
t:=StrToInt(Edit3.text);
Delete(s,k,t);
Edit10.Text:=s;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
s:=Edit1.Text;
q:=StrToInt(Edit4.Text); w:=Edit5.Text;
Insert(w,s,q);
edit11.Text:=s;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
s:=Edit1.Text;
p:=StrToInt(Edit6.Text);
l:=StrToInt(Edit7.Text);
Copy(s,p,l);
sl:=copy(s,p,l);
Edit12.Text:=s1;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
s:=Edit1.Text;
r:=Edit9.Text;
a:=Pos(r,s);
edit13.Text:=IntToStr(a);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
s:=edit1.Text;
b:=Length(s);
edit14.Text:=IntToStr(b);
end;

Практическая работа № 20 "Обычный калькулятор" || Оглавление || Практическая работа № 22 Нахождение индекса в массиве случайных чисел


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



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

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