17.12.2010, 17:56 | #1 (permalink) |
Новичок
Регистрация: 17.12.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с задачками плиз
2)Дан массив B(10) упорядочить его методом выбора по возростанию. 3)Дан массив B(5,5,) найти минимальный элемент в каждой строке массива. Помогите плиз...Буду очень благодарен |
17.12.2010, 17:56 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Могу вам помочь отправив ссылки на похожие обсуждения Помогите пожалуйста с задачками Плиз, помогите с оценкой стоимости Помогите, плиз, с выборкой Проблема с SP2 =( Помогите плиз! Помогите плиз разогнать комп! |
02.01.2011, 18:35 | #2 (permalink) |
Member
Регистрация: 02.01.2011
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
вот держи Метод выбора по возрастанию
Код:
{сортировка выбором по возрастанию} uses crt; type mas=array [1..1000]of integer;{тип-массив целых чисел} procedure SortVyb(var m:mas;n:integer);{внешняя процедура-сортировка по возрастанию входной параметр-размер массивап N, входной и выходной-сам массив} procedure Min(i:integer;var nmin:integer);{внутренняя процедура-поиск индекса минимального компонента входной параметр-очередной индекс массива, выходной-индекс минимального на просматриваемом участке массива} var j:integer; begin nmin:=i; for j:=i+1 to n do if m[j]<m[nmin] then nmin:=j; end; var i,nmin,buf:integer;{локальные переменные процедуры сортировки} begin for i:=1 to n-1 do begin Min(i,nmin);{ищем мин} buf:=m[i];{делаем обмен} m[i]:=m[nmin]; m[nmin]:=buf; end; end; var a:mas; n,i:integer; Begin clrscr; randomize; write('n=');readln(n); writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(20)-9; write(a[i],' '); end; writeln; SortVyb(a,n); writeln('Упорядоченный массив: '); for i:=1 to n do write(a[i],' '); readln; end. |
02.01.2011, 18:48 | #3 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
N@tali не понимаю зачем писать так много
Код:
const n=10; var b:array [1..n] of integer; j,i,k,l:integer; begin randomize; for i:=1 to n do begin b[i]:=random(100); write (b[i],' '); end; writeln; for i:=1 to n-1 do begin l:=i; for j:=i+1 to n do if b[j]<b[l] then l:=j; k:=b[i]; b[i]:=b[l]; b[l]:=k; end; for i:=1 to n do write (b[i],' ' ); readln end. |
02.01.2011, 18:53 | #5 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
N@tali не понимаю зачем писать так много
Код:
const n=10; var b:array [1..n] of integer; j,i,k,l:integer; begin randomize; for i:=1 to n do begin b[i]:=random(100); write (b[i],' '); end; writeln; for i:=1 to n-1 do begin l:=i; for j:=i+1 to n do if b[j]<b[l] then l:=j; k:=b[i]; b[i]:=b[l]; b[l]:=k; end; for i:=1 to n do write (b[i],' ' ); readln end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
02.01.2011, 18:53 | #6 (permalink) |
Member
Регистрация: 02.01.2011
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
вот поиск минимального
Код:
Uses CRT; Var A:array[1..5, 1..5] of Real; Min,SumMin:Real; i,j:integer; Begin SumMin:=0; For i:=1 to 5 do Begin Min:=0; For j:=1 to 5 do If A[i,j]<Min then Min:=A[i,j]; SumMin:=SumMin+Min; End; End; |
02.01.2011, 18:54 | #7 (permalink) | |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Цитата:
Код:
var k,i:integer; a:array [1..10] of integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(100); write (a[i],' '); end; writeln ('enter k='); readln (k); a[k]:=5; for i:=1 to 10 do write (a[i],' '); readln end. |
|
02.01.2011, 19:38 | #8 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
N@tali мне кажется ваша программа находит сумму всех минимальных элементов матрицы. Я думаю правильнее будет сделать вот таким образом:
Код:
var a:array [1..5,1..5] of real; min:real; i,j:integer; begin randomize; for i:=1 to 5 do begin writeln; for j:=1 to 5 do begin a[i,j]:=random(100); writeln (a[i,j]); end; end; min:=1110; for i:=1 to 5 do begin for j:=1 to 5 do if a[i,j]<min then min:=a[i,j]; writeln ('min',i,'=',min); end; readln end. |
02.01.2011, 20:24 | #9 (permalink) |
Member
Регистрация: 02.01.2011
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Точно. че то я на автомате уже.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|