Задание для самостоятельного выполнения
1. Создать программу, выполняющую действия простого инженерного калькулятора.
Рис. 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. Создать программу, выполняющую перевод чисел из десятичной системы счисления в двоичную систему и обратно.
Рис. 43.
Практическая работа № 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);
s1:=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;
Практическая работа № 22
Нахождение индекса в массиве случайных чисел
|
|
Цель работы - создать программу,которая находит индекс числа в массивеслучайных чисел.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: Button, Edit, Label.
3. Выполнить следующие действия:
Таблица 22. | ||||
Выделенный объект | Вкладка окна | Имя свойства/ | Действие | |
Object Inspector | имя события | |||
Form1 | Properties | Caption | Установка имени формы «Новый | |
проект» | ||||
Events | OnCreate | Очистить значения свойств Text | ||
текстовых полей | ||||
Button1 | Properties | Caption | Введите название «Очистить» | |
Events | Onclick | Очистить значения свойств Text | ||
текстовых полей | ||||
Button2 | Properties | Caption | Введите название «Закрыть» | |
Events | Onclick | Обработка события закрытия | ||
формы | ||||
Button3 | Properties | Caption | Введите название «Найти первый | |
индекс» | ||||
Events | Onclick | Обработка события нахождения | ||
индекса введенного числа | ||||
Button4 | Properties | Caption | Введите название «Ввести | |
случайным образом» | ||||
Events | Onclick | Ввод массива случайным образом | ||
Edit1 | Properties | Caption | Очистить значение свойства Text | |
Edit2 | Properties | Caption | Очистить значение свойства Text | |
Edit3 | Properties | Caption | Очистить значение свойства Text |
|
|
В Введите переменные ik, k, i : integer; s : string; a : array [1..15] of integer.
В Сохраните проект, запустите и протестируйте его.
Листинг программы
procedure Tform1.FormCreate(Sender: Tobject);
Begin
Edit1.Text := ‘’;
Edit2.Text := ‘’;
Edit3.Text := ‘’;
end;
procedure Tform1.Button1Click(Sender: Tobject); begin
Edit1.Text := ‘’;
Edit2.Text := ‘’;
Edit3.Text := ‘’;
end;
procedure Tform1.Button2Click(Sender: Tobject); begin
close;
end;
procedure Tform1.Button3Click(Sender: Tobject); begin
k := StrToInt (Edit2.Text);
For i:= 1 to 15 do
if k = a[i] then ik := i;
if ik = 0 then Edit3.Text := ‘number ubsent’
else Edit3.Text := IntToStr (ik);
end;
procedure Tform1.Button4Click(Sender: Tobject); begin
randomize;
s := ‘’;
For i := 1 to 15 do
Begin
a[i] := random (26);
s := concat (s, IntToStr (a[i]), #32);
end;
Edit1.Text := s;
end;
end.
Вид проекта по действиям:
Рис. 45.
Практическая работа № 23
Дата добавления: 2019-09-13; просмотров: 266; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!