Получить вектор, каждый элемент которого определяется разностью сумм элементов нечетных смежных строк части матрицы размером y*y

@Mashete · Регистрация: 28.05.2012

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

Помогите пожалуйста) Нужно получить вектор, каждый элемент кото-рого определяется разностью сумм эле-ментов нечетных смежных строк части матрицы размером y*y
Это примерно так но есть ошибка не могу ее исправить( (Сильно не ругайте я девушка это мой первый опыт)

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
program Matriza;
uses crt;
const str=100; stl=100;
var Bim : array [1..str,1..stl] of integer;
    y, g, i, j : integer;
    q, e, r,u : integer;
    w, t, o : real;
begin
begin
write('Введите количество строк y=');
readln(y);
write('Введите количество столбцов  g=');
readln(g);
    for i:=1 to y do
      begin
      if y > 4 then
write('Введите через пробел ', g,' чисел') else
write('Введите через пробел', g,' числа');
for j:=1 to g do
         read(Bim[i,j]);
      end;
   for i:=1 to y do
   begin
       for j:=1 to g do
       write(Bim[i,j]:4);    
       writeln;
   end;
writeln('Координаты вектора:');
w:=0;
e:=y+3;
   r:=y+1;
   u:=1;
   while i>0 do
   begin
   w:=(Bim[i+r,j]-Bim[i+e,j]);
j:=j+u;
   e:=e+2;
   r:=r+2;
   u:=u+1;
   o:=w+y;
   writeln(o);
//writeln(y);
   end;
   end;
end.

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

Pascal
1
2
3
4
5
6
7
begin
if y > 4 then
write('Введите через пробел ', g,' чисел') else
write('Введите через пробел', g,' числа');
for j:=1 to g do
read(Bim[i,j]);
end;

Ошибка в этой части

@sheldon-yura · 28.05.2012, 16:29

возможно так:

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
program Matriza;
uses crt;
const str=100; stl=100;
var Bim : array [1..str,1..stl] of integer;
    y, g, i, j : integer;
    q, e, r,u : integer;
    w, t, o : real;
begin
begin
write('Ââåäèòå êîëè÷åñòâî ñòðîê y=');
readln(y);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ  g=');
readln(g);
    for i:=1 to y do
      begin
      if y > 4 then
write('Ââåäèòå ÷åðåç ïðîáåë ', g,' ÷èñåë') else
write('Ââåäèòå ÷åðåç ïðîáåë', g,' ÷èñëà');
for j:=1 to g do
         read(Bim[i,j]);
      end;
   for i:=1 to y do
   begin
       for j:=1 to g do
       write(Bim[i,j]:4);
       writeln;
   end;
writeln('Êîîðäèíàòû âåêòîðà:');
w:=0;
e:=y+3;
   r:=y+1;
   u:=1;
   while i>0 do
   begin
   dec(i);
   w:=(Bim[i+r,j]-Bim[i+e,j]);
   j:=j+u;
   e:=e+2;
   r:=r+2;
   u:=u+1;
   o:=w+y;
   writeln(o);
   //writeln(y);
   end;
   end;
end.

@Mashete · 28.05.2012, 17:57 **[ТС]**

Благодарю)_Дай Бог тебе здоровья Добрый молодец))

@sheldon-yura · 28.05.2012, 18:13

да без бэ. обращайся

@Mashete · 28.05.2012, 20:07 **[ТС]**

А это сможешь???
Требуется составить программу, состоящей из 2-х частей - основной программы и модуля пользователя, используя фрагменты программы лабораторной работы №2.
Создать программу новой структуры в среде Delphi в двух окнах ре-дактора - основной программы и модуля, и освоить компиляцию мо-дуля.
Отладить программу новой структуры, используя контрольные точки отладчика

Вот лаба 2

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
48
49
50
51
52
53
54
55
56
57
program Matriza;
uses crt;
const str=100; stl=100;
var Bim : array [1..str,1..stl] of integer;
y, g, i, j : integer;
q, e, r,u : integer;
w, t, o : real;
begin
begin
write('Введите количество строк y=');
readln(y);
write('Введите количество столбцов g=');
readln(g);
for i:=1 to y do
begin
if y > 4 then
write('Введите через пробел ', g,' чисел') else
write('Введите через пробел', g,' числа');
for j:=1 to g do
read(Bim[i,j]);
end;
for i:=1 to y do
begin
for j:=1 to g do
write(Bim[i,j]:4);
writeln;
end;
writeln('Координаты вектора:');
w:=0;
e:=y+3;
r:=y+1;
u:=1;
while i>0 do
begin
dec(i);
w:=(Bim[i+r,j]-Bim[i+e,j]);
j:=j+u;
e:=e+2;
r:=r+2;
u:=u+1;
o:=w+y;
writeln(o);
//writeln(y);
end;
end;
for i:=1 to y do
begin
for j:=1 to g do 
begin
if i = j then
begin
if Bim[i,j] < Bim[i+1,j+1] then naib := Bim[i+1,j+1]
end;
end;
end;
writeln(naib);
end.

Добавлено через 10 минут
А это сможешь???
Требуется составить программу, состоящей из 2-х частей - основной программы и модуля пользователя, используя фрагменты программы лабораторной работы №2.
Создать программу новой структуры в среде Delphi в двух окнах ре-дактора - основной программы и модуля, и освоить компиляцию мо-дуля.
Отладить программу новой структуры, используя контрольные точки отладчика

Вот лаба 2

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
48
49
50
51
52
53
54
55
56
57
program Matriza;
uses crt;
const str=100; stl=100;
var Bim : array [1..str,1..stl] of integer;
y, g, i, j : integer;
q, e, r,u : integer;
w, t, o : real;
begin
begin
write('Введите количество строк y=');
readln(y);
write('Введите количество столбцов g=');
readln(g);
for i:=1 to y do
begin
if y > 4 then
write('Введите через пробел ', g,' чисел') else
write('Введите через пробел', g,' числа');
for j:=1 to g do
read(Bim[i,j]);
end;
for i:=1 to y do
begin
for j:=1 to g do
write(Bim[i,j]:4);
writeln;
end;
writeln('Координаты вектора:');
w:=0;
e:=y+3;
r:=y+1;
u:=1;
while i>0 do
begin
dec(i);
w:=(Bim[i+r,j]-Bim[i+e,j]);
j:=j+u;
e:=e+2;
r:=r+2;
u:=u+1;
o:=w+y;
writeln(o);
//writeln(y);
end;
end;
for i:=1 to y do
begin
for j:=1 to g do 
begin
if i = j then
begin
if Bim[i,j] < Bim[i+1,j+1] then naib := Bim[i+1,j+1]
end;
end;
end;
writeln(naib);
end.

@sheldon-yura · 28.05.2012, 20:09

понятно. а что там в delphi надо делать?

Добавлено через 2 минуты
а что это за переменная ''naib''

@Mashete · 29.05.2012, 01:19 **[ТС]**

Не в курсах,но последний кусочек должен находить максимальную диогональ матрицы..Я совсем в Паскале не соображаю.. В основном в Си

Добавлено через 4 часа 54 минуты
naib- наибольший элемент

@КонецСвета · 29.05.2012, 01:59

sheldon-yura, Mashete, тему дельфи продолжаем в разделе дельфи, ок?
Составить программу используя фрагменты программы лабораторной работы №2

@Mashete · 29.05.2012, 10:34 **[ТС]**

Мне все равно где она будет просто подскажите как это сделать..(((

@sheldon-yura · 29.05.2012, 18:28

вот программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Matriza;
uses
    crt,modul;
const
     str=100;
     stl=100;
var
   Bim : array [1..str,1..stl] of integer;
   y, g, i, j : integer;
   q, e, r,u , naib: integer;
   w, t, o : real;
begin
 vich;
end.

вот модуль:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit modul;
interface
const
     str=100;
     stl=100;
var
   Bim : array [1..str,1..stl] of integer;
   y, g, i, j : integer;
   q, e, r,u , naib: integer;
   w, t, o : real;
procedure vich;
implementation
procedure vich;
begin
 write('Ââåäèòå êîëè÷åñòâî ñòðîê y=');
 readln(y);
 write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ g=');
 readln(g);
 for i:=1 to y do
 begin
  if y > 4 then
   write('Ââåäèòå ÷åðåç ïðîáåë ', g,' ÷èñåë - ') else
  write('Ââåäèòå ÷åðåç ïðîáåë ', g,' ÷èñëà - ');
  for j:=1 to g do
   read(Bim[i,j]);
 end;
 for i:=1 to y do
 begin
  for j:=1 to g do
   write(Bim[i,j]:4);
  writeln;
 end;
 writeln('Êîîðäèíàòû âåêòîðà:');
 w:=0;
 e:=y+3;
 r:=y+1;
 u:=1;
 while i>0 do
 begin
  dec(i);
  w:=(Bim[i+r,j]-Bim[i+e,j]);
  j:=j+u;
  e:=e+2;
  r:=r+2;
  u:=u+1;
  o:=w+y;
  writeln(o);
//writeln(y);
 end;
 for i:=1 to y do
 begin
  for j:=1 to g do
  begin
   if i = j then
   begin
    if Bim[i,j] < Bim[i+1,j+1] then
     naib := Bim[i+1,j+1]
   end;
  end;
 end;
 writeln(naib);
end;
end.

сохраняешь их в одну папку и модуль называешь modul.

@Mashete · 01.06.2012, 00:34 **[ТС]**

Вот мой вариант и ошибка как и в твоем модуль не нейден( в чем дело то?

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Program Matriza;
Uses Mod_var,crt;
begin
Bim[y,g]:=max(Bim);
mary2(Bim);
end.
 
        Unit Mod_Var;
 Interface
type massiv=array [-10..100,-10..100] of integer;
mas= array [1..100] of integer ;
var Bim: massiv;
ch: mas;
k ,l, i, j : integer;
sm, sm1 : real;
y,g,o,c,u,str,stl:integer;
 
procedure mary2(m: massiv );
function max(var m:massiv):integer;
 Implementation
 
procedure mary2(m: massiv );
var sr,h: real;
n:integer;
ch:mas;
begin
for y:=1 to str do
begin
for g:=1 to stl do
begin
if y=g then
begin
if n<Bim[y,g] then n:=Bim[y,g];
end;
if not (y=g-n) then
begin
if n<Bim[y,g] then n:=Bim[y,g];
end;
end;
end;
writeln(n);
end;
 
function max(var m:massiv):integer;
begin
write('Ââåäèòå êîë-âî ñòðîê y= ');
readln(str);
write('Ââåäèòå êîë – âî ñòîëáöîâ g= ');
readln(stl);
for y:=1 to str do
begin
for g:=1 to stl do
begin
write(' Ââåäèòå ýëåìåíòû ìàññèâà Bim[',y,'][',g,']:');
read(Bim[y,g]);
end;
end;
begin
writeln(' Âûâîä ìàòðèöû:');
for y :=1 to str do
begin
for g :=1 to stl do
write(Bim [y,g]:4);
writeln;
end;
end;
max:=Bim[y,g];
end;
end.

Новые блоги и статьи Все статьи Все блоги /
Первый деплой 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 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Mashete 0 / 0 / 0 Регистрация: 28.05.2012 Сообщений: 13
	28.05.2012, 17:57 [ТС]
	Благодарю)_Дай Бог тебе здоровья Добрый молодец)) 0

@sheldon-yura 31 / 31 / 16 Регистрация: 02.11.2011 Сообщений: 216
	28.05.2012, 18:13
	да без бэ. обращайся 1

@sheldon-yura 31 / 31 / 16 Регистрация: 02.11.2011 Сообщений: 216
	28.05.2012, 20:09
	понятно. а что там в delphi надо делать? Добавлено через 2 минуты а что это за переменная ''naib'' 0

@Mashete 0 / 0 / 0 Регистрация: 28.05.2012 Сообщений: 13
	29.05.2012, 01:19 [ТС]
	Не в курсах,но последний кусочек должен находить максимальную диогональ матрицы..Я совсем в Паскале не соображаю.. В основном в Си Добавлено через 4 часа 54 минуты naib- наибольший элемент 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	29.05.2012, 01:59
	sheldon-yura, Mashete, тему дельфи продолжаем в разделе дельфи, ок? Составить программу используя фрагменты программы лабораторной работы №2 0

@Mashete 0 / 0 / 0 Регистрация: 28.05.2012 Сообщений: 13
	29.05.2012, 10:34 [ТС]
	Мне все равно где она будет просто подскажите как это сделать..((( 0