ЗМІСТ, ПОСЛІДОВНІСТЬ, МЕТОДИКА ВИКОНАННЯ РОБОТИ

Завдання № 1: Селективна обробка інформації та знаходження екстремальних значень. Скласти схему алгоритму і програму по ньому для завдання з таблиці 5. Варіанти індивідуальних завдань вказаних в таб.5, співпадають з Вашим номером у журналі.

Завдання № 2: Формування робочого одномірного масиву. Скласти схему алгоритму і програму по ньому для завдання з таблиці 5. Варіанти індивідуальних завдань вказаних в таб.5, співпадають з Вашим номером у журналі

Завдання № 3: Знаходження екстремальних значень в двовимірному масиві. Скласти схему алгоритму і програму по ньому для завдання з таблиці 6. Варіанти індивідуальних завдань вказаних в таб.6, співпадають з Вашим номером у журналі

Завдання № 4:Обробка заданого рядка(стовпця), діагоналі матриці Скласти схему алгоритму і програму по ньому для завдання з таблиці 6. Варіанти індивідуальних завдань вказаних в таб.6, співпадають з Вашим номером у журналі

Завдання №5 Селективна обробка рядка(стовпця) матриці за деякою умовою. Скласти схему алгоритму і програму по ньому для завдання з таблиці 6. Варі анти індивідуальних завдань вказаних в таб.6, співпадають з Вашим номером у журналі

ХІД РОБОТИ:

1. Скласти схему алгоритму и програму для завдання згідно вашого варіанту

2. Увійдіть у систему програмування Borland Pascal – для цього необхідно два рази щелкнути мишою на позначки програми, яка знаходиться на Робочому столі Windows.

3. В системі Турбо Pascal вийти в меню за допомогою миши, вибрати пункт File, війти в нього и обрати одну з команд: New – якщо необхідно вводити нову програму, Open –якщо бажаєте визвати раніше створену програму ( для цього необхідно або ввести ім’я файлу, або вийти у список файлів (клавіша [Tab]) и з допомогою клавіш управління курсором вибрати необхідний файл и нажати клавішу [Enter].

4. В вікні системи набрати програму або внести необхідні зміни у програму.

4. Запустити програму на виконання: для цього в меню системи вибрати пункт Run

9. В зошит переписати результат роботи програми ( рядки, що були виведені на екран)

10. Якщо необхідно (за вказівкою викладача) записати свою програму на диск у вигляді файлу – для цього необхідно вийти в меню системи, вибрати пункт File и виконати команду Save з указівкою імені свого файлу.

11. Покинути систему Borland Pascal – для цього необхідно увійти у меню системи, вибрати пункт File и виконати команду Exit.

ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ:

Приклад №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[k]);

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

.

СКЛАД ЗВІТУ:

1. Тема, мета роботи.

2. Текст завдань для виконання .

3. Порядок виконання роботи.

4. Хід виконання роботи – схема алгоритму, текст програми, результат роботи програми

5. Висновки

КОНТРОЛЬНІ ПИТАННЯ:

1. Дайте визначення масиву?

2. Яким чином заповнюються масиви?

3. Якими типами даних можуть бути елементами масиву

4. Яким чином в програмі задається одновимірний масив?

5. Яким чином в програмі задається двовимірний масив?

6. Яким чином здійснюється доступ до кожного з елементів масиву?

7. Базові алгоритми обробки одномірних масивів

8. Базові алгоритми обробки двовимірних масивів

Таблиця 5 Варіанти індивідуальних завдань «Одновимірні масиви»

Таблиця 6 Варіанти індивідуальних завдань «Двовимірні масиви»