Разработка интерактивной среды обучения работе
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферат машини, реферат на тему предприятие
Добавил(а) на сайт: Наталия.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 | Следующая страница реферата
2. 5 Константы-указатели
Такие константы содержат адрес в памяти переменной или подпрограммы.
При их объявлении констант нужно следить за тем, чтобы адрес, на который
она указывает, использовался. Примеры:
Константа содержит адрес переменной:
const PI: ^Integer = @I;
Константа содержит адрес подпрограммы:
const PF: Pointer = @MyFunction;
Вы можете объявить константу типа PChar со строчным значением, т. к. литералы хранятся в памяти как глобальные константы.
Адреса локальных (размещенных в стеке) и динамических переменных не могут быть помещены в подобную константу.
2. 6 Примеры программ
Ниже приведены примеры программ, использующих типизированные константы. Они написаны в Delphi, но в виде консольного приложения – чтобы не загромождать текст программ описанием форм и других объектов, к которым данная задача не имеет отношения.
Тексты программ-примеров помещены на дискете с курсовой работой в директории EXAMPLES.
Пример 1.
program Example1;
{$APPTYPE CONSOLE}
{Данная программа-пример демонстрирует применение констант-массивов.
Преобразует численный формат даты в обычный, с названием месяца}
uses
SysUtils;
const month:array[1..12] of
string[20]=('January','February','March','April','May',
'June','July','August','September','October','November', 'December');
var d:string[10];
s:string[30];
s1:string[3];
begin write('Enter date (dd:mm:yyyy): '); readln(d); s:=''; if copy(d,1,1)'1' then begin if copy(d,2,1)='1' then s1:='`st' else if copy(d,2,1)='2' then s1:='`nd' else if copy(d,2,1)='3' then s1:='`rd' end else s1:='`th'; s:=copy(d,1,2)+s1+' of '+month[strtoint(copy(d,4,2))]+' ' +copy(d,7,4); writeln(s); readln
end.
Пример 2.
unit Example2frm;
{Этот пример показывает,как применяются константы-записи. Здесь строится многоугольник (с применением метода Polyline объекта Canvas),а координаты вершин многоугольника содержатся в массиве констант-записей.}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton; procedure Button1Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var
Form1: TForm1;
PolyLines:array[1..4] of tpoint=((x:170;y:20),(x:320;y:320),(x:20;y:320),
(x:170;y:20));
implementation
Рекомендуем скачать другие рефераты по теме: охрана труда реферат, шпоры по уголовному.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 | Следующая страница реферата