Developing.ru

помогите плиз..нужно сделать прогу..

Составить подпрограмму, которая в матрице Y(m,n) меняет местами 1-й и k-й столбец (1<m). C помощью подпрограммы поменять местами первый и последний столбцы матриц A(12,9), C(7,11), и третий и пятый столбц матрицы B(8,15). Исходные и преобразованные матрицы вывести на экран дисплея. Элементы входных матриц вычисляются по формулам:
A(c индексом i,j)=tg(j)+e^cos(i);
B(c индексом i,j)=sin(3.2j+4.2)+e^tg(1.5i);
C(c индексом i,j)=cos(12.4j+1).

Заранее благодарю!

Матрица задается Random'но или считывается с формы?

C_O_D_E, спасибо что откликнулась - получается матрица Y(m,n) заполняется через random - целыми числами - а матрицы А, B и С заполняются через формулы...

1)

Y(m,n) меняет местами 1-й и k-й столбец (1<m)

For i:=1 to m do begin
x:=y[i,1];
y[i,1]:=y[i,k];
y[i,k]:=x;
end;
аналогично и в

поменять местами первый и последний столбцы матриц A(12,9), C(7,11), и третий и пятый столбц матрицы B(8,15).

Спасибо! Буду пробовать!

Знаете как задавать Random'но или подсказка нужна?

Подсказка очень нужна.. помогите если можно.. я уже совсем запуталась

Возможно, Вы не совсем правильно поняли, что требуется сделать-заполнять random'ом ничего не нужно, матрицы Y как таковой в программе нет, она используется для описания принципа работы подпрограммы. В программе должны присутствовать только матрицы A, B, C , которые заполняются с помощью формул, указанных в задаче.

Спасибо Вам огромное что обьясняете мне.. и пытаетесь помочь, но не получается у меня пока

Добрый вечер! Снова обращаюсь к Вам за помощью.. ну вообщем прогу написать получилось почти.. есть небольшая проблемка у меня - помогите написать на Delphi 2 формулы sin(3.2j+4.2)+e^tg(1.5i) и tg(j)+e^cos(i) только не через Power - он у меня не работает - пишет File no found: Power.dcu Помогите плиз...