2. Зміст і послідовність виконання

1. Скласти програму та блок-схему до задачі(згідно свого варіанту). Задачу розв‘язати трьома способами, використовуючи різні цикли.

2. Завантажити turbo pascal

3. Перевірити правильність виконання програм на ПК.

4. Записати результат.

2. Методичні рекомендації з виконання та оформлення роботи

Звіт до роботи повинен містити варіант, умову завдання, блок-схему та три різних програми розв‘язування задачі (різними циклами), результати її виконання на ПК.

9 Рекомендована література:

1. Семотюк В.М. "Програмування в середовищі Турбо Паскаль" – Львів: БаК, 2000 - c.40-48

2. Глинський Я.Н., Анохин В.Е., Ряжская В.А. Учебное пособие. – СПб:ООО «ДиаСофтЮП»,2001.- c. 5-32.

3. Фараонов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. – М.: «Нолидж»,1997.- с. 39-42

Інструкційна картка до проведення лабораторного заняття № 5

2. Тема заняття: Робота з масивами на мові програмування Pascal.

3. Мета проведення заняття: формування вмінь і навичок розробки алгоритмів і програм на мові програмування turbo pascal, розв'язування задач з використанням одновимірних та двовимірних масивів.

Після виконання роботи студент повинен

знати:

структуру та порядок виконання програми; семантику основних операторів; принцип процедурно-структурного програмування; загальні поняття, види та основні задачі обробки масивів

вміти:

розв'язувати задачу відповідно до загальної схеми; виконувати постановку задачі в загальному вигляді і перевіряти допустимість вхідних даних; розробляти і виконувати програми типових задач по обробці масивів; правильно вибирати відповідні типи даних для представлення їх у програмі.

2. Матеріально-технічне оснащення робочого місця: ПК, середовище turbo pascal

3. Інструктаж з техніки безпеки: згідно з інструкцією з охорони праці № 1 під час роботи на персональних комп'ютерах у кабінеті інформатики

4. Короткі відомості з теоретичної частини роботи

Масив в мові Pascal є стандартним структурованим типом з ідентифікатором - Array.

Масив - це послідовно організована інформаційна структура, що складається з елементів одного і того ж типу. Тип елементів масиву може бути будь-яким (простим або структурованим).

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

Наприклад:

1 - спосіб

Type

Myarray_type1 = array[ 1..10] of byte;

Myarray_type2 = array[ 1..5, 1..5 ] of real;

Myarray_type3 = array[ 1..5 ] of array[ 1..5 ] of real;

Var

Myarray1 : Myarray_type1;

Myarray2 : Myarray_type2;

Myarray3 : Myarray_type3;

2 - спосіб

Var

Myarray : array[ 1..10] of byte;

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

Наприклад:

В рядок:

…

gotoxy( 23, 5 );

for i := 1 to 10 do

if i < 10

then

write(My [ i ],' ')

else

write(My [ i ] );

…

В стовпчик:

…

y:=5;

for i := 1 to 10 do

begin

gotoxy( 35, y );

write(' My [ ', i , ' ] = ', My [ i ] );

inc(y);

end;

…

У вигляді таблиці:

…

y := 3;

for i := 1 to 3 do

begin

for j := 1 to 3 do

begin

case j of

1 : x := 27;

2 : x := 34;

3 : x := 41;

end;

gotoxy( x, y );

write( MyArrayD [ i, j ] );

end;

inc( y, 2 );

end;

…

ПРИКЛАД: Потрібно знайти перший елемент, який має задане значення, і вивести номер цього елемента на екран

Program Poshuk;

const N = 10;

A: array [1..N] of byte=(3,8,7,1,8,1,4,5,8,13);

var

X, Numx, I, C: byte;

begin

Writeln ('Исходный массив:');

for I:=l to N do

Write (A [I]);

Writeln(‘Введите элемент для поиска‘)

Readln(X);

Numx:=0; C:=0;

for I:=l to N do

begin

if A[I]=X then

begin

Numx:=I;

Writeln('Номер искомого злемєнта', Numx);

C:=C+1;

end;

end;

If C=0 then

Writeln ('Данный элемент в массиве отсутствует');

end.