На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Пример: Составить программу для вычисления площади круга произвольного размера.
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, сохраняем) вот и всё..
|