Тема: Решение задач. Линейный алгоритм.
Задание 1. Найдите периметр и площадь прямоугольника, если известны его ширина и длина.
Нахождение периметра прямоугольника:
procedure TForm1.Button1Click(Sender: TObject);
var
a, b : integer ;
c: real;
begin
a:=StrToInt ( Edit1.Text ) ;
b:=StrToInt ( Edit2.Text ) ;
c:=(b+a)*2;
Label3.Caption:= 'Ответ: '+FloatToStr (c);
end;
Нахождение площади прямоугольника:
procedure TForm1.Button2Click(Sender: TObject);
var
a, b : integer ;
c: real;
begin
a:=StrToInt ( Edit1.Text ) ;
b:=StrToInt ( Edit2.Text ) ;
c:=b*a;
Label3.Caption:= 'Ответ: '+FloatToStr (c);
end;
Задание 2. Дано действительное число S - площадь квадрата. Составить программу, определяющую его сторону и периметр.
.