русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Хід роботи.


Дата додавання: 2014-11-27; переглядів: 866.


1.Завантажте систему візуального програмування Delphi.

2. Задайте заголовок, розмір та колір форми. Для цього у вікні Object Inspector уведіть значення наступних властивостей: Caption (Заголовок форми) – ‘Лабораторна робота’, колір та розмір форми задайте на свій вибір.

3.Збережіть створену програму у власній папці. Для цього виберіть команду Save All (Зберегти все) головного меню File. Задайте імена програмного модуля та проекту.

4. Вставте у форму текстові поля Label1-Label2 як показано на рис.1 і надайте їм відповідні властивості. Для цього клікніть мишею на піктограмі Label на закладці Standard з палітри компонентів, а потім — у тому місці на формі, де має знаходитись текстове поле. Активізуйте це поле і у вікні Object Inspector задайте властивість Caption: для Labell – “ Сума : ”, а для Label2 просто витерти і залишити порожнє (рис. 2).

5.Компонент StringGrid використовується для відображення інформації у вигляді таблиці. Таблица складаєтьсяз двох зон – фіксованої та робочої.

Фіксована зона призначена для виводу найменувань стрічок та стовпчиків робочої зони. Фіксована зона виділена іншим кольором і в неї заборонено вводити інформацію з клавіатури. Кількість стрічок та стовпчиків фіксованої зони встановлюється у властивостях FixedRows та FixedCols, відповідно.

Рабоча зона складається з RowCount стрічок та ColCount стовпчиків інформації, яку можна міняти як програмно, так і за допомогою “миші” або клавіатури. Нумерація у таблиці починається з нуля.

Пиктограма компонента StringGrid знаходиться на сторінці Additional палітри компонентів. Розмістіть компонент відповідно рис.1. Так як у нашому завданні для усіх компонентів StringGrid фіксована зона не використовується, то у інспекторі об‘єктів значення властивостей FixedCols та FixedRows встановіть рівним 0. У завданні використовується одномірний масив, тому встановіть значення кількості стрічок 1: RowCount=1, а стовпчиків замість n - відповідну кількість згідно свого варінту: ColCount=n (наприклад, першого варіанту = 15)

По замовчуванні у компонент StringGrid заборонено ввід інформації з клавіатури, тому необхідно у інспекторі об‘єктів двічи клікнути “мишею” на символі + біля властивості Options і у списку, що відкриється, встановити значення goEditing à True.

6.Вставте у форму кнопку, як показано на рис.1, і надайте їй назву — «Обчислити».

 

Рис.1 Рис.2

7.Збережіть роботу на диску.

8.Далі потрібно розглянути приклад рішення завдання: визначити в одномірному масиві x(3) суму парних елементів. Цей приклад НЕ ПЕРЕПИСУВАТИ, а лише РОЗГЛЯНУТИ!! І на його основі написати СВОЮ програму, згідно ВАШОГО варіанту (варіанти індивідуальних завдань приведені в кінці лабораторної роботи). У фігурних дужках {} записані коментарі:

 

ПРИКЛАД:

Запрограмуймо кнопку «Обчислити»:

procedure TForm1.Button1Click(Sender: TObject);

const n=3; {встановлюємо константу n}

var x:array[1..n] of real; {оголошуємо масив від 1 до n}

s:real;

i:integer;

Begin

s:=0; {онулюємо зміну s}

for i:=1 to n do

Begin

x[i]:=StrToFloat(StringGrid1.Cells[i-1,0]); {присвоюємо зміній x значення першого елементу масиву}

if not odd(i) then s:=s+x[i]; {якщо іне непарне, тоді додати до s значення елементу x[i]}

end;

label2.Caption:=FloatToStr(s); {вивесли у Label2 значення s, тобто результат}

end;

 

9.Після того, як ви складете програму ЗГІДНО ВАШОГО варінту, запустіть програму на виконання. У компонент StringGrid введіть довільним чином елементи масиву. Після введення натисніть кнопку „Обчислити” та переконайтесь, що додаток функціонує правильно.

 

Рис.3   На Рис.3 приведено виконання програми для прикладу, що був розглянутий у попередньому пункті. Так як у цьому прикладі у масиві лише 3 елемента, то парних елементів залишається всього один. Тому і сума парних елементів дорівнює другому елементу масиву.  

10. Збережіть програму.

11. Створіть exe-файл. Виконайте команду головного меню Project à Build All (Сконструювати Все).

12. Продемонструйте створену форму викладачу.

 

 

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

Масив Завдання
x[15] Знайти суму елементів масиву
y[10] Знайти добуток елементів масиву
z[12] Знайти значення найбільшого елементу масиву
x[11] Знайти значення найменшого елементу масиву
z[12] Знайти кількість додатніх елементів масиву
a[11] Знайти добуток відміних від нуля елементів
b[14] Знайти суму додатніх елементів
c[16] Знайти суму елементів масиву з непарними номерами
d[13] Знайти кількість від‘ємних елементів мсиву
x[10] Знайти середнє арифметичне елементів масиву
z[12] Знайти добуток елементів з парними номерами
g[15] Знайти кількість нульових елементів масиву
h[8] Знайти суму від‘ємних елементів масиву
w[11] Знайти порядковий номер максимального елемента
x[14] Знайти понядковий номер мінімального елемента

Вимоги до оформлення звіту :

Звіт повинен містити:

1. Тему та мету лабораторної роботи.

2. Завдання на лабораторну роботу.

3.Текст програми.

4. Відповідь на контрольні запитання.

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

1.Що таке масив? .

2.Для чого використовується компонентStringGrid?.

ЛАБОРАТОРНА РОБОТА №9.

Тема: Програмування алгоритмів з двовимірними масивами .

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

 


<== попередня лекція | наступна лекція ==>
Хід роботи. | Хід роботи.


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн