Var h,b,k,p,d:real;
begin
write('Введите В, К, П:');
readln(b,k,p);
writeln(' H','Д':8);
h:=2;
repeat
d:=100*h/(100-b)/(100-k)/p;
writeln(h:1:1,d:10:3);
h:=h+0.1
until h>4.0001 {Вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы}
<span>end.</span>
П1 -> П0 x>=0 21
x^2 ИП1 x^2 + П2 4 - x>=0 21
ИП2 1 - x<0 21 1 С/П 0 С/П
Ввод: x ^ y С/П.
Блок-схема примерно такова:
/ x, y /
|
нет < x > 0 > да |
|----- нет < x^2 + y^2 <= 4> да |
|----------------------- нет < x^2 + y^2 >= 1 > да |
L / не принадлежит / / принадлежит /
Вспомните сюжет русской народной сказки гуси лебеди. Какие условия должна была выполнить героиня? Вспомните другие сказки герои которых должны были сделать выбор.
Поесть ржаного пирожка у печки.
Поесть лесного яблочка у яблони.
Поесть киселька с молоком у речки.
Белоснежка - есть ли яблоко
Богатырь - три дороги
А1 - 3 (=)
А2 - 2 (=А1/В1)
А3 - 2 (срзнач(А1:В3)
А4 - 3
В1 - 285, 270, 2
В2 - (3*(степень (С2;А1))/4*В1*А1)+32*С2*(степень (В1;4))
в последнем, правда, может быть и не совсем верно, нет Экселе под рукой.