Завдання № 1: Селективна обробка інформації та знаходження екстремальних значень. Скласти схему алгоритму і програму по ньому для завдання з таблиці 4.1
Завдання № 2: Формування робочого одномірного масиву. Скласти схему алгоритму і програму по ньому для завдання з таблиці4.1.
Завдання № 3: Знаходження екстремальних значень в двовимірному масиві. Скласти схему алгоритму і програму по ньому для завдання з таблиці 4.2.
Завдання № 4:Обробка заданого рядка(стовпця), діагоналі матриці Скласти схему алгоритму і програму по ньому для завдання з таблиці 4.2.
Завдання №5 Селективна обробка рядка(стовпця) матриці за деякою умовою. Скласти схему алгоритму і програму по ньому для завдання з таблиці 6
ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ:
Приклад №1Селективна обробка одновимірного масивуЗнайти кількість додатних елементів масиву Х(100)
Порядок роботи:
1) Вводимо масив Х(100)
2) Задаємо, початкову кількість додатних елементів к=0
3) Організуємо цикл, який перебирає елементи масива ( тоб то його індекс і) починаючи з 1-го та закінчуючи 100
4) Якщо елемент масиву х(і) >0 то збільшуємо к=к+1
5) Якщо цикл по і не закінчився, переходимо на початок циклу тобто на шаг 3. Якщо закінчився то рухаємося далі.
6) Друкуємо к
7) Кінець.
Програма на мові Pascal:
Program Primer1;
Var X:array[1..100] of real;
K,i:integer;
Begin
{Введення масиву}
For i:=1 to 100 do
Begin
Writeln(‘Введіть елемент масиву’);
Readln (X[i]);
End;
K:=0;
{перебір елементів масиву}
For i:=1 to 100 do
If x[i]>0 then k:=k+1;
Writeln(‘Кількість додатних елементів масиву’,k);
End.
Приклад № 2Знайти середнє арифметичне елементів масиву А (15), яки кратні 5 і належать інтервалу [5, 50]
Program primer2 ;
Uses CRT;
Const n=15; xn=5; xk=50;
Type Mas=array[1..n] of integer;
Var a: mas;
I,s,к: integer;
Sred: real;
B: boolean;
C: char;
Begin
Clrscr;
Writeln (‘Ввести ’n’чисел елементів массіву’);
For I:=1 to n do readln(A[i]);
Writeln (‘Маємо масив:’);
For I:=1 to n do write (A[i]);
Writeln;
s:=0; k:=0;
For I:=1 to n do begin
B:=(A[i]<=xk) and (A[i]>=xn);
If (A[i] mod 5 =0) and B then
Begin s:=s+_A[i];
к:=к+1;
End;
End;
If k>0 then sred:=s/к else sred:=0;
Writeln (‘s=’, s, ‘к=’, к, ‘Середнє арифметичнє=’, sred);
C:=readkey;
End.
Приклад № 3 Формування робочого масиву. Сформувати новий масив з негативних чисел вихідного масиву
Program Primer 3
Var Y,A:array [1..100] of integer;
I,k:integer;
Begin
{Вводимо масив А}
For i:=1 to 100 do
Begin
Writeln (‘Введіть значення елементу’);
Readln (A[i]);
End;
k:=0; {Початковий індекс кінцевого масиву}
{Цикл, який перебирає елементи початкового масиву}
For i:=1 to 100 do
Begin
If x[i]<=0 then
Begin
k:=k+1;
Y[k]:=A[i];
End;
End;
{Друкуємо кінцевий масив}
For i:=1 to k do writeln (Y[i]);
End.
Приклад №4 Обробка заданої діагоналі матриці. Знайти суму парних чисел головної діагоналі матриці А(5,5)
Program primer 4
Var a:array[1..5,1..5] of integer;
S,i,j:integer;
Begin
{Вводимо масив А}
For i:=1 to 5 do
For j:=1 to 5 do readln (A[I,j]);
S:=0; {Початкове значення суми рівно 0}
{Організація циклу для перебору елементів масиву}
For i:=1 to 5 do
For j:=1 to 5 do
Begin
If (a[I,j]mod2=0) and (i=j) then S:=S+A[I,j]; {Якщо a[I,j] парне (a[I,j]mod2=0) та лежить на головної діагоналі (i=j) то сумуємо цей елемент}
End;
End;
Writeln (‘S=’,S);
End.
Приклад № 5 (Селективна обробка рядка або стовпця матриці за деякою умовою)
В матриці А(4,5) знайти кількість парних елементів в рядку, у якого другий елемент додатний (якщо таких рядків декілька, то результат повинен бути роздрукований для кожного рядка окремо)
Program primer 4
Var a:array[1..4,1..5] of integer;
S,i,j:integer;
Begin
{Вводимо масив А}
For i:=1 to 4 do
For j:=1 to 5 do readln (A[I,j]);
{Організація циклу для перебору елементів масиву}
For i:=1 to 4 do
Begin
If A[I,2]>0 then {якщо другий елемент рядка додатний }
Begin
K:=0;
For j:=1 to 5 do
If A[I,j]mod2=0 then k:=k+1; {Якщо елемент рядка парний, то збільшуємо значення k }
End; {закінчення умови по перевірці другого елементу рядка }
Writeln (‘k=’,k);
End; {закінчення циклу по і}
End
