Определить функцию х!! следующим образом: х!! = 1*3*5*…*х, если х нечетно, х!! = 2*4*6*…*х, если х четно.

(читать всё…)

Даны целочисленные файлы f и g одинаковой длины. Оставить в f только те компоненты, значения которых больше компонентов файла g.

(читать всё…)

Как описать такой момент, когда файла допустим нет в папке, то он выдал не ошибку, а что «файла не существует» или когда неправильно ссылку на файл ввести, чтобы не ошибку выдавал.

(читать всё…)

Напишите пожалуйста небольшой пример вертикального меню из процедур, которые можно листать стрелками на клавиатуре. То есть даны две или больше процедур, нужно сделать так ,чтобы они были в начальном меню на выбор для выполнения, и их можно было листать, после чего на Enter активировать.

(читать всё…)

Проверить симметрична ли матрица А (7,7) относительно главной диагонали.

(читать всё…)

Вычитание. Получить правильную разность двух многозначных чисел (более 15 знаков).
В Турбо Паскаль, вычитать из строки строку, числа идут целые, первое число больше 2-го, буквы отсутствуют.

(читать всё…)

http://www.programmersforum.ru/showthread.php?t=254061

Аватар:

Там двумерный и для каждой строки отдельно выделяется память

type TDynStroka = array[1..1] of Integer;
TDynArray = array[1..1] of ^TDynStroka;
var N,M: Integer;
mass: ^TDynArray;
i,j: Integer;
begin
N:=2;
M:=2;
GetMem(mass,SizeOf(TDynStroka)*M);
for i:=1 to M do GetMem(mass^,SizeOf(Integer)*N);

for i:=1 to M do
for j:=1 to N do mass^^[j]:=i*10+j;

for i:=1 to M do
for j:=1 to N do
WriteLn(‘mass[‘+IntToStr(i)+’,’+IntToStr(j)+’] = ‘+IntToStr(mass^^[j]));

for i:=1 to M do FreeMem(mass^);
FreeMem(mass);

Книги:

• Turbo Pascal / С. А. Немнюгин
• СБОРНИК ЗАДАЧ  ПО  СТРУКТУРНОМУ ПРОГРАММИРОВАНИЮ ( С ПРИМЕРАМИ РЕШЕНИЙ), И.Ф.  БАБАЛОВА
• Турбо Паскаль 7.0 Самоучитель для школьников, студентов и начинающих, С.Н.Лукин

ссылка на форум

Скачать