Информация


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

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

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

4. Написать программу, которая пересчитывает массу из фунтов в килограммы (1 фунт = 409,5 грамм).

Рекомендуемый вид формы приведен на рис. 1.2. Программа должна быть спроектирована таким образом, чтобы кнопка Пересчет была доступна только в том случае, если пользователь ввел исходные данные.

Рис. 1.2. Форма программы Фунты-килограммы

// щелчок на кнопке Пересчет
procedure TForml.ButtonlClick(Sender: TObject);
var
funt: real; // масса в фунтах
kg: real; // масса в килограммах begin
// Кнопка Пересчет доступна только в том случае,
// если в поле Editl есть данные.
// Поэтому наличие в поле информации можно не проверять.
funt := StrToFloat(Editl.Text);
kg := funt * 0.4095;
Label2.Caption := FloatToStrFffunt,ffGeneral,5,2) + 1 ф — это
' + FloatToStrF(kg,ffGeneral,5,2) + ' кг1;
end;
// нажатие клавиши в поле Editl
procedure TForml.EditlKeyPress(Sender: TObject; var Key: Char);
begin
case Key of •
'0'.. ' 9', #8:; // цифры и клавиша <Backspace>
! Обработку десятичного разделителя
сделаем "интеллектуальной". Заменим точку и запятую на
символ DecimalSeparator — символ, который используется при записи дробных чисел.
I
I I I I .
begin
Key := DecimalSeparator;
// Проверим, введен ли уже в поле
// Edit десятичный разделитель
if pos(DecimalSeparator,Editl.Text) <> 0
then Key := Char(0); end; else Key := Char(0);
// остальные символы запрещены
end; end;
// содержимое поля Editl изменилось
procedure TForml.EditlChange(Sender: TObject);
begin
// проверим, есть ли в поле Editl исходные данные if Length(Editl.Text) = 0
then Buttonl.Enabled := False
// кнопка Пересчет недоступна else Buttonl.Enabled := True;
// кнопка Пересчет доступна end;
// Событие onCreate происходит в момент создания формы,
// до того, как форма появится на экране
procedure TForml.FormCreate(Sender: TObject); begin
{ т. к. поле Editl пустое (пользователь
еще не ввел исходные данные), то
сделаем кнопку Пересчет недоступной )
Buttonl.Enabled := False; end;