Заполнить недостающие места в ряду (раб тетрадь моро 3 класс, с.28) 2, 5, 4, 7, 8, 9, , , 32 и 3, 8, 15, , , 48, , 80

1)  2, 5, 4, 7, 8, 9,  16,  11, 32

 

2           5

4           7

8           9

16         11

32

*2           +2

 

чётное порядковое число умножается на 2

 

 

 

 

нечётное порядковое число увеличивается на 2

 

 

 

 

2) 3, 8, 15,  24,  35, 48,  63, 80

 

3

3+5=8

8+7=15

15+9=24

24+11=35

35+13=48

48+15=63

63+17=80

 

(к предыдущему ответу прибавляется по порядку идущее нечётное число)

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

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..8] of integer;

i, s: integer;

begin

for i: = 1 to 7 do a[i]:= StrToInt(Memo1.Lines[i - 1]);

s:= 0;

for i:= 1 to 7 do if a[i] < 0 then s:= s + a[i];

Label1. Caption: = IntToStr(s);

end;

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

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..8] of real;

i, k: integer;

begin

for i:= 1 to 8 do a[i]:= StrToFloat(Memo1.Lines[i - 1]);

k:= 0;

for i:= 1 to 8 do

if a[i] > 5 then k:= k + 1;

Label 1.Caption:= IntToStr(k);

end;

4) Постановка проблемы — этап, в котором программист устанавливает, что от него вообще требуют;

1) Анализ и исследование проблемы — этап, в котором программист выносит только нужные для выполнения задачи данные, выстраивает примерное решение задачи;

3) Разработка алгоритма — этап, в котором программист стоит алгоритм для решения задачи;

2) Тестирование и отладка — этап, который идёт после всех предыдущих. Уже написав код, программист проверяет: есть в программе ошибка или нет. Если есть, то ищет её, возвращаясь к третьему этапу. Если же ошибки нет, то программист — молодец.

Объяснение: