| ← Апрель 2016 → | ||||||
|
1
|
2
|
3
|
||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
|
18
|
19
|
20
|
22
|
23
|
||
|
25
|
26
|
27
|
28
|
30
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal / Delphi / Lazarus / Python
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Код (Pascal) :: выделить код program heap;
type
MRecord = record
Str: string[12];
I: integer;
end;
MString = string[15];
MReal = real;
MInteger = integer;
{pRec = ^mRecord;}
var
R2, R1: ^real;
i2, I1: ^integer;
{ I2: ^MInteger; }
St: ^MString;
Rrec: ^mRecord;
{RRec:pRec;}
pp, pp1, pp2: pointer;
HeapOrg: pointer;
begin
write('HeapOrg = HeapPrt? ');
writeln(HEAPORG = HEAPPTR);
pp:=heapptr;
New(R1);
New(I1);
writeln('HeapPtr = pp? ',HeapPtr=pp);
R2:=R1;
I2:=I1;
write('Enter R2: ');
readln(r2^);
i2^:=trunc(r2^);
writeln('I2 = ',i2^);
writeln('r1= ',r1^, ' r2= ',r2^, ' i1= ',i1^, ' i2= ',i2^);
pp1:=HeapPtr;
New(St);
Write('Read String: ');
readln(St^);
writeln('pp1 = HP? ', pp=HeapPtr,' ', HeapPtr=pp1);
New(RRec);
pp2:=HeapPtr;
writeln('Enter RRec.Int & Rrec.Str: ');
readln(RRec^.I, RRec^.Str);
writeln('pp1 = HP? ', pp1=heapptr,' ',pp2=heapptr);
writeln('Size of Rrec: ',sizeof(rrec^));
writeln('Size of Str: ', sizeof(st^));
dispose(st);
writeln('pp2= HP? ', pp2=heapptr);
writeln('pp1= HP? ', pp1=heapptr);
dispose(rrec);
writeln('pp2= HP? ', pp2=heapptr);
writeln('pp1=HP? ', pp1=heapptr);
end.
вы можете мне объяснить, что, как и где происходит в каждой строке? т.к. я запутался....
Дата отправки: 14.04.2016, 13:29 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399158! Код (Pascal) :: выделить код var
lpChar:^char;{указатель на символ}
lpByte:^byte;{указатель на байт}
lpNull:pointer;{нетипизированный указатель}
begin
write('enter:');{выводим сообщение}
readln(lpChar^);{читаем символ}
lpNull:=lpChar;{копируем адрес}
lpByte:=lpNull;{копируем адрес}
writeln(lpByte^);{выводим значение}
{контрольный вывод}
writeln('Control: ',chr(lpByte^),' = ',ord(lpChar^));
end.2)Работа с массивами: Код (Pascal) :: выделить код type
tA=array[1..5,1..5]of integer;{тип матрица 5х5}
tB=array[1..10]of integer;{тип массив 10}
var
pA:^tA;{указатель на матрицу}
pB:^tB;{указатель на массив}
i,j:integer;
{процедура вывода массива}
procedure Outmatrix(a:pointer;b,c:integer);
var
x,y:integer;
z:^integer;{указатель на целый тип}
begin
z:=a;{копируем адрес}
for x:=1 to b do{цикл по строкам}
begin
for y:=1 to c do{цикл по столбцам}
begin
write(z^:3);{вывод значения}
inc(z);{переход к следующему целому}
end;
writeln;{переводим строку}
end;
end;
begin
new(pA);{выделяем память под матрицу}
for i:=1 to 5 do{цикл по строкам}
for j:=1 to 5 do{цикл по столбцам}
pA^[i,j]:=random(10);{заполняем матрицу}
new(pB);{выделяем память под массив}
for i:=1 to 10 do{цикл по массивам}
pB^[i]:=random(10);{заполняем массив}
writeln('Matrix A:');{выводим сообщение}
OutMatrix(pA,5,5);{вывод матрицы}
writeln('Matrix B:');{выводим сообщение}
OutMatrix(pB,1,10);{вывод массива}
readln;
dispose(pA);{освобождаем память}
dispose(pB);{освобождаем память}
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
