«Табличні величини та алгоритми їх опрацювання».
Введення одновимірного масиву
Використання поля Memo
Обчислення кількості рядків в полі Мемо1
Введення одновимірного масиву з поля Memo
Виведення одновимірного масиву в поле Memo2
Форма
Виконання проекту
Програмний код
Формування випадкового масиву
Виведення випадкового масиву
Формування та виведення випадкового масиву
Форма
Виконання проекту
Програмний код
https://www.youtube.com/watch?v=hQ-YX8uMr5E
878.00K
Categories: programmingprogramming informaticsinformatics

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

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
English     Русский Rules