Вправа 3. Слово чи декілька. Завдання. Складіть програму, за до якої можна визначити,
чи введений текст складається з одного слова, чи з декількох.
1. Відкрийте середовище програмування Thonny.
2. Створіть новий файл програми мовою Python з іменем Слова
в папці Програми своєї структури папок.
3. Передбачте, що введене текстове значення буде надано змінній ѕ.
4. У програмному коді запишіть команди за поданою блок-схемою
(мал. 11.5).
БВГА
Объяснение:
18 4.2 26.73 .62
под буквой А мы видим «.62». Число, на которое указывает этот фрагмент, начинается с 62. Так как числа в IP-адресе не могут быть больше 255, мы не можем добавить в конце этого числа еще один разряд, а фрагментов, начинающихся с точки, больше нет, следовательно, этот фрагмент – последний.
Посмотрим на фрагмент под буквой Б. В нем стоит число без точек, значит, это либо последний фрагмент, либо первый. Место последнего фрагмента уже занято, значит, фрагмент Б на первом месте.
В конце фрагмента Г - число 73, отделенное точкой. Так как в IP-адресе не может быть числа, большего 255, то за фрагментом Г должен следовать фрагмент, начинающийся с точки. Значит, фрагмент Г идет перед фрагментом А.
V = array of integer;
function ProdPos(a: V): longint;
var
i: integer;
begin
Result := 1;
foreach var p: longint in a do
if p > 0 then Result := Result * p
end;
procedure InitMas(var a: V; title: string);
var
i: integer;
begin
writeln(title, '(', length(a, 0), '). Вводите элементы.');
for i := 0 to length(a, 0) - 1 do
read(a[i])
end;
procedure GetMas(var a: V; dim: integer; title: string);
begin
SetLength(a, dim);
InitMas(a, title);
end;
const
n1 = 10;
n2 = 15;
var
A, B: V;
begin
GetMas(A, n1, 'Массив А');
GetMas(B, n2, 'массив B');
writeln('Большее произведение положительных ', max(ProdPos(A), ProdPos(B)))
end.
Тестовый прогон:
Массив А(10). Вводите элементы.
1 1 1 1 2 1 2 2 1 5
массив B(15). Вводите элементы.
1 0 2 4 0 1 -3 -4 1 2 3 1 -3 0 2
Большее произведение положительных 96