Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Сайт заместителя директора по УВР |
|
Тема: Решение задач. Линейный алгоритм.
Задание 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 - площадь квадрата. Составить программу, определяющую его сторону и периметр.
Задание 3. Найти значение выражения .
|
|