Масиви Оголошення, опис та введення масивів Оголошення, опис та введення масивів Оголошення, опис та введення масивів Оголошення, опис та введення масивів Програма визначення найбільшого числа в лінійному масиві Програма визначення найбільшого числа в лінійному масиві Програма визначення найбільшого числа в лінійному масиві Програма визначення найбільшого числа в лінійному масиві Передача масивів у підпрограми Передача масивів у підпрограми Передача масивів у підпрограми Передача масивів у підпрограми Пошук: Пошук: В неупорядкованому масиві В неупорядкованому масиві В неупорядкованому масиві В неупорядкованому масиві В упорядкованому масиві В упорядкованому масиві В упорядкованому масиві В упорядкованому масиві Програма сортування числового лінійного масиву Програма сортування числового лінійного масиву Програма сортування числового лінійного масиву Програма сортування числового лінійного масиву Метод Шелла Метод Шелла Метод Шелла Метод Шелла Зміни в масиві під час сортування Зміни в масиві під час сортування Зміни в масиві під час сортування Зміни в масиві під час сортування < До змісту < До змісту< До змісту< До змісту
0..9 8,2,1,78,2,1, ,2,0,78,2,0,7 8,2,1,78,2,1,7 8,1,0,78,1,0,7 2,1,0,72,1,0,7
Процедура зчитування елементів масиву з клавіатури. Функція визначення найбільшого з двох чисел. procedure R_M(N:byte;var Mas:M); var i:byte; begin for i:=1 to N do Read(Mas[i]) end; function Max2(x,y:real):real; begin if x>=y then Max2:=x else Max2:=y end;
Червоним кольором виділено правильну передачу масиву в процедуру Read_Mas. Текст: procedure Read_Mas(varMas2:array[1..n]of real); неправильний ПЕРЕДАЧА МАСИВІВ У ПІДПРОГРАМИ program Max_n ; const n = 100; type Mas = array[1..n] of real; var Mas1 : M; begin... Read_Mas(n,Mas2);... end. Var Mas1: M; Procedure Read_Mas (var Mas2: Mas) var i: byte; Begin for i:=1 to n do Read(Mas2[i]); end; Процедура зчитування елементів масиву з клавіатури.
for i := 1 to n do begin WriteLn ('Mas[',i,']:'); Read ( Mas [i] ) end; for i := 1 to n do if Mas[i] = x then st := 'так'; Блок зчитування елементів масиву з клавіатури. Блок перевірки на рівність кожного з елементів масиву з шуканим числом x (Пошук числа у масиві)
M : array[1.. n] of = (3, 12, 18, 24, 29, 35, 39, 41, 49, 50); Масив, в якому здійснюватиметься пошук Основний блок пошуку while i2 - i1 > 0 do begin i3 := Trunc ( (i1+i2) / 2); if x = M[i3] then begin str := 'так'; i2 := i1 end else if x < M[i3] then i2 := i3 else if (x > M[i3]) and (i1 <> i3) then i1 := i3; else i1 := i2; if x = M[i2] then str := так end;
Сортування числового лінійного масиву program Sort; const n = 10; type Mas = array[1.. n ] of integer; var i, j, k : integer; Mas1 : Mas ; procedure Read_Mas(var Mas2 : Mas ); {...} end; function Num_Min (var i1 : integer):integer; {...} end; begin Read_Mas( Mas1 ); for i := 1 to n - 1 do begin k := Mas1 [ i ]; Mas1 [ i ] := Mas1 [ Num_Min ( i + 1 )]; Mas1 [ Num_Min ( i + 1) ] := k end; for i := 1 to n do WriteLn( Mas1 [ i ]); end. обмін тіло процедури вводу масиву тіло функції визначення номера найменшого елементахвоста