Информация


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

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

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

3. Написать программу, которая пересчитывает скорость ветра из "метров в секунду" в "километров в час". Рекомендуемый вид формы приведен на рис. 1.1. Программа должна быть спроектирована таким образом, чтобы пользователь мог ввести в поле Скорость только целое положительное число. Вычисление должно выполняться как в результате щелчка на кнопке Пересчет, так и при нажатии клавиши после ввода последней цифры в поле Скорость.

// пересчитывает скорость из м/сек в км/час
procedure WindSpeed;
var
ms: integer;
// скорость м/с
kmh: real;
// скорость км/час
begin
// Если поле Editl пустое, то при выполнении
II функции StrToInt возникает ошибка.
II Проверим, ввел ли пользователь скорость в поле Editl
if Length(Forml.Editl.Text) = 0 then
begin
ShowMessage('Надо ввести скорость');
exit;
// завершить обработку события
end; ms := StrToInt(Forml.Editl.Text);
// ввести исходные данные
kmh := ms * 3.6;
// пересчитать // вывести результат
Forml.Label3.Caption :=
IntToStr(ms) + ' м/с - это ' + FloatToStr(kmh) + ' км/час'
end;
// щелчок на кнопке Пересчет
procedure TForml.ButtonlClick(Sender: TObject);
begin
WindSpeed;
// пересчитать скорость
end;
// нажатие клавиши в поле Editl
procedure TForml.EditlKeyPress(Sender: TObject; var Key: Char);
begin
// Key — символ нажатой клавиши
II #S — клавиша <Backspace>
11 #13 — клавиша <Enter> case Key of
10'..'9',#8:; // цифры и клавиша <Backspace>
#13: WindSpeed; // пересчитать скорость
else Key := Chr(O); // остальные символы не отображать
end;
end;