DELPHI 7
.pdfvk.com/club152685050 | vk.com/id446425943
ScrollBar
(полоса управления)
vk.com/club152685050 | vk.com/id446425943
Panel
(панель объединения)
vk.com/club152685050 | vk.com/id446425943
ActionList
(список действий)
vk.com/club152685050 | vk.com/id446425943
Задача 3
Составить программу, которая запрашивает два целых числа - N и М.
В третьем окне «Результат» выводится результат арифметических действий с этими числами в зависимости от активного переключателя «Радиокнопки».
vk.com/club152685050 | vk.com/id446425943
Задача 3
vk.com/club152685050 | vk.com/id446425943
Label1.Caption Задача 3
Edit1.Text
Label2.Caption |
Edit2.Text |
RadioGroup1
Button1.Caption
Button3.Caption
Label3.Caption |
Button2.Caption |
Edit3.Text |
|
vk.com/club152685050 | vk.com/id446425943
Задача 3
procedure TForm1.Button2Click(Sender: TObject);
begin
Case RadioGroup1.ItemIndex of
0:Edit3.Text:=floattostr(strtofloat(Edit1.Text)+strtofloat(Edit2.text));
1:Edit3.Text:=floattostr(strtofloat(Edit1.Text)-strtofloat(Edit2.text));
2:Edit3.Text:=floattostr(strtofloat(Edit1.Text)*strtofloat(Edit2.text));
3:Edit3.Text:=floattostr(strtofloat(Edit1.Text)/strtofloat(Edit2.text));
end;
vk.com/club152685050 | vk.com/id446425943
Задача 3
procedure TForm1.Button1Click(Sender: TObject); begin
Edit1.clear;
Edit2.clear;
Edit3.clear;
end;
vk.com/club152685050 | vk.com/id446425943
Задача 4
Составить программу, которая запрашивает два целых числа - N и М.
В третьем окне «Результат» выводится результат арифметических действий с этими числами в зависимости от активного переключателя «Радиокнопки».
Второе число вводится с помощью линейки прокрутки.
vk.com/club152685050 | vk.com/id446425943
Задача 4