Створіть проект, у якому вводяться значення елементів табличної величини із 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;
Объяснение:
Этап 1. Выявление целей инфографики
Прежде чем перейти к дизайну, выбору макета и диаграммам, обозначим цели, которые преследует наша инфографика. Иными словами, зачем мы создаем инфографику?
Речь идет не о глобальных целях вроде комплексной обработки данных или увеличения посещаемости сайта.
В данном случае решаются ясные, конкретные, реально достижимые цели коммуникации.
Найдите ключевую проблему
Вы создаете инфографику, которая принесет пользу вашей аудитории. Эта польза заключается в том, что ваша инфографика решить актуальную проблему, присутствующую в жизни вашей аудитории.
Используйте пирамиду вопросов
Пирамида вопросов сформулировать 3–5 актуальных вопросов, касающихся ключевой проблемы.
ПИРАМИДА ВОПРОСОВ:
Ключевая проблема
Главный вопрос, на который дает ответ инфографика.
2–3 вс вопроса
Вопросы, раскрывающие проблему (что, как).
1–2 уточняющих вопроса
Вопросы для анализа
Поделитесь своими знаниями, ответьте на вопрос:
Какая информация может хранится на flash памяти?