Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 03.06.2012
Сообщений: 4
1

Работа с массивами. Поиск элементов с заданными свойствами

03.06.2012, 13:55. Показов 576. Ответов 2
Метки нет (Все метки)

Задан массив из пяти строк и шести столбцов
1)Сформировать массив из первых попавшихся положительных элементов
каждой строки и их индексов в исходной матрице,если положительных элементов в строке нет ,то результат равен нулю.
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
program lr5; 
cоnst m=5; n=6; 
type tb=array[1..m,1..n] of real; 
var a,an:string[80]; 
b:tb; 
i,j:integer; 
imax,jmax,imin,jmin:integer; 
min,max:real; 
fi:text; 
Вывод значений массива вещественных данных 
procedure p(b:tb;m,n:integer); 
begin 
for i:=1 to m do 
begin 
write (chr(186)); 
for j:=1 to n do 
case j of 
1,2,3,4,5:write (b[i,j]:11:4,chr(179)); 
3:write(b[i,j]:11,chr(179):2); 
6:writeln(b[i,j]:12,chr(186)); 
end; 
if i=m then writeln (an) else 
writeln(a); 
end 
end; 
Ввод исходных данных 
procedure vvod (var b:tb); 
begin 
assign (fi,'d:\lr5.dat'); 
reset(fi); 
for i:=1 to 4 do begin 
readln(fi,a); 
writeln(a); 
end; 
readln(fi,a); 
readln(fi,an); 
close(fi); 
reset(fi); 
for i:=1 to m do 
for j:=1 to n do 
read(fi,b[i,j]); 
p(b,m,n); 
close (fi); 
end; 
обработка-поиск минимального и максимального значений 
procedure obr (var b:tb,m,n:integer; var mn,mx:real;va i1,i2,j1,j2:integer); 
var i,j:integer; 
r:real; 
begin 
mn:=b[1,1]; 
mx:=b[1,1]; 
i1:=1; 
i2:=1; 
j1:=1 
j2:=1; 
for i:=1 to m do 
for j:=1 to n do 
if b[i,j]<mn>mx then begin 
mx:=b[i,j]; 
i2:=i; 
j2:=j; 
end; 
writeln('i1=',i1,'j1=',j1,'i2=',i2,'j2=',j2); 
b[i1,j1]:=mx; 
b[i2,j2]:=mn; 
end;
основная программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin 
assign(output,''); 
rewrite(output); 
{lr5.res} 
vvod(b); 
obr(b,m,n,min,max,imin,imax,jmin,jmax); 
writeln(#10#13,'результаты',#10#13); 
p(b,m,n); 
writeln 
(#10#13,'min=',min:12,'imin=',imin,'jmin=',jmin, 
#10#13,'max=',max:12,'imax=',imax,'jmax=',jmax); 
close(output); 
readkey; 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2012, 13:55
Ответы с готовыми решениями:

Работа с массивами: поиск элементов с заданными свойствами
СРОЧНО!!! Дан цело численный массив .Найти: КАЖДУЮ ОТДЕЛЬНО!!!! Написать полностью в месте с...

Массив. Поиск элементов с заданными свойствами
В массиве хранятся элементы, соответствующие росту учеников класса. Найти: -средний рост учеников...

Матрица: поиск элементов с заданными свойствами
Задана матрица А(n,m). Для выполнения действий над элементами матрицы в соответствии с данными,...

Массив: поиск элементов с заданными свойствами
Здравствуйте, нужна ваша помощь в пяти различных заданиях по турбо паскалю, буду премного...

2
0 / 0 / 0
Регистрация: 03.06.2012
Сообщений: 4
10.06.2012, 09:24  [ТС] 2
Скажите может у кого есть идеи как сделать первый пункт?
0
0 / 0 / 0
Регистрация: 03.06.2012
Сообщений: 4
11.06.2012, 14:25  [ТС] 3
Может кто нибудь подскажет как можно сделать первый пункт задачи чтобы он просто выводил положительные числа массива а отрицателные заменял нулями?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2012, 14:25

Массив. Поиск элементов с заданными свойствами, замена
Помогите пожалуйста Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с...

Одномерный массив: поиск элементов с заданными свойствами
помогите решить задание 4.Одномерные массивы. и задание 5.двумерные массивы. пожалуйста очень...

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

Одномерные массивы. Поиск элементов с заданными свойствами
Прошу, помогите. Исходный массив должен быть выведен на экран. Все преобразования производить с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru