Если имелся ввиду Шеннон, то:
Это американский инженер, а так же математик. Основатель теории информации. Предложил использовать слово "бит" для обозначения наименьшей единицы информации.
8) Область определения функции:
2x + 1 >= 0
2x >= -1
x >= -0.5
20x - 5 <> 0
20x <> 5
x <> 5/20
x <> 1/4
x ∈ [-0.5; 0.25) U (0.25; ∞)
На Паскале вычисление значения этой функции с учетом области определения может выглядеть так:
if (x > -0.5) and (x <> 0.25) then begin
writeln(sqrt(2*x + 1) / (20 * x - 5));
end;
9)
begin
var price: real;
readln(price);
if price > 3000 then begin
price := price - price * 0.05;
end
else if price > 1000 then begin
price := price - price * 0.03;
end;
writeln(price);
end.
10)
begin
var x, f: real;
readln(x);
f := 0;
if x > 5 then begin
f := x*x - 1;
end
else if x < -2 then begin
f := 2*x;
end;
writeln(f);
end.
<span>Цикл с предусловием выглядит следующим образом: while — «условие» do «программный код». В цикле с постусловием оператор цикла стоит после тела. Для выполнения цикла с постустовием, просто необходимо выполнение условия: for - "условие"</span>
Var sum,kol,bol,n,x,i:integer;beginread(n);for i:=1 to n do begin read(x); if x<=40 then inc(bol); inc(kol); inc(sum,x); end;writeln(sum/kol);if bol>1 then writeln('YES') else writeln('NO');end.
Линейный
Жили-были дед да баба.
Была у них курочка ряба.
Снесла курочка яичко, не простое, золотое.
Дед бил, бил – не разбил.
Баба била, била – не разбила.
Мышка бежала, хвостиком махнула.
Яичко упало и разбилось.
Дед и баба плачут.
Курочка кудахчет.
с ветвлением
«Гуси-лебеди»
Начало
Девочка просит печку помочь.
Если съешь моего пирожка,
то помогу,
иначе не помогу
Конец
Любишь кататься, люби и саночки возить
Начало
если любишь кататься,
то люби и саночки возить
Конец
Циклический алгоритм
«Собирай по ягодке, наберешь кузовок»
Сказка о рыбаке и рыбке:
- раз старик закинул невод, пришел невод с одною тиной
второй раз старик закинул невод... .