Результати виконання роботи

Завдання №1

Програма мові Pascal

Завдання №2

Програма мові Pascal

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

1. Поняття циклу

2. Види циклів. Оператор циклу за параметром

3. Оператор циклу з передумовою

4. Оператор циклу з постумовою

5. Ітераційний цикл

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

7. Чи можливо увійти в тіло циклу з параметром мінуя його заголовок?

8. Яким чином можна зробити так, щоб у тілі циклу виконувалося декілька операторів?

Висновок

Виконано: _______________________

Захищено з оцінкою : ____________________ Дата ___________

Лабораторна робота № 4

ТЕМА: Складання, налагодження та введення в ПЕОМ програми з використанням масивів на мові програмування Pascal

МЕТА: Придбати практичні навички по складанню та налагодженню програм з обробки масивів на мові програмування Pascal.

МЕТОДІЧНІ ВКАЗИВКИ:

Перед виконанням лабораторної роботи необхідно вивчити правила запису і оголошення одновимірних та двовимірних масивів на мові програмування Pascal, принципи організації введення-виведення даних у масиви, стандартні алгоритми обробки масивів.

ОБЛАДНАННЯ ТА ПРОГРАМНЕ ЗАБЕЗПЕЧЕННЯ:

IBM сумісні комп’ютери класу Intel Pentium, система програмування Borland Pascal 7.0

ЛІТЕРАТУРА:

1. А.Н. Вальвачов, в.С. Крисевич «Программирование на языке Паскаль для персональных эвм»,Минск, вш. – 1989

2. Н.Д. Васюкова, в.В.Тюляева «Практикум по основам программирования на языке Паскаль»,Москва, вш.-1991

3. Ковалюк т.В. Основи програмування. – к.: Видавнича група bhv, 2005. – 384 с.

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

Завдання № 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