02.12.2019 Інструктаж з БЖД. Табличні величини.
Завдання. Створити проект, у якому вводяться значення елементів табличної величини з 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. Завантажити текст практичного завдання у форматі docx: https://goo.gl/PVUQ9h
Завдання. Створити проект, у якому вводяться значення елементів табличної величини з 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. Завантажити текст практичного завдання у форматі docx: https://goo.gl/PVUQ9h
Немає коментарів:
Дописати коментар