1.4 создание простого оконного приложения
Пример:
Составить программу для вычисления площади круга произвольного размера.
1. File|New|Application
2. Со станици standart поместим 4 компонента label1 label2 Edit1 Button1
/ label1 и label2 компоненты которые служат для отображения текстовой информации
/ Edit1 - строка ввода
/button - это кнопка 
3. В свойстве caption на нашей форме в место текста form1 введем "вычисление площади круга"
4. Шелкнем на компонент label1 и установим свойство caption равным 'введите радиус круга и нажмите кнопку "счет"'
на метку label2 будем выводить результат.
5. Одним счелчком мыши выбираем компонент button1 и в свойсте Caption пишем текст кнопок "счет"
6. Переходим к этапу написания кода, дважды нажимаем на на кнопку button1(счет) переходим в редактор.
Код собственно ниже:
Код
var r, s:real;
begin
r := StrToFloat(Edit1.Text);
s := pi*sqr(r);
label2.caption := ' площадь круга равна'+FloatToStrF(s,ffGeneral,7,2)
end;
ну и отправляем на компиляцию F9, сохраняем) вот и всё..
| 
|