Объединить в одну программу с процедурами преобразования массивов

@ZARINA · Регистрация: 05.12.2009

Студворк — интернет-сервис помощи студентам

Необходимо в Паскале объединить, оформив процедурами, решение таких задач в 1 программу:

1. получить элементы квадратной матрицы А по закону f(i,j)=8,7i(j-4,3i)+3,5cos(i)j;

2. из матрицы А получить компоненты вектора (одномерный массив)): Х={xi}, i=1,2...n по правилу: первый элемент вектора положить равным сумме элементов матрицы, расположенных ниже главной диагонали. остальные элементы заполнить элементами главной диагонали, исключая a n,n;

3. преобразовать вектор: i-тый элемент вектора равен (xi-xi+1-xi+2)/3, где i=1...n-2.

Так как я начинающий )), сделала 0,75% ) то есть рабочую прогу по первому заданию. А с остальным помогите, заранее очень благодарна.

п.с. моя программка:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
i,j,N:Integer;
X:array[1..100,1..100] of Real;
begin
write('Enter matrix size N=');
readLn(N);
for i:=1 to N do
for j:=1 to N do
begin
X[i,j]:=(8,7*i*(j-4,3*i))+(3,5*j*(cos(i)));
end;
for i:=1 to N do
begin
for j:=1 to N do
write(X[i,j]:5);
writeLn
end
end.

заметила, пока печатала, свою ошибку: в проге не могу "8,7" а только "87"!! как вводить дроби? не через точку же ??)

@Inadequate · 05.12.2009, 02:58

Сообщение от ZARINA

в проге не могу "8,7" а только "87"!! как вводить дроби? не через точку же ??)

ZARINA, именно через точку и надо вводить.

Добавлено через 41 секунду
т.е. должно быть так

Pascal
1
2
3
begin
  writeln(8.7*3)
end.

@ZARINA · 05.12.2009, 03:03 **[ТС]**

отлично, вышло... ))

а остальное

@Inadequate · 05.12.2009, 03:10

вот Вам и вторая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  b:array[1..n] of integer;
  i,j,sum:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ñóììó ýëåìåíòîâ íèæå ãëàâíîé äèàãîíàëè}
  for i:=2 to n do
    for j:=1 to i-1 do
      inc(sum,a[i,j]);
  writeln('Ñóììà = ',sum);
  writeln('Âåêòîð:');
  write('[ ');
  b[1]:=sum;
  write(b[1],' ');
  for i:=2 to n do
  begin
    b[i]:=a[i,i];
    write(b[i],' ')
  end;
  writeln(']')
end.

Добавлено через 4 минуты

Сообщение от ZARINA

преобразовать вектор: i-тый элемент вектора равен (xi-xi+1-xi+2)/3, где i=1...n-2

по третьему есть вопросы, это тот же самый вектор который мы нашли? и почему там стоит n-2?

@ZARINA · 05.12.2009, 03:17 **[ТС]**

да, вектор тот же самый...
а n-2 указывает на то, что "новый" вектор будет иметь на 2 элемента меньше , по ходу так

@Inadequate · 05.12.2009, 03:33

Сообщение от ZARINA

а n-2 указывает на то, что "новый" вектор будет иметь на 2 элемента меньше

а что такое тогда x?

@ZARINA · 05.12.2009, 03:46 **[ТС]**

Сообщение от ZARINA

да, вектор тот же самый...
а n-2 указывает на то, что "новый" вектор будет иметь на 2 элемента меньше , по ходу так

не надо преобразовывать два последних компонента вектора...

Добавлено через 12 минут
я не права...

Xi - первый элемент старого )) вектора, Xn - последний его элемент; так как исходя из Xi берут еще Xi+1, Xi+2, то есть 2 следующих компонента, то оставляют "запас"... и берут в качестве Xi - Xn-2 , чтоб иметь такие числа как Xn-2+1 - Xn-1 и Xn-2+2 - Xn...

@Inadequate · 05.12.2009, 03:51

ZARINA, хорошо я понял. В вектор тот же записывать или создать новый?

@ZARINA · 05.12.2009, 03:54 **[ТС]**

Создайте...

@Inadequate · 05.12.2009, 04:06

вот 2+3. В процедуру оформите сами

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  b:array[1..n] of integer;
  c:array[1..n] of real;
  i,j,sum:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ñóììó ýëåìåíòîâ íèæå ãëàâíîé äèàãîíàëè}
  for i:=2 to n do
    for j:=1 to i-1 do
      inc(sum,a[i,j]);
  writeln('Ñóììà = ',sum);
  writeln('Âåêòîð:');
  write('[ ');
  b[1]:=sum;
  write(b[1],' ');
  for i:=2 to n do
  begin
    b[i]:=a[i,i];
    write(b[i],' ')
  end;
  writeln(']');
  {òðåòüÿ ÷àñòü}
  writeln('Íîâûé âåêòîð:');
  write('[ ');
  for i:=1 to n-2 do
  begin
    c[i]:=(b[i]-b[i+1]-b[i+2])/3;
    write(c[i],' ');
  end;
  writeln(']')
end.

@ZARINA · 05.12.2009, 04:10 **[ТС]**

огромное спасибо!!!!

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@ZARINA 0 / 0 / 0 Регистрация: 05.12.2009 Сообщений: 8
	05.12.2009, 03:03 [ТС]
	отлично, вышло... )) а остальное 0

@ZARINA 0 / 0 / 0 Регистрация: 05.12.2009 Сообщений: 8
	05.12.2009, 03:17 [ТС]
	да, вектор тот же самый... а n-2 указывает на то, что "новый" вектор будет иметь на 2 элемента меньше , по ходу так 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	05.12.2009, 03:51
	ZARINA, хорошо я понял. В вектор тот же записывать или создать новый? 1

@ZARINA 0 / 0 / 0 Регистрация: 05.12.2009 Сообщений: 8
	05.12.2009, 03:54 [ТС]
	Создайте... 0

@ZARINA 0 / 0 / 0 Регистрация: 05.12.2009 Сообщений: 8
	05.12.2009, 04:10 [ТС]
	огромное спасибо!!!! 0