Табличні величини та алгоритми їх опрацювання

1. «Табличні величини та алгоритми їх опрацювання».

2.

Одновимірні масиви
m
Послідовність однотипних елементів, які
зберігаються разом і мають спільне ім'я
integer
12
…
-76
…
89
m [0] m [1] m [2] m [3]
…
m [i]
…
m [n]
23
-12
48
Порядковий номер
елемента масиву
Ім'я масиву
Зазвичай нумерацію
починають з 1
(для зручності)
For i:=0 to n do
m [i]…
For i:=1 to n do
m [i]…

3. Введення одновимірного масиву

Способи
введення
В поле
Memo
Обчислення
за формулою

4.

Компонент TMemo
призначений для роботи з
багаторядковим текстом, який
міститься у властивості Lines.
Відео
https://www.youtube.com/watch?v=x1L2E_lhYVM

5. Використання поля Memo

Додавання до форми
поля Memo1
Додавання до поля Memo1
смуг прокручування
(властивість ScrollBars)
Дозвіл або заборона редагування
рядків компонентів поля Memo1
(властивість ReadOnly)

6. Обчислення кількості рядків в полі Мемо1

1.Обчислення кількості рядків
n:= Memo1.Lines.Count;
в полі Мемо1
2.
Оголошення (опис)
одновимірного масиву
var
m: array [0..100] of real;
3. Очистка поля Memo2
Memo2.Lines.Clear;
Діапазон номерів
елементів масиву

7. Введення одновимірного масиву з поля Memo

Значення властивості = набору значень,
розташованих у рядках поля Memo1
(кожний рядок має номер; нумерація
починається з нуля)
Значення властивості =
кількості рядків поля
Memo1, заповнених
даними
for i:=1 to Memo1.Lines.Count do
m[i]:=StrToFloat(Memo1.Lines[i-1]);
Номер рядка
(нумерація рядків
починається з нуля)

8. Виведення одновимірного масиву в поле Memo2

Значення властивості =
кількості рядків,
заповнених даними
for i:=1 to Memo1.Lines.Count do
Memo2.Lines.Append(FloatToStr(m[i]));
Додавання нового рядка до
багаторядкового поля
Memo2

9.

Введення, виведення
та зміна елементів одновимірного масиву
Початок
i:=1, Memo1.Lines.Count, 1
procedure TForm1.Button1Click(Sender:
TObject);
var i: byte;
m: array [0..100] of real;
Введення
m[i]
begin
for i:=1 to Memo1.Lines.Count do
m[i]:=StrToFloat(Memo1.Lines[i-1]);
Memo2.Lines.Clear;
i:=1, Memo1.Lines.Count, 1
for i:=1 to Memo1.Lines.Count do
begin
m[i]:=m[i]*m[i]
Виведення
m[i]
m[i]:=m[i]*m[i];
Memo2.Lines.Append(FloatToStr(m[i]));
end;
end;
Кінець

10. Форма

11. Виконання проекту

12. Програмний код

13. Формування випадкового масиву

Кількість
елементів
масиву
For i:=1 to n do
r[i]:=random(b-a+1)+a;
Функція random генерує
випадкові числа
Функція random генерує
випадкові цілі числа на
відрізку [a; b]

14. Виведення випадкового масиву

For i:=1 to n do
Memo3.Lines.Append(IntToStr(r[i]));
Додавання нового рядка до
багаторядкового поля
Memo3

15. Формування та виведення випадкового масиву

Початок
Введення
a, b, n
i := 1, n, 1
r [ i ] : = random (b-a+1)+a
Виведення
r[i]
Кінець
procedure TForm1.Button1Click(Sender:
TObject);
var a,b,n,i: integer;
r: array [0..100] of integer;
begin
randomize;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=StrToInt(Edit3.Text);
Memo3.Lines.Clear; // очистка рядків
поля Memo3
For i:=1 to n do
begin
r[i]:=random(b-a+1)+a;
Memo3.Lines.Append(IntToStr(r[i]));
end;
end;

16. Форма

17. Виконання проекту

18. Програмний код

19. https://www.youtube.com/watch?v=hQ-YX8uMr5E

Відеоуроки
https://www.youtube.com/watch
?v=hQ-YX8uMr5E