Решите на python Begin1◦
. Дана сторона квадрата a. Найти его периметр P = 4·a.
Begin2◦
. Дана сторона квадрата a. Найти его площадь S = a
2
.
Begin3◦
. Даны стороны прямоугольника a и b. Найти его площадь S = a·b и
периметр P = 2·(a + b).
Begin4◦
. Дан диаметр окружности d. Найти ее длину L = π·d. В качестве
значения π использовать 3.14.
Begin5◦
. Дана длина ребра куба a. Найти объем куба V = a
3 и площадь его
поверхности S = 6·a
2
Blanks = [' '];
function PosBlank(s: string; pn, pk: integer): integer;
{
Ищет в строке s в позициях от pn до pk пробельный символ.
Возвращает его позицию в строке или ноль, если таковой символ не найден.
Использует подмножество пробельных символов Blanks, что позволяет определять
произвольный набор пробельных символов (например, табуляцию и т.д.)
}
var
p: integer;
flag: boolean;
begin
p := pn;
flag := true;
while flag and (p <= pk) do
begin
if s[p] in Blanks then flag := false
else p := p + 1
end;
if p > pk then PosBlank := 0
else PosBlank := p
end;
function PosNonBlank(s: string; pn, pk: integer): integer;
{
Ищет в строке s в позициях от pn до pk непробельный символ.
Возвращает его позицию в строке или ноль, если таковой символ не найден.
Использует подмножество пробельных символов Blanks, что позволяет определять
произвольный набор пробельных символов (например, табуляцию и т.д.)
}
var
p: integer;
flag: boolean;
begin
p := pn;
flag:=true;
while flag and (p <= pk) do
begin
if s[p] in Blanks then p := p + 1
else flag := false
end;
if p > pk then PosNonBlank := 0
else PosNonBlank := p
end;
var
s: string;
i, l, k: integer;
begin
Write('Введите строку: ');
Readln(s);
l := Length(s);
k := 0;
i := PosNonBlank(s, 1, l);
while (i>0) and (i <= l) do
begin
k := k + 1;
i := PosBlank(s, i + 1, l);
if i = 0 then i := l + 1
else i := PosNonBlank(s, i + 1, l)
end;
Writeln('Количество слов в строке равно ', k)
end.
Принимает звуковую информацию, содержащую адрес подачи такси
Время
и Адрес назначения.
Правило:
В соответствии с полученной информацией производит поиск по базе свободных таксистов и производит расчет стоимость по заданной формуле.
Затем передает адреса и время таксисту а стоимость и номер машины клиенту.
Бабушка просит внучку включить на телевизоре какую-нибудь передачу про здоровье.
Получена звуковая информация, содержащая сообщение с задачей - переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.
Правило:
переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.