16. Ведення і виведення значень елементів масиву

Завдання.

Створити проект, у якому вводяться значення елементів табличної величини з 8 цілих чисел, що знаходяться в багаторядковому текстовому полі, кожне із цих чисел збільшується на свій порядковий номер і результати виводяться в інше багаторядкове текстове поле.

Хід роботи.

1. Відкрийте вікно середовища Lazarus.

2. Розмістіть на формі два багаторядкових текстових поля висотою 200 пікселів і кнопку з текстом Змінити.

3. Збережіть проект у папці з іменем Вправа 6.1, створеній у вашій папці.

4. Створіть обробник події Click для кнопки та введіть у нього такий текст:

var a: array [0..7] of integer; і: integer;

begin

for і := 0 to 7 do a[i] := StrTolnt(Memo1.Lines[i]);

for і := 0 to 7 do a[i] := a[і] + і;

Memo2. Clear;

for і := 0 to 7 do Memo2.Lines.Append(IntToStr(a[i]));

end;

5. Збережіть оновлену версію проекту.

6. Запустіть проект на виконання.

7. Очистіть перше багаторядкове текстове поле та введіть у нього числа: -6; 12; -13; 0; 4; 138; 34; 55.

8. Виберіть кнопку Змінити.

9. Проаналізуйте значення, виведені у друге багаторядкове текстове поле.

10. Змініть кілька чисел у першому багаторядковому текстовому полі.

11. Виберіть кнопку Змінити.

12. Проаналізуйте значення, виведені у друге багаторядкове текстове поле.

13. Закрийте вікно виконання проекту.

14. Закрийте вікно середовища Lazarus.

Графічне відображення виконуваного файлу

Lazarus. ОПЕРАТОРИ ПОВТОРЕННЯ Оператор циклу

for … do

Оператор FOR використовується в тому випадку, коли деяку послідовність дій треба виконати кілька разів, причому число повторень заздалегідь відомо.

Загальний вигляд оператора for … do:

for <лічильник>: = <поч_знач> to <кін_знач> do

begin

<Тіло циклу>

End;

де:

лічильник - змінна-лічильник числа повторень;

поч_знач - вираз, що визначає початкове значення лічильника циклу;

кін_знач - вираз, що визначає кінцеве значення лічильника циклу;

тіло циклу - оператори, які будуть повторюватися.

Змінна-лічильник, вирази поч_знач і кін_знач повинні бути цілого типу. Кількість повторень циклу можна обчислити за формулою: кін_знач - поч_знач +1.

Якщо між begin і end знаходиться тільки один оператор, то begin і end можна не писати.

Наприклад, в результаті виконання наступного програмного коду:

tab1:=' ';

for i:= 1 to 5 do

begin

tab1:= tab1 + IntToStr(i) + ' ' + IntToStr(i*i) + chr(13);

end;

Змінна tabl буде відображати таблицю квадратів чисел. Якщо в операторі for замість слова, to записати Downto, то після чергового виконання тіла циклу значення лічильника буде не збільшуватися, а зменшуватися.