Информация


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

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

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

17. Напишите программу "Электронные часы", на поверхности формы которой отображается текущее время

Рис. 1.14. Окно программы Электронные часы

unit eclock_; interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
type
TForml = class(TForm)
Timerl: TTimer;
Labell: TLabel;
procedure FormPaint(Sender: TObject);
procedure TimerlTimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
// объявление процедуры ShowTime
// помещено сюда вручную
// это сделано, чтобы функция имела
// доступ к компонентам формы напрямую
procedure ShowTime;
private
f Private declarations }
public
{ Public declarations }
end;var "
Forml: TForml;implementation($R *.dfm}// отображает текущее время
procedure TForml.ShowTime;
var
Time: TDateTime; // текущее время
begin
Time := Now(); // получить системное время
Label1.Caption := FormatDateTime('hh:mm:ss',Time);
end;// обработка события Paint
procedure TForml.FormPaint(Sender: TObject);
begin
ShowTime; // отобразить часы
end;// обработка сигнала таймера
procedure TForml.TimerlTimer(Sender: TObject);begin
ShowTime; // отобразить время
end;procedure TForml.FormCreate(Sender: TObject);
begin
// настроить и запустить таймер
Тimer1.Interval := 1000; // период сигналов таймера 1 с
Timerl.Enabled := True; // пуск таймера
end;end.