VPF::Работа с массивами - Форум программистов

LLIAMAH

Дата 3.6.2008, 07:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.6.2008

Репутация: нет
Всего: нет

проверьте задачку плиз:

1) расчета элементов квадратной матрицы A = (ai,j ), i,j = 1,2,...,n по заданной формуле
aij=sin (5i-ij+2j)

2) вычисления элементов вектора X = (xi), i = 1,2,...,n по заданному правилу
xi-скалярное произведение i-й строки на вектор В, где
Bk= max|a kj|
k=1,n
j=1,n

3) упорядочить элементы первых трех столбцов матрицы А по возрастанию абсолютных значений

4) y=Exi*Пbi

Код


Program Rab5;
Var a: array [1..10,1..10] of real;
x: array [1..10] of real;
i,j,k,n,d,max: integer;
y,s,c: real;
begin
writeln ('Bbedite n');
read (n);
{----------- часть первая ----------}
for i:=1 to n do
for j:=1 to n do
a[i,j]:=sin(5*i - i*j + 2*i);
writeln ('':20,'Matrica A');
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:8:3);
writeln;
end;
{-----------часть вторая ------------}
for k:=1 to n do
begin
max:=abs(a[1,1]);
for j:=1 to n do
begin
if a[j,k]>max then max:=a[j,k];
end;
b[k]:=max;
end;
for i:=1 to n do
for j:=1 to n do
x[i]:=a[j,i]*b[i];
writeln ('':20,'Bector X');
for i:=1 to n do
write ( x[i]:8:3);
writeln;
{------------часть третья------------}
j: array [1..3] of real;
for j:=1 to n+1 do
begin
k:=j;
for i:=j+1 to n do
if abs(a[i,j])>abs(a[k,j]) then k:=1;
c:=a[j,j];
a[j,j]=a[k,j];
a[k,j]:=c;
end;
writeln ('':14,' uporyadochennaya matrica');
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:8:3);
writeln;
end;
{----------- часть четвертая--------}
y:=1
for i:=1 to n do
begin
S:=0;
for i:=1 to n do
S:=S+b[i];
y:=y*x[i]*s;
end;
writeln (' значение функции y=', y:1:3);
end.

ama_kid

Дата 3.6.2008, 09:04 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: нет
Всего: 95

Цитата(LLIAMAH @ 3.6.2008, 07:56

)

проверьте задачку плиз

проверил - не компилируется...

--------------------

самурай без меча подобен самураю с мечом, но только без меча

LLIAMAH

Дата 3.6.2008, 13:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.6.2008

Репутация: нет
Всего: нет

Цитата(ama_kid @ 3.6.2008, 09:04)

Цитата(LLIAMAH @ 3.6.2008, 07:56

)

проверьте задачку плиз

проверил - не компилируется...

а где ошибка и как исправить скажите пож-ста smile

LLIAMAH

Дата 4.6.2008, 06:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.6.2008

Репутация: нет
Всего: нет

проверьте где ошибка пожалуйста

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »