Составить блок-схемы

@ducky · Регистрация: 20.11.2010

Студворк — интернет-сервис помощи студентам

помогите блок-схему сделать, пожалуйста..

. Вычислить:
a)* y=(2n-1)!!=1*3*5*…*(2n-1), n>0;
б) y=(2n)!!=2*4*…*(2n), n>0
в) y=n!! n>0

Pascal

program V_5_13;
var n, i: integer;
    y: longint;
begin
 writeln ('vvedite znachenie chisla n, n>0');
 write ('n=');
 readln (n);
 
 y:=1;
  for i:=1 to n do
   y:=y*(2*i-1);
  writeln ('reshenije zadachi A, y=',y);
  readln;
 
 y:=1;
  for i:=1 to n do
  y:=y*(2*i);
  writeln ('reshenije zadachi B, y=', y);
  readln;
 
 y:=1;
  for i:=1 to n do
  y:=y*i;
  writeln ('reshenije zadachi C, y=', y);
  readln;
 
end.

Определить, какими будут значения переменных pиd после выполнения операторов.
p:=true; d:=l;
case k mod 10 of
3, 2,7, 5: d:=k;
l:;
4,8: begin p: = false; d: = 2 end; ■
9,6: begin p:=false; d:=3 end
end {of case}
если целая переменная k имеет следующее значение:
а) 6; б) 235; в) 71; г) 100.

Pascal

program V_7_11;
var p: boolean;
    d, k, i: integer;
begin
i:=1;
while i<=4 do
 begin
  writeln ('vvedite znachenije k');
  readln (k);
  p:=true;
  d:=1;
   case k mod 10 of
    3,2,7,5:d:=k;
    1:;
    4,8: begin
          p:=false;
          d:=2;
         end;
    9,6: begin p:=false;
              d:=3
         end;
    end;
  i:=i+1;
  if k mod 10 = 0 then writeln ('oshibka')
  else
   begin
    writeln ('p:=', p);
    writeln ('d:=', d);
   end;
 end;
readln;
end.

	23.11.2010, 18:11

Опции темы