 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Приклади програм з одновимірними масивами
Приклад 1. Скласти схему алгоритму та проект програми в Delphi для обчислення елементів вектора за формулою
та виведення на форму проекту:
· елементів вектора в компонент Memo;
· суми елементів;
· кількості від’ємних елементів;
· мінімального елемента та його номера за порядком:
· елементів нового вектора (r) в компонент ListBox, який є результатом обміну місцями значень першого та мінімального елементів у векторі (v).
Схеми алгоритмів підпрограм наведено на рисунках 5.1-5.5.
 |
 | |||
 | |||
Форма проекту із результатами роботи має вигляд:
 |
Текст програми:
unit Unit1;
……………………………………..
implementation
{$R *.DFM}
Const n=12;
Type vect=array[1..n] of real;
var v,r:vect;i:integer;
// процедура обчислення елементів вектора
Procedure elem_v;
begin
for i:=1 to n do
v[i]:=cos(4*i)+exp(-2*i);
end;
// процедура обчислення суми елементів вектора
Procedure summa (var s:real );
begin
s:=0;
for i:=1 to n do
s:=s+v[i];
end;
// процедура обчислення кількості від’ємних елементів вектора
Procedure kol_otr(var k:integer);
begin
k:=0;
for i:=1 to n do
if v[i]<0 then k:=k+1;
end;
// процедура обчислення мінімального елемента та його номера
Procedure min_el(var min:real;var nom_min:integer);
begin
min:=v[1]; nom_min:=1;
for i:=2 to n do
if v[i]<min then
begin min:=v[i]; nom_min:=i; end;
end;
// процедура відгуку на натиснення кнопки “Вихід”
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
// процедура відгуку на кнопку “Пуск”
procedure TForm1.Button1Click(Sender: TObject);
var si,sv,sr,ssum,smin:string;
sum, min,pr:real; kol,nom:integer;
begin
elem_v; // обчислення елементів вектора
// виведення масиву в Memo
for i:=1 to n do
begin str(v[i]:7:3,sv);
str(i:3,si);
Мemo1.Lines.Add(si+sv);
end;
// обчислення суми та виведення результатів в Edit
summa(sum);
str(sum:7:3,sv);
Edit1.Text:=sv;
// обчислення кількості від’ємних елементів з виведенням результатів
kol_otr(kol);
Edit2.Text:= IntToStr(kol);
// пошук мінімального елемента
min_el(min, nom );
// виведення результатів в Edit
str(min:7:3,smin);
Edit3.Text:=IntToStr(nom)+'-й елемент '+smin;
// формування масиву результатів із обміном елементів
r:=v;
pr:=r[1]; r[1]:=r[nom];r[nom]:=pr;
// виведення масиву в ListBox
for i:=1 to n do
begin str(r[i]:7:3,sr);
str(i:3,si);
ListBox1.Items.Add(si+sr);
end;
end;
end.
Приклад 2 Скласти схему алгоритму та проект програми в Delphi для введення 15-ти (або менше) цілих чисел з компонента Мемо та вивести їх за зростанням у вікно повідомлень (ShowMessage).
Схеми алгоритмів підпрограм наведено на рисунках 5.6-5.7.
 | |||||||||
 | |||||||||
 | |||||||||
 | |||||||||
| |||||||||
Форма проекту із результатами роботи програми має вигляд:
 |
Текст програми:
unit Unit1;
interface
…………………………………………..
implementation
{$R *.DFM}
Type vect=array[1..15]of integer;
// процедура сортування вектора за зростанням
procedure sort(var x:vect; n:integer);
var i,j,z:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i]>x[j] then
begin z:=x[i]; x[i]:=x[j]; x[j]:=z; end;
end;
// процедура відгуку на кнопку “Новий масив”
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear; edit1.Clear;
end;
// процедура відгуку на натиснення кнопки “Пуск”
procedure TForm1.Button1Click(Sender: TObject);
var a:vect;
i, k:integer;
sa,sr:string;
begin
// визначення та виведення кількості введених чисел
k:=Memo1.Lines.Count; edit1.text:=intToStr(k);
// введення елементів вектора
for i:=1 to k do
begin
sa:= Memo1.Lines[i-1];
a[i]:=StrToInt(sa);
end;
sort(a,k); // сортування вектора
// виведення елементів вектора
sr:='';
for i:=1 to k do
begin sa:=IntToStr(a[i]);
sr:=sr+sa+#13; end;
ShowMessage(sr);
end;
end.
4 Контрольні запитання
1 Що є масив у програмуванні? Чи є обмеження на розмір масиву?
2 Що є індекси масиву? Які величини можуть бути індексами? Як по-значаються індекси масиву?
3 Які з наведених нижче описувань одновимірних масивів є хибні й чому?
а) Type A: array [ 1..10 ] of integer;
Var B: A;
б) Var B: array [ 1..10 ];
в) Var B=array [ 1..10 ] of integer;
4 Запишіть опис одновимірного масиву, який складається з послідовності 25 дійсних чисел.
5 Запишіть опис одновимірного констант-масиву, який складається з послідовності символів вашого прізвища.
6 Які компоненти форми проекту в Delphi для виведення значень одновимірних масивів Ви знаєте?
7 Які компоненти форми проекту в Delphi для введення значень одновимірних масивів Ви знаєте?
8 Запишіть оператори введення масиву 15 цілих чисел за допомогою компонентів Memo та ListBox.
9 Запишіть оператори виведення масиву 17 дійсних чисел у п’ять різних компонентів.
10 Запишіть оператори визначення середнього значення для масиву з 12 дійсних чисел.
5 Лабораторне завдання
1.Скласти схеми алгоритмів, розробити проект форми та програми на алгоритмічною мовою Object Pascal для виконання індивідуального завдання відповідно до варіантів у середовищі Delphi. В проекті передбачити введення елементів масиву з клавіатури через компонент Memo й виведення цих масивів та здобутих результатів на форму в компоненти Edit, Memo, ListBox або Label (за вказівкою викладача).
2. Оформити протокол для виконання лабораторної роботи.
3.При виконанні програми на комп’ютері значення елементів масиву (послідовность чисел) обрати самостійно. Занести результати обчислень до протоколу.
6 Варіанти індивідуальних завдань
1 В масиві з 10 цілих чисел знайти найбільший елемент і поміняти його місцями з останнім елементом.
2 Упорядкувати за зростанням масив, що містить 12 дійсних чисел.
3 Масив цілих чисел складається з 11 елементів. Здобути новий масив різниць елементів вихідного масиву та їхньго середнього арифметичного.
4 Визначити кількість елементів масиву з 8 дійсних чисел, які перевищують за значенням останній елемент масиву.
5 Масив дійсних чисел складається з 9 елементів. Обчислити суму остачі від цільночисельного ділення елементів масиву на два.
6 Масив цілих чисел містить 10 елементів. Із вихідного масиву здобути новий, розташувавши спочатку всі додатні числа й нулi, після цього від’ємні, зберігаючи порядок їхнього слідування.
7 В масиві з 9 дійсних чисел визначити різницю між добутком усіх додатніх елементів і сумою модулів усіх від’ємних.
8 В масиві з 10 дійсних чисел знайти найменший елемент і поміняти його місцями з першим елементом.
9 Визначити індекси мінімального й максимального елементів масиву, що містить 11 цілих чисел.
10 Масив містить 8 дійсних чисел (додатніх і від’ємних). Розташувати елементи масиву в порядку зростання значень їхніх модулів.
11 В масиві з 11 цілих чисел знайти найбільший і найменший елементи і поміняти їх місцями.
12 Масив містить 10 цілих чисел. Замінити парні за значенням (а не за індексом) числа на нулі.
13 В масиві з 8 дійсних чисел обчислити суму елементів, абсолютна величина яких не перевищує 1.5.
14 Розташувати елементи масиву з 8 цілих чисел у зворотному порядку.
15 Масив містить 8 дійсних чисел. Поміняти місцями першу половину масиву з другою.
16 Масив містить 10 цілих чисел. Поміняти місцями елементи, які стоять в масиві поряд (1 і 2, 3 і 4 тощо).
17 В масиві з 8 дійсних чисел обчислити частку від ділення суми елементів з непарними індексами на суму елементів з парними індексами.
18 В масиві з 10 цілих чисел обчислити половину суми мінімального й максимального елементів масиву.
19 Масив містить 7 дійсних чисел. Обчислити суму квадратів тих чисел, абсолютна величина яких перевищує значення 2.5.
20 Масив містить 11 цілих чисел. Обчислити суму тих елементів масиву, значення яких належать до проміжку [ 3, 6 ].
21 Замінити всі непарні елементи масиву з 10 цілих чисел одиницями (непарні за значенням, а не за індексом).
22 В масиві з 8 дійсних чисел поміняти місцями максимальний елемент масиву із третім елементом.
23 Масив містить 12 цілих чисел. Обчислити різницю між сумою елементів, індекси яких є кратні 3, і сумою елементів, індекси яких є кратні 4.
24 Масив містить 14 дійсних чисел. Обчислити добуток додатніх елементів, які не перевищують число 4.
25 В масиві з 10 цілих чисел розташувати елементи так: спочатку всі від’ємні й нулi, потім додатні, зберігаючи порядок їх слідування.
26 Масив містить 11 цілих чисел. Обчислити суму елементів масиву, значення яких можна поділити на два без остачі.
27 Масив містить 8 дійсних чисел. Визначити кількість тих елементів масиву, значення яких є менше за середнє арифметичне елементів масиву.
28 Упорядкувати за спаданням масив з 12 цілих чисел.
29 В масиві з 10 дійсних чисел визначити середнє арифметичне додатніх елементів.
30 В масиві з 11 цілих чисел поміняти місцями мінімальний елемент з передостаннім елементом масиву.
Поиск по сайту: