Информация


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

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

На www.amariua.com лист нержавейка.

Графика

24. Напишите программу, которая на поверхности формы рисует флаг Российской Федерации.

// обработка события OnPaint
// процедура рисует флаг Российской Федерации
procedure TForml.FormPaint(Sender: TObject);
const
L = 200; // ширина флага (полосы)
H = 40; // высота полосы
var
х,у: integer; // левый верхний угол
begin
х := 30;
у := 50; with Canvas do
begin
// Чтобы у прямоугольников не было
// границы, цвет границы должен
// совпадать с цветом закраски Brush.Color := clWhite; // цвет закраски
Pen.Color := clWhite; // цвет границы
Rectangle(х,у,x+L,y+H);
Brush.Color := clBlue;
Pen.Color := clBlue;
Rectangle(x,y+H,x+L,y+2*H); Brush.Color := clRed;
Pen.Color := clRed;
Rectangle(x,y+2*H,x+L,y+3*H) ; // контур
Pen.Color : = clBlack;
Brush.Style := bsClear; // "прозрачная" кисть
Rectangle(x,y,x+l,y+h*3); Font.Size := 24;
Font.Name := 'Times New Roman';
Font.Color := clWhite;
TextOut(50,200,'P о с с и я');
Font.Color := clBlack;
TextOut(51,201,'? о с с и я1);
end;
end;end.