В одній формі передбачити ввід елементів масиву в ListBox і вивід результату в інший ListBox. По кожному введеному користувачем елементу масиву знайти функцію y:=1+2*sqr(x); і занести результат в ListBox. Розв'язати задачу за допомогою циклу for.
| Компоненти | Властивості | Значення |
|---|---|---|
| Form1 | Caption | Обробка одномірного масиву |
| Label1 | Caption | Введіть |
| Label2 | Caption | число елементів N= |
| Label3 | Caption | Елемент A[i]= |
| Label4 | Caption | Масив даних |
| Label5 | Caption | Результат |
| Edit1 | Text | пусто |
| Edit2 | Text | пусто |
| Button1 | Caption | Додати елемент в масив |
| Button2 | Caption | Розв'язок |
| Button3 | Caption | Вихід |
| ListBox1 | - | - |
| ListBox2 | - | - |
Створення програми вимагає знання функцій і команд delphi:
- x, y : array [1..20] of Real; : ShortString змінні x, y будуть масивами з елементами типу Real, індекси елементів від 1 до 20
- StrToInt перетворює значення типу рядок в значення типу Integer
- StrToFloat перетворює значення типу рядок (що вміщує число) в значення типу Float
- FloatToStr перетворює значення типу Float в значення типу рядок
- Form1.ListBox1.Items.Add; додати до списку один елемент
- sqr піднесення в квадрат
- for i:=1 to n do цикл, в якому змінна і проходить значення від 1 до n включно (з кроком 1)
- Form1.ListBox1.Items.Strings[i-1] повертає значення i-1 -го елементу списку (елементи нумеруються від 0)
