Вот две еквивалентные диаграмы, проще вторая, но если вам нельзя использовать многочисленое условие (в данном случаи двойное), то лучше выберете первый вариант :)
Спасибо за отметку "Лучшый ответ" и нажатую кнопочку "Спасибо" (:
1*2^3+1*2^2+0*2^1+1*2^0=8+4+1=13
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg
Блок-схемы - в прилагаемых файлах.
Программы:
1)
var i:integer; p:longint;
<span>begin
p:=1;
for i:=5 to 12 do p:=p*i;
writeln('p = ',p);
readln;end<span>.
var i:integer; p:longint;
begin
p:=1;
for i:=12 downto 5 do p:=p*i;
writeln('p = ',p);
readln;end.
Результат:
p = 19958400</span></span>
1 - истина, 0 - ложь.
not( 0 ) or not( 1 ) and ( 1 )
1 or 0 and 1
1 or 1
сначала выполняются действия в скобках,затем логические операции not,затем and и в конце or.
Ответ: это выражение истинно.