Пересчет веса из фунтов в килограммы
Funt: real; // бес в фунтах kg: real; // вес в килограммах. К := 0.5; { Германия, Дания, Исландия, Нидерланды }. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Label4. caption := Editl. Text + ' фунт. — ' + FloatToStrF (kgj ffFixed, 6,. Выполните действия, перечисленные в табл. 26. Рис. 58. Окно разработанной программы. Описание плана разработки программы… Читать ещё >
Пересчет веса из фунтов в килограммы (реферат, курсовая, диплом, контрольная)
Цель работы — создать программу, которая пересчитывает вес из фунтов в килограммы (рис. 58). Программа учитывает, что в разных странах фунт «весит» по-разному.
Рис. 58. Окно разработанной программы
Процедура пересчета, которая выполняется в результате щелчка по командной кнопке, умножает вес в фунтах на коэффициент, равный количеству килограммов в одном фунте. Значение элемента определяется по номеру выбранного из списка элемента. В диалоговом окне программы для выбора страны используется список Страна.
Описание плана разработки программы.
- 1. Откройте новый проект.
- 2. Разместите на форме экземпляры компонентов: кнопку Button, четыре надписи Label, поле ввода Editl, список ListBoxl.
- 3. Выполните действия, перечисленные в табл. 26.
- 4. Сохраните проект, запустите и протестируйте его.
Таблица 26
Выделенный объект. | Вкладка окна Object Inspector. | Имя свойства / имя события. | Действие. |
Forml. | Properties. | Caption. | Установка имени формы «Пример использования case». |
Edit 11. | Properties. | Text. | Очистить. |
Label 1. | Properties. | Caption. | Выберите страну, введите количество фунтов, щелкните на Вычислить. |
Label2. | Properties. | Caption. | Страна. |
Label3. | Properties. | Caption. | Фунтов. |
Label4. | Properties. | Caption. | Очистить. |
Buttonl. | Properties. | Caption. | Установка имени кнопки «Вычислить». |
Events. | OnClick. | Процедура пересчета. | |
ListBoxl. | Properties. | Items. | ListBoxl.items.add ('Россия'); ListBoxl.items.add ('Австрия'); ListBoxl.items.add ('Англия'); ListBoxl.items.add ('Германия'); ListBoxl.items.add ('Дания'); ListBoxl.items.add ('Исландия'); ListBoxl.items.add ('Италия'); ListBoxl.items.add ('Нидерланды'); |
Листинг программы
unit Unitl;
interface.
uses.
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type.
TForml = class (TForm).
Label2: TLabel;
Editl: TEdit; // поле ввода веса в фунтах Buttonl: TButton; // кнопка «Вычислить».
Labell: TLabel;
Label3: TLabel;
ListBoxl: TListBox; // список стран
Label4: TLabel; // поле вывода рез-та — веса в килограммах procedure FormCreate (Sender: TObject); procedure ButtonlClick (Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var
Forml: TForml;
implementation
{$R *.DFM}
procedure TForml. FormCreate (Sender: TObject); begin
{.
ListBoxl.items.add ListBoxl.items.add ListBoxl.items.add ListBoxl.items.add ListBoxl.items.add ListBoxl.items.add ListBoxl.items.add ListBoxl.items.add.
>
- ('Россия');
- ('Австрия');
- ('Англия');
- ('Г ермания');
- ('Дания');
- ('Исландия');
- ('Италия');
- ('Нидерланды');
ListBoxl.itemindex := 0; end;
procedure TForml. ButtonlClick (Sender: TObject); var
funt: real; // бес в фунтах kg: real; // вес в килограммах
к: real; // коэффициент пересчета
begin
case ListBoxl. itemindex of 0:
к := 0.4059; { Россия }.
1:
к := 0.453 592; { Англия }.
2:
к := 0.56 001; { Австрия }.
3. 5, 7:
к := 0.5; { Германия, Дания, Исландия, Нидерланды }.
6:
к := 0.31 762; { Италия }.
end;
funt := StrToFloat (Editl.Text); kg := к * funt;
Label4.caption := Editl. Text + ' фунт. — ' + FloatToStrF (kgj ffFixed, 6,
3) + ' кг.';
end;
end.