Нахождение минимума в строке матрицы с указанным номером

@Китя · Регистрация: 14.06.2010

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

Вот задача

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
{---------- Двумерные массивы ---------------}
program primer1;
 
uses crt;
type stroka=array[1..20] of real;
     matr=array[1..20] of stroka;
 
var m,n,i,j,k,l,r:integer;
    s,s1,s2,ext:real; x,y:stroka;
    a:matr;
{---------- Вспомогательные функции---------------}
 
{----------- Сумма строки ------------------}
function summa(m:integer;x:stroka):real;
    var i:integer;   s:real;
begin
     s:=0;
    for i:=1 to m do
     s:=s+x[i];
     summa:=s;
end;
{-------------------Сумма модулей строки----------------------}
function summamod(m:integer;x:stroka):real;
    var i:integer;   s:real;
begin
    s:=0;
    for i:=1 to m do
        s:=s+abs(x[i]);
    summamod:=s
end;
{------------ Процедуры ------------------}
 
{------------- Ввод массива с клавиатуры* ------------------------}
procedure wwod(var a:matr);
    var i,j:integer;
begin
    clrscr;
    write('Введите к-во строк ');readln(n);
    write('Введите к-во столбцов ');readln(m);
    for i:=1 to n do
    begin
        for j:=1 to m do
    begin
        write(' A[',i,',',j,']=');
        read(a[i][j])
    end;
    writeln;
    end;
end;
 
{------------- Присваивание значенй элементам массива---------------}
procedure priswaiwanie;
begin
    n:=3;m:=4;
    a[1][1]:=3; a[1][2]:=0; a[1][3]:=-5;a[1][4]:=3;
    a[2][1]:=-4;a[2][2]:=-1;a[2][3]:=-2;a[2][4]:=-3;
    a[3][1]:=1; a[3][2]:=3; a[3][3]:=0; a[3][4]:=8;
end;
{------------- Вывод массива в виде матрицы ----------------------}
procedure wywod;
var i,j:integer;
begin
    for i:=1 to n do begin
    for j:=1 to m do write('  ',a[i][j]:6:2);
             writeln end
end;
{------------- Смена знаков элементов строки* ----------------}
procedure znak(m:integer;var x:stroka);
var i:integer;
begin
    for i:=1 to m do x[i]:=-x[i];
end;
{------------- Максимум в строке, стоящИй на k-том месте--------------}
{изменила}
procedure minimum(m:integer;x:stroka;var min:real);
var i,k:integer;
begin
    k:=1;min:=x[1];
    for i:=2 to m do
    if x[i]<min then begin
                    k:=i;min:=x[i]
                    end
end;
{------Максимум по модулю в строке, стоящИй на k-том месте--------------}
{изменила}
procedure minimummod(m:integer;x:stroka;{var k:integer;}var min:real);
var i,k:integer;
begin
    k:=1;min:=abs(x[1]);
    for i:=2 to m do
    if abs(x[i])<min then begin
                         k:=i;min:=abs(x[i])
                         end
end;
{изменила}
 
procedure OutStoki(m:integer;Nst:integer);{Вывлд строки матрицы}
    var i:integer;
begin
    for i:=1 to m do
        write((a[Nst][i]):1:2,' ');
writeln;
end;
 
procedure minimum(n,m:integer);{процедура поиска максимального среди минимальных}
var min:real;
    index:integer;
begin
for i:= 1 to n do
 begin
  min:=(a[i][1]);
  for j := 1 to m do
    if (a[i][j])<min then
     min:=(a[i][j]);
     end;
OutStoki(m,n);
end;
 
{--------------- Основная программа* -----------------}
begin
    clrscr;
    writeln(' массив:');
   {изменила}
   priswaiwanie;
    writeln;
    wywod;
{-------  Вывод массива на экран --------}
{изменила}
    wywod;
  writeln('Строка содержащая минимум:');
minimum(n,m);
readln;
end.

В ней нужно:Используя процедуры смены знака и нахождения максимума, составьте и опробуйте процедуру нахождения минимума в строке с указанным номером. Тут я уже попробывала, но не правильно.

@Puporev · 28.01.2014, 08:19

Сообщение от Китя

Используя процедуры смены знака и нахождения максимума, составьте и опробуйте процедуру нахождения минимума в строке с указанным номером

Что общего между первыми двумя процедурами и третьей? Напишите точное условие задачи. И зачем Вам этот код? Он же не Ваш.

@Китя · 28.01.2014, 10:44 **[ТС]**

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

Что общего между первыми двумя процедурами и третьей? Напишите точное условие задачи. И зачем Вам этот код? Он же не Ваш.

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
{---------- Title of the program --------------}
program primer1;
uses crt;
 
type stroka=array[1..20] of real;
     matr=array[1..20] of stroka;
 
var m1,n1,i,j,k,l,r:integer;
        s,s1,s2,ext:real;
                  y,z:stroka;
                 a1:matr;
 
{----------- Description of functions ------------------}
function P(x:real):boolean;
begin
    p:=x>0;
end;
{---------------------------------------------}
function summa(m:integer;x:stroka):real;
    var i:integer;  s:real;
begin
    s:=0;
    for i:=1 to m do
        s:=s+x[i];
    summa:=s
end;
{---------------------------------------------}
function summamod(m:integer;x:stroka):real;
    var i:integer;   s:real;
begin
    s:=0;
    for i:=1 to m do
        s:=s+abs(x[i]);
    summamod:=s
end;
{---------------------------------------------}
function quantity(m:integer;x:stroka):integer;
    var i,k:integer;
begin
    k:=0;
    for i:=1 to m do
        if p(x[i]) then k:=k+1;
    quantity:=k
end;
 
{------------- Description of procedures -------------}
procedure input_matr(var n,m:integer; var a:matr);
    var i,j:integer;
begin
    clrscr;
    write('input quantity of rows ');readln(n);
    write('input quantity of columns ');readln(m);
    for i:=1 to n do    begin
        for j:=1 to m do    begin
        write(' A[',i,',',j,']=');
        read(a[i][j])   end;
    writeln;        end;
end;
 
procedure priswaiwanie_matr(var n,m:integer; var a:matr);
begin
    n:=3;m:=4;
    a[1][1]:=3;a[1][2]:=0;a[1][3]:=-5;a[1][4]:=3;
    a[2][1]:=-4;a[2][2]:=-1;a[2][3]:=-2;a[2][4]:=-3;
    a[3][1]:=1;a[3][2]:=3;a[3][3]:=0;a[3][4]:=8;
end;
 
procedure output_matr(n,m:integer; a:matr);
var i,j:integer;
begin
    for i:=1 to n do begin
    for j:=1 to m do write('  ',a[i][j]:6:2);
             writeln end
end;
 
procedure znak(m:integer;var x:stroka);
var i:integer;
begin
    for i:=1 to m do x[i]:=-x[i];
end;
 
procedure maximum(m:integer;x:stroka;var k:integer;var ma:real);
var i:integer;
begin
    k:=1;ma:=x[1];
    for i:=2 to m do
    if x[i]>ma then begin
                    k:=i;ma:=x[i]
                    end
end;
 
procedure maximummod(m:integer;x:stroka;var k:integer;var ma:real);
var i:integer;
begin
    k:=1;ma:=abs(x[1]);
    for i:=2 to m do
    if abs(x[i])>ma then begin
                         k:=i;ma:=abs(x[i])
                         end
end;
 
procedure poisk(m:integer; x:stroka; var flag:boolean);
var i:integer;
begin
    flag:=false; i:=1;
    while not flag and (i<=m) do begin
    if p(x[i]) then flag:=true;
    i:=i+1  end
end;
 
{--------------- Main program -----------------}
begin
    clrscr;    input_matr(n1,m1,a1);    writeln;
 
{-------  may be not used --------}
  clrscr; writeln('Array'); output_matr(n1,m1,a1);
 
    for i:=1 to n1 do
    begin
        s:=summa(m1,a1[i]);
    writeln('    Sum of ',i,' line =  ',s:5:1)
    end;
end.

Загрузите программу lab11.pas, проверьте ее исполнение, замените вызов процедуры ввода на вызов присваивания и снова исполните программу.
Задание 2 Используя процедуры смены знака и нахождения максимума, составьте и опробуйте процедуру нахождения минимума в строке с указанным номером.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/