1. Какая алгоритмическая конструкция называется последовательной? 2. Петя приглашён в гости к однокласснику Васе, живущему в квартире № 362 шестнадцатиэтажного десятиподъездного дома. Петя забыл, в каком подъезде и на каком этаже живёт Вася, но знает, что в доме на каждой лестничной площадке по 4 квартиры Пете узнать, в каком подъезде и на каком этаже находится нужная ему квартира.
3. Какая алгоритмическая конструкция называется ветвлением? Как она связана с последовательной?
4. Как на блок-схемах изображается полное ветвление? Неполное ветвление?
5. Автомат по продаже напитков имеет только две кнопки (А и B), но должен продавать 4 напитка: горячий кофе, горячий чай, холодный яблочный сок и холодную газировку. Представьте в форме блок-схемы алгоритм работы такого автомата.
6. Разработайте и составьте в словесной форме инструкцию для школьного охранника: в какой последовательности и что он должен проверять (наличие пропуска, соответствие фотографии, есть ли сменная обувь и т. п.) и как реагировать на выявленные нарушения (вызвать милицию, отправить домой, сделать замечание, но пропустить, и т. д.).
7. Какая алгоритмическая конструкция называется циклической? Как она связана с ветвлением?
8. Водитель автобуса, в котором К мест, продаёт билеты и по одному пропускает пассажиров в автобус. Он должен завершить посадку и уехать либо когда в автобус войдут все желающие, либо когда все места будут заняты. Составьте алгоритм действий водителя.
z, s: real;
n, p: integer;
begin
Write('Введите размер оплаты труда: ');
Readln(z);
Write('Лицензия первичная (1) или повторная (2)? ');
Readln(p);
Writeln('На сколько лет выдается лицензия?');
Writeln('0 - до года, 1 - 1-2 года, 2 - 2-3 года,');
Write('3 - 3-4 года, 4 - 4-5 лет: ');
Readln(n);
case n of
0: s := 0.3 * z;
1: s := 0.4 * z;
2: s := 0.5 * z;
3: s := 0.6 * z;
4: s := 0.7 * z;
else s := 1e9
end;
if p = 2 then s := 0.2 * s;
Writeln('Сумма лицензионного сбора составит ', s:0:2)
end.
Тестовое решение:
Введите размер оплаты труда: 26400
Лицензия первичная (1) или повторная (2)? 1
На сколько лет выдается лицензия?
0 - до года, 1 - 1-2 года, 2 - 2-3 года,
3 - 3-4 года, 4 - 4-5 лет: 2
Сумма лицензионного сбора составит 13200.00
const
n = 20;
var
x: array[1..n] of real;
i: integer;
sp, sn: real;
begin
Randomize;
Write('Элементы массива: ');
sp := 0; sn := 0;
for i := 1 to n do
begin
x[i] := (Random(101) - 50) / 1.33;
Write(x[i]:0:5, ' ');
if x[i] > 0 then sp := sp + x[i]
else if x[i] < 0 then sn := sn + x[i]{нули тоже сюда, они не мешают}
end;
Writeln(#13#10, 'Сумма положительных=', sp:0:5, ', отрицательных=', sn:0:5)
end.
Тестовое решение:
Элементы массива: 3.75940 21.80451 -16.54135 9.77444 10.52632 -7.51880 32.33083 -23.30827 12.03008 -3.00752 25.56391 24.81203 24.06015 -9.02256 -11.27820 34.58647 25.56391 9.02256 -27.06767 6.01504
Сумма положительных=239.84962, отрицательных=-97.74436