тематичних дисциплін Протокол від 2012 р3

Работа добавлена на сайт samzan.net:

Львівський коледж

Державного університету інформаційно-комунікаційних технологій

Розглянуто та схвалено на засіданні циклової комісії природничо-математичних дисциплін Протокол №    від                  2012 р. Голова циклової комісії_____ Конончук О.М.

Затверджую Заступник директора з навчальної – виробничої роботи _____________ Плешівський Я.М. “_____” ____________ 2012 р

Інструкція

до лабораторної роботи з інформатики

на тему:

«Створення та реалізація програм обробки одновимірних масивів»

Викладачі  Конончук П. П.,

Конончук О.М.

Львів 2012

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

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

Теоретичні відомості

Приклад1 програми обробки одновимірних масивів на мові Pascal.

Умова задачі: Дано одновимірний масив з десяти дійсних чисел. Скласти програму знаходження суми та кількості від’ємних елементів даного масиву, зробити повідомлення, якщо таких немає.

Розв’язання

program  zadacha_1;

var  а: array[1..10] of real;

k, n: integer; s: real;

begin

n:=0; s:=0;

for k:=1 to 10 do begin

 writeln(‘a(‘ ,k,’)=’);

 readln(a[k]);

if a[k]<0 then begin

n:=n+1; s:= s + a[k];

end;

end;

if n=0 then writeln (’від’ємних елементів немає’) else writeln ('s= ',s,'n= ',n);

end.

Приклад2 програми знаходження максимального елемента одновимірного масиву цілих чисел на мові Pascal.

Розв’язання

program zadacha_2;

const N = 5;

var  a: array [1..N] of integer;

        i, iMax: integer;

begin

 writeln(‘Вихідний масив:');

 for i:=1 to N do begin

   a[i] := random(100) + 50;  {випадкові числа в інтервалі [50,150) }

   write(a[i]:4);

 end;

 iMax := 1;   { вважаємо, що перший – максимальний }

 for i:=2 to N do      { перевіряємо всі решта }

{По номеру елемента iMax завжди можна знайти його значення a[iMax]. Тому всюди замінюємо max на a[iMax] і забираємо змінну max. }

   if a[i] > a[iMax] then  { новий максимальний }

     iMax := i;       { запам’ятати i }

 writeln;    {перейти на новий рядок}

 writeln ('Максимальний елемент a[', iMax, ']=', a[iMax]);

end.

Приклад3 програми обробки одновимірних масивів на мові Pascal.

Умова задачі: Дано одновимірний масив дійсних чисел X та дійсне число а. Скласти програму обробки масиву. Обчислити добуток елементів, які мають непарні індекси.

Розв’язання

program zadacha_3;

const n=15;

var X:array[1..n] of real;

     i:integer;

     d:real;

begin

for i:=1 to n do begin

write('Введіть X[ ', i, ' ] ');

readln(X[i])

end;

d:=1;

for i:=1 to round(n/2) do

d:=d*X[2*i-1];

writeln ('Добуток шуканих елементів = ',d);

readln  {Процедура затримки зображення на екрані до  натискання будь-якої клавіші}

end.

Х і д  р о б о т и :

1.  Ознайомтесь з теоретичним матеріалом.
2.  Ознайомтесь в середовище програмування.
3.  Введіть та відлагодьте програму розв’язування задачі за індивідуальними завданнями.
4.  У звітах складіть блок-схему алгоритму, запишіть програму і проаналізуйте результати її виконання, дайте відповіді на контрольні запитання.
5.  Закрийте вікна. Закінчіть роботу. Здайте звіти.

Контрольні запитання

1.  Що таке одновимірний масив?
2.  Які є типи масивів?
3.  Чи може масив складатися з даних різних типів?
4.  Який формат опису одновимірного масиву?
5.  Як позначаються елементи масиву?
6.  Яка узагальнена формула визначення кількості елементів лінійного масиву?
7.  Скільки елементів містить масив  var а: array[15..32] of real; ?
8.  Як можна вводити масиви?
9.  Які оператори використовують при заповнені масиву?
10.  Чим відрізняються процедури вводу Read та Readln?
11.  Як можна виводити масиви?
12.  Чим відрізняються процедури виводу write та writeln?
13.  Які операції можна виконувати з елементами масиву?

Індивідуальні завдання: 

Дано одномірний масив дійсних чисел Х та дійсне число а. Скласти блок-схему алгоритму та програму на мові Pascal обробки масиву. Умови завдання представлено в таблиці:

№	Зміст завдання
1	Знайти індекси елементів масиву, які більші за число 1 і менші 5
2	Знайти суму елементів, які більші за число -2 і небільші 4
3	Підрахувати суму та кількість елементів, що не перевищують число а
4	Знайти найбільший елемент та його індекс
5	Знайти найменший елемент та його індекс
6	Підрахувати добуток та кількість елементів, більших за а
7	Обчислити суму елементів, які мають парні індекси
8	Обчислити суму елементів, які мають непарні індекси
9	Обчислити суму та кількість елементів, які мають непарні індекси
10	Обчислити добуток елементів, які не дорівнюють нулю
11	Обчислити добуток елементів, які дорівнюють нулю і стоять на парних місцях
12	Знайти суми перших чотирьох та останніх чотирьох елементів таблиці і порівняти їх
13	Підрахувати кількість від’ємних елементів в масиві та визначити їх індекси
14	Підрахувати кількість додатних елементів в масиві та визначити їх індекси
15	Знайти суму модулів елементів масиву, які менші числа 3а
16	Знайти середнє арифметичне додатних елементів масиву
17	Знайти середнє арифметичне від’ємних елементів масиву
18	Знайти максимальний та мінімальний елементи масиву і поміняти їх місцями
19	Обчислити  суму елементів, які перевищують значення числа
20	Підрахувати кількість та вивести індекси нульових елементів
21	Знайти від’ємні елементи масиву та замінити на одиницю
22	Знайти суму додатних та суму модулів від’ємних елементів масиву і порівняти їх
23	Обчислити добуток елементів, що стоять на парних місцях і відмінні від нуля
24	Визначити суму елементи в масиві, які більші від квадрату числа а
25	Обчислити добуток елементів, які мають парні індекси і менші від числа а

1. под их действия ограничение диспензивной власти короля разрешать какиелибо изъятия из законов
2. Альберт Эллис. Психотренинг по методу Альберта Эллиса
3. на тему Макроэкономическое регулирование денежного обращения финансовых рынков
4. ЛамбертаБера Закон справедлив для монохроматического света
5. ЛД062013 Содержание 1 Общие положения
6. n] of rel; tStrMssiv rry[1
7.  різдвяна класика Загальний настрій- тепла домашня атмосфера
8. Анатомические основы воли
9.  Электролитическая диссоциация воды
10. Всемирная иллюстрация
11. Экономический рост Российской Федераци
12. Утверд
13. Документний потік з питань сільського господарства
14.  Роль и причины государственного вмешательства в экономику
15. Тема- Поточний ремонт вимикачі АБ2-3 та АБ2-4
16. Англо-саксонская правовая система
17. реферат дисертації на здобуття наукового ступеня кандидата технічних наук Київ 2000
18. Морфология колонии у гидроида obeli loveni
19. Плотности материалов
20. . Купувати тварина спонтанно Коли миттєво хочете купити тварину можете отримати зовсім не того улюбленця

Материалы собраны группой SamZan и находятся в свободном доступе