Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 13
1

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

28.05.2012, 15:21. Показов 835. Ответов 10
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Помогите пожалуйста) Нужно получить вектор, каждый элемент кото-рого определяется разностью сумм эле-ментов нечетных смежных строк части матрицы размером 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;
Ошибка в этой части
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.05.2012, 15:21
Ответы с готовыми решениями:

Вычислить вектор сумм нечетных элементов четных строк матрицы целых чисел размером 6 × 6
#include <iostream> #include <iomanip> using namespace std; int main() { int a, i, j; int...

Сформировать вектор B=(b1,b2,…bm), каждый элемент которого определяется как минимальный элемент соответствующего столбца исходной матрицы A(n,m)
Сформировать вектор B=(b1,b2,…bm), каждый элемент которого определяется как минимальный элемент...

Сформировать вектор, каждый элемент которого равен среднему арифметическому значений элементов строк матрицы
Сформировать вектор D=(d1, d2, d3,...,dk), каждый элемент которого равен среднему арифметическому...

Массив: Сформировать вектор D, каждый элемент которого равен среднему арифметическому значений элементов строк матрицы
Необходимо выполнить заданную обработку числового двумерного массива, имеющего произвольное...

10
31 / 31 / 16
Регистрация: 02.11.2011
Сообщений: 216
28.05.2012, 16:29 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

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.
1
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 13
28.05.2012, 17:57  [ТС] 3
Благодарю)_Дай Бог тебе здоровья Добрый молодец))
0
31 / 31 / 16
Регистрация: 02.11.2011
Сообщений: 216
28.05.2012, 18:13 4
да без бэ. обращайся
1
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 13
28.05.2012, 20:07  [ТС] 5
А это сможешь???
Требуется составить программу, состоящей из 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.
0
31 / 31 / 16
Регистрация: 02.11.2011
Сообщений: 216
28.05.2012, 20:09 6
понятно. а что там в delphi надо делать?

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

Добавлено через 4 часа 54 минуты
naib- наибольший элемент
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.05.2012, 01:59 8
sheldon-yura, Mashete, тему дельфи продолжаем в разделе дельфи, ок?
Составить программу используя фрагменты программы лабораторной работы №2
0
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 13
29.05.2012, 10:34  [ТС] 9
Мне все равно где она будет просто подскажите как это сделать..(((
0
31 / 31 / 16
Регистрация: 02.11.2011
Сообщений: 216
29.05.2012, 18:28 10
вот программа:
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.
1
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 13
01.06.2012, 00:34  [ТС] 11
Вот мой вариант и ошибка как и в твоем модуль не нейден( в чем дело то?

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.
0
01.06.2012, 00:34
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 01.06.2012, 00:34
Помогаю со студенческими работами здесь

Получить в результате умножения исходной матрицы А(6,7) на вектор-столбец В(7) вектор С(6), каждый элемент которого вычисляется по формуле
Помогите сделать еще одну прогу!!! - Дана действительная матрица А(6,7) и вектор-столбец В(7)....

Получить одномерный массив, каждый элемент которого есть сумма элементов строк исходной матрицы
Дана матрица U(4,5). Получить одномерный массив, каждый элемент которого есть сумма элементов строк...

Получить вектор сумм элементов нечетных столбцов матрицы
1.В матрице вещественных чисел из 5ти строк и 4х столбцов определить кол-во положительных,...

Получить вектор, каждый элемент которого равен среднеарифметическому строки матрицы
Дана матрица А получить вектор В каждый элемент которого равен среднеарифметическому строки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru