akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
{$APPTYPE CONSOLE}
uses
sysutils;
var
m, n: array of longint;
mi, ni, mx, nx: longint;
sfmt: string;
begin
writeln('size m, offset m, size n, offset n:');
readln(mx, mi, nx, ni);
setlength(m, mx);
setlength(n, nx);
mi := mx mod mi;
ni := nx mod ni;
readln(m[mi], n[ni]);
sfmt := format('m=%i(start=%p this=%p end=%p), n=%i(start=%p this=%p end=%p) diff=%i',
[m[mi], m, longint(m)+longint(mi), longint(m)+longint(mx)-1, n[ni],
n, longint(n)+longint(ni), longint(n)+longint(nx)-1, longint(n)-longint(m)]);
writeln(sfmt);
setlength(m, 0);
setlength(n, 0);
end.
|
Всего записей: 24127 | Зарегистр. 06-12-2002 | Отправлено: 15:34 27-10-2008 | Исправлено: akaGM, 23:14 27-10-2008 |
|
