Лабораторна робота №9
Мп Turbo Pascal. Одновимірні масиви. Впорядкування одновимірних масивів.
Навчитися розв’язувати задачі на упорядкуання одновимірних масивів в середовищі Turbo Pascal.
Завдання для лабораторної роботи
Скласти блок-схему алгоритму розв’язання задачі, зобразити її засобами Microsoft Word, написати програму мовою Pascal, відлагодити її та проаналізувати отримані результати
Постановка задачї
Згенерувати масиви цілих чисел A[1:m] (m=5) і B[1:n] (n=7) на діапазоні від -20 до 20. Об’єднати масиви A і B в один масив C[1:k] (k=m+n). Масив С упорядкувати за зростанням.
Текст програми
program z9_1;
uses wincrt;
const m=5; n=7; k=12;
var a:array[1..m] of integer;
b:array[1..n] of integer;
c:array[1..k] of integer;
i,j,s:byte; buf,d1,d2:integer;
min,imin:integer;
begin
randomize;
writeln(‘Введіть заданий числовий діапазон:’);
readln(d1,d2);
for i:=1 to m do
begin
a[i]:=round((d2-d1+1)*random+d1);
write('a[',i,']=',a[i],' ')
end;
writeln;
for i:=1 to n do
begin
b[i]:=round((d2-d1+1)*random+d1);
write('b[',i,']=',b[i],' ')
end;
writeln;
writeln('***************************************************');
j:=1;
for i:=1 to k do
begin
if j<=m
then
c[j]:=a[i]
else
c[j]:=b[j-m];
j:=j+1;
end;
for i:=1 to k do
write(c[i],' ');
for s:=1 to k-1 do
begin min:=c[s];
imin:=s;
for i:=s+1 to k do
if c[i]<min
then begin
min:=c[i];
imin:=i
end;
c[imin]:=c[s];
c[s]:=min
end;
writeln;
writeln('Масив С упорядковано за зростанням);
for i:=1 to k do
writeln ('c[',i,']=',c[i]);
e
nd.
С
№9
№9
№1
Задано
масив Х{xi} (
).
Поділити вихідний масив X на два масиви
Y та Z . Масив Y складається з елементів
масива X з непарними номерами, масив Z –
з елементів масива X з парними номерами.
В масиві Y знайти мінімальне значення
, в масиві Z – максимальне.
№2
Задано
масиви Х{xi} та Y{yi} (
).
З початкових масивів X та Y сформувати
новий масив Z, елементами якого будуть
спочатку елементи масиву X , а потім
масиву Y. Знайти середнє арифметичне
додатніх елементів масиву Z.
№3
Задано масив Х{xi} ( ). Розділити масив X на два масиви Y і Z. Масив Y складається з елементів масиву X, не більших заданого числа А , Z - з елементів більших заданого числа А. Обчислити f=m+k , де m - мінімальне значення серед елементів масиву Y , k- максимальне значення серед елементів масиву Z.
№4
Задано
масив Х{xi} (
).
Знайти та надрукувати номери елементів
масива Х , більших заданого числа А.
Сформувати новий масив У, в який не
будуть входити min i max елементи масиву
Х.
№5
Задано масив Х{xi} ( ). Знайти середнє арифметичне та середнє геометричне елементів масиву х. Сформувати новий масив Y, елементами якого будуть елементи масиву X, не більші середнього арифметичного.
№6
Задано
масив Х{xi} (
).
Знайти мінімальний елемент масиву Х та
його номер. Обчислити середнє арифметичне
від’ємних елементів масиву X.
№7
Задано
масив Х{xi} (
).
Знайти максимальний по модулю елемент
масиву Х . Обчислити середнє геометричне
додатніх елементів масиву X.
№8
Задано масив Х{xi} ( ). З масиву Х сформувати новий масив Y , зменшивши елементи масиву X на його мінімальний елемент.
№9
Задано масив Х{xi} ( ). Знайти мінімальний та максимальний елементи масива Х та їх номери.
№10
Задано
масив Х{xi} (
).
Cформувати новий масив Y із масиву X ,
розташувавши його елементи в порядку
спадання .
№11
Задано
масив Х{xi} (
).
Підрахувати кількість елементів масива
Х, менших заданого числа А та обчислити
їх середнє арифметичне.
№12
Задано масив Y{yi} ( ). Обчислити середнє геометричне елементів масива Y, більших заданого числа А.
№13
Задано масив Y{yi} ( ). Обчислити середнє арифметичне елементів масива Y, менших заданого числа А.
№14
Задано масив Z{zi} ( ). Обчислити кількість елементів масива Z зі значеннями в інтервалі [A1, A2] і обчислити їх середнє арифметичне.
№15
Задано масив Z{zi} ( ). Обчислити кількість елементів масива Z зі значеннями в інтервалі [A1, A2] і обчислити їх середнє геометричне.
№16
Задано масив Х{xi} ( ). Обчислити кількість елементів масива Х зі значеннями в інтервалі [A1, A2] і сформувати із них новий масив Y.
№17
Задано масив Х{xi} ( ). Із елементів масива Х сформувати масив Y , елементи якого не належать інтервалу [A1, A2].
№18
Задано масив Х{xi} ( ). Із елементів масива Х сформувати масив Y , елементи якого належать інтервалу [A1, A2]. Обчислити суму цих елементів.
№19
Задано масив Х{xi} ( ). Із елементів масива Х сформувати масив Y, елементи якого належать інтервалу [A1, A2]. Обчислити добуток цих елементів.
№20
Задано масив Х{xi} ( ). Із масиву Х сформувати масив Y, в якому не повторюються однакові елементи (стискання масиву).
№21
Задано
масив Z{zi} (
).
Підрахувати в масиві Z число однакових
елементів.
№22
Задано масив Z{zi} ( ). Із масива Z сфoрмувати масив Y, переставивши всі нульові елементи в кінець масиву.
№23
Задано масив Y{yi} ( ). Із масива Y сформувати масив Z, переставивши в кінець масиву елементи менші заданого числа А.
№24
Задано масив Х{xi} ( ). Із масива Х сформувати масив Y, переставивши на початок масиву елементи більші заданого числа А.
№25
Задано масив Х{xi} ( ), який складається із нулів та одиниць. Сформувати масив Y, в якому спочатку розташовані одиниці , а потім нулі.
№26
Задано масив Z{zi} ( ). Визначити номери елементів масиву Z рівних нулю. Сформувати масив Y , вилучивши нульові елементи.
№27
Задано масив Х{xi} ( ). Із масиву Х сформувати масив Y , поставивши нульові елементи на початок масиву. Обчислити середнє арифметичне елементів масиву Х.
№28
Задано вектор Z{zi} ( ). Знайти довжину вектора Y , елементи якого складаються із елементів вектора Z, що належать заданому інтервалу [A1, A2].
№29
Задано
масиви Х{xi} та Y{yi} (
).
Із початкових масивів Х та Y сформувати
новий масив Z , елементами якого будуть
спочатку елементи масива Х, а потім
елементи масиву Y.
№30
Задано масив Х{xi} ( ). Розділити початковий масив Х на два масиви Y та Z. Масив Y складається з елементів масиву Х, не більших заданого числа А, масив Z – з елементів більших числа А.
Питання для самоконтролю
Яким чином при формуванні масиву можна згенерувати дійсні числа на діапазоні від 0 до 1?
Яким чином при формуванні масиву можна згенерувати цілі числа на діапазоні від 0 до Т?
Яким чином при формуванні масиву можна згенерувати числа 0?
Яким чином при формуванні одновимірного масиву із випадкових дійсних чисел, взятих на діапазоні від d1 до d2 можна виконати заокруглення значення дійсного типу до значення цілого типу?