Информация


Programm.ws - это сайт, на котором вы можете почитать литературу по языкам программирования, а так-же посмотреть примеры работающих программ на С++, ассемблере, паскале и много другого..

Программирование — в обычном понимании, это процесс создания компьютерных программ.
В узком смысле (так называемое кодирование) под программированием понимается написание инструкций — программ — на конкретном языке программирования (часто по уже имеющемуся алгоритму — плану, методу решения поставленной задачи). Соответственно, люди, которые этим занимаются, называются программистами (на профессиональном жаргоне — кодерами), а те, кто разрабатывает алгоритмы — алгоритмистами, специалистами предметной области, математиками.
В более широком смысле под программированием понимают весь спектр деятельности, связанный с созданием и поддержанием в рабочем состоянии программ — программного обеспечения ЭВМ. Более точен современный термин — «программная инженерия» (также иначе «инженерия ПО»). Сюда входят анализ и постановка задачи, проектирование программы, построение алгоритмов, разработка структур данных, написание текстов программ, отладка и тестирование программы (испытания программы), документирование, настройка (конфигурирование), доработка и сопровождение.

Общие замечания

15. Написать программу, которая вычисляет стоимость поездки на автомобиле, например, на дачу.

Рекомендуемый вид формы приведен на рис. 1.12.

Рис. 1.12. Форма программы Поездка на дачу

implementation
{$R *.dfm}
I Процедура EditKeyPress обрабатывает нажатие клавиш в поле Расстояние,
Цена и Потребление. Сначала надо обычным образом создать процедуру обработки события
OnKeyPress для поля Editl, затем назначить эту процедуру событию OnKeyPres полей Edit2 и Edit3.
Кроме того, свойству Tag компонентов Editl, Edit2 и Edit3 надо присвоить
соответственно значения 1, 2 и 3. Свойство Tag используется в процедуре EditKeyPress для идентификации компонента. )
procedure TForml.EditKeyPress(Sender: TObject; var Key: Char); var
Edit: TEdit; begin
Edit := Sender as TEdit;
// в поле Edit можно ввести только дробное число
case Key of
' 0' . . ' 9' : ; // цифры
#8: ; // клавиша <Backspace>
'.',',': begin
Key := DecimalSeparator;
if Pos(DecimalSeparator,Edit.Text) о О
then Key := #0; end;
#13: // клавиша <Enter> case Edit.Tag of 1:
// клавиша нажата в поле Editl
Edit2.SetFocus; // фокус в поле Edit2 2:
// клавиша нажата в поле Editl
Edit3.SetFocus; // фокус в поле Edit3 3:
// клавиша нажата в поле Edit3
Buttonl.SetFocus; // фокус на кнопку But ton 1 end; end; end;
// щелчок на кнопке Вычислить
procedure TForml.ButtonlClick(Sender: TObject);
var
rast : real; // расстояние cena : real;
// цена
potr : real; // потребление на 100 км summ : real;
// сумма mes: string; begin
// здесь возможно исключение типа EConvertError
// в случае, если пользователь оставит // одно из полей ввода незаполненным try
rast := StrToFloat(Editl.Text);
cena := StrToFloat(Edit2.Text); potr := StrToFloat(Edit3.Text); except
on EConvertError do begin
ShowMessage('Даные надо ввести во все поля!1);
// попытаемся найти пустое поле if Length(Editl.Text) = 0
then Editl.SetFocus else if Length(Edit2.Text) = 0
else Edit3.SetFocus;
exit;
end; end; .
suinm := (rast / 100) * potr * cena; mes := 'Поездка на дачу';
if CheckBoxl.Checked then begin
summ := summ * 2; mes := mes + ' и обратно'; end;
mes := mes + 'обойдется в ' + FloatToStrF(summ,ffGeneral,4,2)
+ ' руб.';
Label4.Caption := mes; end;
end.