Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7
1

В заданной матрице поменять местами последнюю строку со строкой , содержащий минимальный элемент матрицы

19.12.2010, 21:15. Просмотров 2184. Ответов 5
Метки нет (Все метки)


1.Дан вещественный массив а1,а2,...аn. Если в этом массиве есть хотя бы один элемент, принадлежащий отрезку [x,y], то все элементы, не принадлежащие этому отрезку, заменить значением К.

2.В заданной матрице поменять местами последнюю строку со строкой , содержащий минимальный элемент матрицы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2010, 21:15
Ответы с готовыми решениями:

В матрице поменять местами строку, содержащую минималный элемент, со строкой содержащий максимальный элемент.
Помогите пожалуста:):):) вот задание В произвольной матрице A поменять местами строку, содержащую...

Строку, содержащую макс элемент массива поменять со строкой содержащий мин элемент
В заданной матрице A(n,n), состоящей из различных вещественных чисел, строку содержащую...

В матрице поменять местами строку, содержащую максимум, со строкой, содержащей минимум
В данной действительной матрице размера 6х9 поменять местами строку, содержащую элемент с...

Поменять в матрице местами строку с максимальным элементом на главной диагонали со строкой с заданным номером.
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

5
76 / 76 / 51
Регистрация: 28.02.2010
Сообщений: 159
19.12.2010, 23:11 2
1:
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
uses crt;
const m=10;
type massiv=array[1..m] of real;
var a:massiv;
i,n,k,b:integer;
x,y:real;
Begin
b:=0;
write('N>>>');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
 
for i:=1 to n do write(a[i],'  ');
writeln;
write('x=');readln(x);
write('y=');readln(y);
for i:=1 to n do
if (a[i]>=x) and (a[i]<=y) then inc(b);
 
if b=0 then writeln('Íåò ýëåìåíòîâ,ïðèíàäëåæàùèõ Ê')
else
Begin
write('K= ');readln(k);
 
for i:=1 to n do
if not((a[i]>=x) and (a[i]<=y)) then a[i]:=k;
 
for i:=1 to n do write(a[i],'  ');
end;
End.
Добавлено через 26 минут
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
program zzz;
 uses crt;
   const n=5;
         m=5;
 var
a:boolean;
ar:array[1..n,1..m] of integer;
i,k,min,imin,j,buf:integer;
begin
for i:=1 to n do begin
    for j:=1 to m do begin
        ar[i,j]:=random(30)+1;
        write(ar[i,j]:4);
    end;
writeln;
end;
min:=ar[1,1];
imin:=1;
 
for i:=1 to n do
for j:=1 to m do
if ar[i,j]<min then
begin
imin:=i;
min:=ar[i,j];
end;
 
 
if imin=n then writeln('Ïîñëåäíÿÿ ñòðîêà ñîäåðæèò ìèíèìàëüíûé ýëåìåíò')
else
begin
 
for j:=1 to m do
begin
     buf:=ar[imin,j];
     ar[imin,j]:=ar[n,j];
     ar[n,j]:=buf;
end;
 
writeln('Îáðàáîòàííÿ ìàòðèöà: ');
 
for i:=1 to n do begin
    for j:=1 to m do
 
        write(ar[i,j]:4);
 
writeln;
end;
end;
end.
1
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7
20.12.2010, 13:18  [ТС] 3
ееее огромное спасибо!=)
0
76 / 76 / 51
Регистрация: 28.02.2010
Сообщений: 159
20.12.2010, 20:25 4
кнопка есть
2
3 / 3 / 1
Регистрация: 28.09.2011
Сообщений: 28
02.04.2012, 00:54 5
А как записать эти две задачки в виде процедур?
0
3 / 3 / 1
Регистрация: 28.09.2011
Сообщений: 28
23.04.2012, 20:31 6
Проверьте процедуру
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
Program massive;
{Дан вещественный массив a1,a2,...,an. Если в этом массиве есть хотя бы один элемент, принадлежащий отрезку [х,у], то все элементы, не принадлежащие этому отрезку, заменить значением К.}
uses crt;
Const RAZ=10;
Type
  Tind=1..RAZ;
  Telem=integer;
  TMas=array[Tind] of Telem;
 
Procedure vvod (var n:Tind; var a:TMas);
Var
    i:Tind;
begin
    write('Введите размер массива:');
    readln(n);
    for i:=1 to n do
    begin
       write('a[',i,']=');
       readln;
    end;
end;
 
Procedure massiv (n:Tind; const  a:TMas; var b,k:Telem);
Var
    x,y:Telem;
    i:Tind;
begin
    b:=0;
    for i:=1 to n do write(a[i]:4,'  ');
    writeln;
    write('x='); readln(x);
    write('y='); readln(y);
    write('K= '); readln(k);
    for i:=1 to n do
    if (a[i]>=x) and (a[i]<=y) then inc(b);
end;
 
Procedure vivod (n:Tind; const  a:TMas; var b,k,x,y:Telem);
Var
    i:TInd;
Begin
    if b=0 then writeln('Нет элементов,принадлежащих К')
    else
    begin
        for i:=1 to n do
            if not ((a[i]>=x) and (a[i]<=y)) then a[i]:=k;
            for i:=1 to n do write(a[i]:4,'  ');
    end;
end;
 
Var
    m:Tind;
    b:TMas;
    p,k:Telem;
Begin
    clrscr;
    vvod(m,b);
    massiv(m,b,p,k);
    vivod(p,k);
    readln
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2012, 20:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Столбец содержащий минимальный элемент поменять местами с последним столбцом
Дан вещественный массив из 3 строк и 5 столбцов.Столбец содержащий минимальный элемент поменять...

Поменять местами минимальный и максимальный элемент в матрице
Ввести матрицу В(N,M). В каждом столбце матрицы поменять местами минимальный и максимальный...

В двухмерном массиве первую строку поменять местами с последней строкой, вторую строку с предпоследней строкой и так далее.
))=))))))))))))))

В матрице поменять местами первую строку и строку, в которой находится первый нулевой элемент.
Поменять местами первую строку и строку, в которой находится первый нулевой элемент. Принять, что...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.