Практична робота №6

Тема : Програмування задач з використанням масивів.

Мета: Оволодіти навиками роботи з масивами, особливостями їх вводу та виводу на ЕОМ. Набути навиків програмування задач з вкладеними циклами.

Завдання для самостійної підготовки :

1. Вивчити способи описання масивів на мові програмування.

2. Вивчити способи вводу та виводу масивів.

3. Визначити алгоритми опрацювання одновимірного та двовимірного масивів.

Приклади алгоритмів опрацювання одновимірних масивів

Введення елементів масиву з клавіатури і друк його на екран.

const n=10; {тут задаємо кількість елементів масиву}

type massiv=array[1..n] of integer; {вводимо тип даних–масив}

var

a:massiv; {вводимо змінну-масив}

i:integer; {ця змінна потрібна як параметр циклу}

begin

{вводимо елементи масиву}

write {‘введіть елементи масиву:’};

for i:=1 to n do

begin

write(‘Введіть, і,’-й елемент масиву:’);

read (a[i]);

end;

{Форматний вивід елементів масиву на екран}

for i:=1 to n do

write(a[i]:4);

writeln

end.

Змінюючи значення констант n, цей алгоритм можна використати для вводу довільного масиву.

2.Заповнення елементів масиву випадковими цілими числами і друк його елементів на екрані.

Program pr2;

const n=50; {тут задаємо кількість елементів масиву}

type massiv=array[1..n] of integer; {вводимо тип даних-масиву}

var

a:massiv; {вводимо змінну-масив}

i:integer; {ця змінна потрібна як парметр циклу}

begin {заповнюємо масив}

randomize; {ініціалізуємо датчик випадкових чисел}

for i:=1 to n do a[i]:=random(100);{заповнюємо масив випадковими числами}

for i:=1 to n do {Форматний вивід на екран}

write(a[i]:4); writeln end.

Пошук найбільшого елементу масиву

Program pr3;

const n=50; {тут задаємо кількість елементів масиву}

type massiv=array[1..n] of integer; {вводимо тип даних-масиву}

var

a:massiv; {вводимо змінну-масив}

i:integer; {ця змінна потрібна як парметр циклу}

max:integer; {результат}

begin {заповнюємо масив}

randomize; {ініціалізуємо датчик випадкових чисел}

for i:=1 to n do a[i]:=random(100);{заповнюємо масив випадковими числами}

max:=a[1]; {вважаємо, що найбільшим є перше число}

for i:=2 to n do {проглядаємо інші елементи масиву}

if a[i]>max then max:=a[i]; {якщо є менші, запам’ятовуємо їх}

writeln(‘max=’, max:4) {друкуємо результат}

end.

Обчислення суми елементів масиву

Program pr4;

const n=50; {тут задаємо кількість елементів масиву}

type massiv=array[1..n] of integer; {вводимо тип даних-масиву}

var

a:massiv; {вводимо змінну-масив}

i:integer; {ця змінна потрібна як парметр циклу}

s:integer; {результат}

begin {заповнюємо масив}

randomize; {ініціалізуємо датчик випаквових чисел}

for i:=1 to n do a[i]:=random(100);{заповнюємо масив випадковими числами}

S:=0; {початкове значення суми-нуль}

for i:=1 to n do {проглядаємо елементи масиву}

s:=s+a[i]; {сумуємо їх}

writeln(‘s=’, s:4) {друкуємо результат}

end.

5: Сформувати одновимірний масив А та знайти кількість додатніх та від’ємних елементів.

Program abc;

var a:array[1..50] of real;

k,i,m,n:integer;

Begin

Writeln (‘Введіть кількість елементів k’);

Readln (k);

n:=0; m:=0;

for i:=1 to k do

begin

Writeln (‘Введіть ’ ,i, ‘ елемент масиву ’);

Readln (a[i]);

if a[i]>0 then n:=n+1;

if a[i]<0 then m:=m+1;

End;

Writeln (‘ Кількість додатніх значень a[i]’,n);

Writeln (‘ Кількість від’ємних значень a[i]’,m);

Readln;

End.

Вказівки для виконання завдання:

1. Введення елементів масиву здійснити окремим циклом, викоритсвуючи для цього оператор циклу з параметром.

Передбачити виведення на екран елементів вихідного масиву.

Передбачити виведення на екран середнього арифметичного елементів масиву.

При виконанні пункту 3) завдання користуватись оператором циклу з постумовою repeat-until.

Передбачити виведення результатів роботи програми на екран із відповідними коментарями.

Завдання для індивідуального відпрацювання.

Заданий одновимірний цілочисельний масив n з елементів (n<=.20, вводиться користувачем з клавіатури). Виконати опрацювання масиву у відповідності з заданим варіантом завдання.

Варіанти завдання:

Варіант1

Знайти:

кількість додатніх елементів масиву;

1. номер елемента, який найменше віддалений від середнього арифметичного всіх елементів масиву;

2. суму елементів масиву із парним номером;

Варіант 2

Знайти:

суму від’ємних елементів масиву;

1. елемент, який найменше віддалений від середнього арифметичного всіх елементів масиву;

2. кількість непарних елементів масиву;

Варіант 3

Знайти:

добуток від’ємних елементів масиву;

кількість елементів, менших від середнього арифметичного всіх елементів масиву;

номер найбільшого із елементів масиву із непарним номером;

Варіант 4

Знайти:

кількість від’ємних елементів масиву;

1. суму елементів, більших від середнього арифметичного всіх елементів масиву;

2. номер найменшого із елементів з непарним номером;

Варіант 5

Знайти:

суму додатніх елементів масиву;

елемент, найбільш віддалений від середнього арифметичного всіх елементів масиву;

найбільший із елементів з непарним номером;

Варіант 6

Знайти:

добуток додатніх елементів масиву;

1. елемент, найбільш віддаленого від середнього арифметичного всіх елементів масиву;

2. найменший з елементів із парним номером;

Варіант 7

Знайти:

кількість додатніх елементів масиву;

добуток елементів, менших від середнього арифметичного всіх елементів масиву;

номер найбільшого із елементів з непарним номером;

Варіант 8

Знайти:

1. суму додатніх елементів масиву;

2. кількість елементів, більших від середнього арифметичного всіх елементів масиву;

3. кількість парних елементів масиву;

Варіант 9

Знайти:

суму елементів масиву з непарним номером;

елемент, який найменше віддалений від середнього арифметичного всіх елементів масиву;

кількість парних елементів масиву;

Варіант 10

Знайти:

1. добуток від’ємних елементів масиву з непарним номером;

номери елементів, менших від середнього арифметичного всіх елементів масиву;

найбільший елемент масиву з непарним номером;

Варіант 11

Знайти:

суму від’ємних елементів масиву;

1. кількість елементів, менших від середнього арифметичного всіх елементів масиву;

2. номер найменшого із елементів з парним номером;

Варіант 12

Знайти:

добуток додатніх елементів масиву;

кількість елементів, більших від середнього арифметичного всіх елементів масиву;

найбільший із елементів з парним номером;

Варіант 13

Знайти:

1. суму елементів масиву з парним номером;

номери елемента, більших від середнього арифметичного всіх елементів масиву;

найменший з непарних елементів масиву;

Варіант 14

Знайти:

добуток від’ємних елементів масиву;

1. кількість елементів з парним номером, менших віддалений від середнього арифметичного всіх елементів масиву;

2. номер найбільшого із елементів масиву;

Варіант 15

Знайти:

суму парних елементів масиву;

добуток елементів, більших за модулем від середнього арифметичного всіх елементів масиву;

кількість додатніх з елементів з непарним номером;

Виконання роботи

1. Ввести програму 1в ЕОМ налагодити її.

2. Ввести програму 2 в ЕОМ налагодити її.

3. Підготувати тестові значення для перевірки програм.

4. Виконати програму.

5. Записати результати виконання програм.

Для звіту представити

Завдання відповідно до свого варіанту.

1. Тексти програми.

2. Вихідні дані.

3. Результати програм.

4. Висновки по результатам роботи.

Двовимірні масиви

ПРИКЛАДИ ПРОГРАМ ДЛЯ ЗАДАЧІ 2:

Сформувати двовимірний масив V та обнулити елементи ,що лежать нижче головної діагоналі.

Program abc;

Var v: array[1..25,1..25] of real;

i,j,n,m: integer;

Begin

Writeln(‘Введіть кількість рядків’);

Readln(m);

Writeln(‘Введіть кількість стовпців’);

Readln(n);

For i:=1 to m do

For j:=1 to n do

Begin

Write (‘Введіть (‘,i,j,’) елемент масиву’);

Readln(v[i,j]);

If i>j then v[i,j]:=0;

end;

For i:=1 to m do

Begin

For j:=1 to n do

Write (v[i,j]:5:2);

Writeln;

End;

readln;

End.

ВАРІАНТИ ЗАДАЧ

ТАБЛИЦЯ 6.

№	Ім’я мас.	Розмір Ряд.,стовп.	Зміст завдання	Тип даних
1	Х	2,6	Обчислити суму і кількість додатніх елементів масиву.	цілі
2	А	5,4	Обчислити середнє арифметичне значення елементів масиву.	дійсні
3	Y	3,4	Записати у масив Х від’ємні елементи масивуY	цілі
4	B	5,4	Знайти максимальний елемент масиву В та порядкові номери рядка ,стовпця.	цілі
5	C	2,3	Знайти мінімальний елемент масиву В та його порядкові номери рядка ,стовпця .	дійсні
6	D	5,2	Записати в масив Т спочатку додатні, потім від’ємні елементи масиву D.	цілі
7	Х	3,3	Обчислити суму і кількість додатніх елементів масиву ,що лежать на головній діагоналі.	цілі
8	А	4,4	Обчислити середнє арифметичне значення елементів масиву вище головної діагоналі.	дійсні
9	Y	2,4	Записати у масив Х парні елементи масивуY	цілі
10	B	3,3	Знайти максимальний елемент третього рядка масиву В та порядковий номер стовпця.	цілі
11	C	5,3	Знайти мінімальний елементдругого стовпця масиву C та порядковий номер його рядка.	дійсні
12	Y	5,4	Знайти кількість елементів масиву Y б більших 8.	цілі
13	R	4,4	Знайти добуток елементів матриці ,які знаходяться нижче головної діагоналі.	дійсні
14	D	4,2	Знайти суму квадратів діагональних елементів матриці.	цілі
15	А	4,4	Обчислити середнє арифметичне значення елементів масиву нище головної діагоналі.	дійсні

Практична робота № 7

Тема: Програмування задач з використанням підпрограм .

Мета:1.Набути навиків алгоритмізації та програмування задач з

використанням підпрограм різних типів.

2.Набути навиків написання підпрограм і звернення до

них, вибору і задання параметрів підпрограм.