Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Львівський коледж
Державного університету інформаційно-комунікаційних технологій
|
Розглянуто та схвалено на засіданні циклової комісії природничо-математичних дисциплін Протокол № від 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.
Х і д р о б о т и :
Контрольні запитання
Індивідуальні завдання:
Дано одномірний масив дійсних чисел Х та дійсне число а. Скласти блок-схему алгоритму та програму на мові 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 |
Обчислити добуток елементів, які мають парні індекси і менші від числа а |