использование динамические переменных Опции

[shyrik]

Люди, помогите пожалуйста с этими задачками.
1. Запишите программу, которая выводит значения адреса сегмента ее кода, начала данных из кучи и стека. Сравните результаты ее запуска из оболочки Turbo Pascal и из операционной системы.
2. С помощью динамических переменных реализуйте вещественную матрицу размером 200 x 100. Каждому элементу матрицы присвойте случайное значение из заданного диапазона. Отсортируйте элементы в строках и строки по значению первого элемента. Выдайте на экран первую подматрицу размером 20 x 10.
3. Составить программу, которая вставляет в непустой список L, элементы которого упорядочены по неубыванию, новый элемент Е так, чтобы сохранилась упорядоченность.

Сообщение отредактировано: shyrik - 10.01.2005 19:39

[volvo]

Пост выше внимательно посмотри... Там ссылки и есть

А вот так выглядит первая программа:

Код

procedure WriteHexWord(w: Word);
const
 hexChars: array [0..$F] of Char =
   '0123456789ABCDEF';
begin
 WriteLn(hexChars[Hi(w) shr 4],
         hexChars[Hi(w) and $F],
         hexChars[Lo(w) shr 4],
         hexChars[Lo(w) and $F]);
end;

begin
 write('Сегмент кода: '); WriteHexWord(CSeg);
 write('Стек: '); WriteHexWord(SSeg);

 writeln('Начало кучи: ', Word(HeapOrg));
 readln
end.

Сообщение отредактировано: volvo - 10.01.2005 19:41