{"id":2393,"date":"2010-05-11T12:07:28","date_gmt":"2010-05-11T08:07:28","guid":{"rendered":"http:\/\/msbro.ru\/?p=2393"},"modified":"2010-06-25T08:28:17","modified_gmt":"2010-06-25T04:28:17","slug":"pascal-primery-zadach-s-resheniem-odnomernye-massivy","status":"publish","type":"post","link":"https:\/\/msbro.ru\/index.php\/archives\/2393","title":{"rendered":"Pascal: \u041f\u0440\u0438\u043c\u0435\u0440\u044b \u0437\u0430\u0434\u0430\u0447 \u0441 \u0440\u0435\u0448\u0435\u043d\u0438\u0435\u043c (\u043e\u0434\u043d\u043e\u043c\u0435\u0440\u043d\u044b\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b)"},"content":{"rendered":"

<\/p>\n

\u0417\u0430\u0434\u0430\u0447\u0430 1.<\/strong><\/p>\n

\u0414\u0430\u043d \u043c\u0430\u0441\u0441\u0438\u0432 \u0447\u0438\u0441\u0435\u043b. \u041d\u0430\u0439\u0442\u0438, \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0432 \u043d\u0435\u043c \u043f\u0430\u0440 \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u044b\u0445 \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432.<\/em><\/p>\n

\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n

mas \u2013 \u043c\u0430\u0441\u0441\u0438\u0432 \u0447\u0438\u0441\u0435\u043b;
\nn \u2013 \u0440\u0430\u0437\u043c\u0435\u0440 \u043c\u0430\u0441\u0441\u0438\u0432\u0430;
\ni \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430;
\nk \u2013 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u044b\u0445 \u043f\u0430\u0440 \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432.<\/p>\n

\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n

    \n
  1. \u0432\u0432\u043e\u0434\u0438\u043c \u0434\u043b\u0438\u043d\u0443 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 n, \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0438 \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 k;<\/li>\n
  2. \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0435\u043c \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u0438, \u0435\u0441\u043b\u0438 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0439 mas[i] \u0440\u0430\u0432\u0435\u043d \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c\u0443 mas[i+1], \u0442\u043e \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 k \u043d\u0430 \u0435\u0434\u0438\u043d\u0438\u0446\u0443;<\/li>\n
  3. \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442.<\/li>\n<\/ol>\n
    const m=100;\r\nvar mas : array [1..m] of integer;\r\n        i, k, n : integer;\r\nbegin\r\n      write('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0440\u0430\u0437\u043c\u0435\u0440 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 n=');\r\n      readln(n);\r\n      k:=0;\r\n      for i:=1 to n do\r\n      begin\r\n             write('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430');\r\n             readln(mas[i]);\r\n      end;\r\n      for i:=1 to n\u20131 do\r\n      if mas[i]=mas[i+1] then k:=k+1;\r\n      wrietln('\u041e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u044b\u0445 \u043f\u0430\u0440 \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 ',k);\r\nend.\r\n<\/pre>\n
    \u0417\u0430\u0434\u0430\u0447\u0430 2.<\/strong><\/p>\n
    \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430. \u0414\u0430\u043d\u043e 100 \u0446\u0435\u043b\u044b\u0445 \u0447\u0438\u0441\u0435\u043b. \u0420\u0430\u0441\u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u0438\u0445 \u0432 \u043e\u0431\u0440\u0430\u0442\u043d\u043e\u043c \u043f\u043e\u0440\u044f\u0434\u043a\u0435 \u043f\u043e 6 \u0447\u0438\u0441\u0435\u043b \u0432 \u0441\u0442\u0440\u043e\u043a\u0435.<\/em><\/p>\n
    const n=100; d=6;\r\nvar x : array [1..n] of integer;\r\n      i, k : integer;\r\nbegin                       {\u0432\u0432\u043e\u0434 \u043c\u0430\u0441\u0441\u0438\u0432\u0430:}\r\n        writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u043c\u0430\u0441\u0441\u0438\u0432 \u0438\u0437 ', n,' \u0447\u0438\u0441\u0435\u043b');\r\n        for i:=1 to n do read(x[i]);\r\n         {\u0432\u044b\u0432\u043e\u0434 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043f\u043e d \u0447\u0438\u0441\u0435\u043b \u0432 \u0441\u0442\u0440\u043e\u043a\u0435:}\r\n        k:=0;                 {\u043d\u043e\u043c\u0435\u0440 \u0447\u0438\u0441\u043b\u0430 \u0432 \u0441\u0442\u0440\u043e\u043a\u0435}\r\n        for i:=n downto 1 do\r\n        begin\r\n               k:=k+1;\r\n               write(x[i]:4);\r\n               if k=d then\r\n                          begin\r\n                          k:=0; writeln\r\n                          end\r\n        end;\r\n        if k < > 0 then writeln\r\nend.\r\n<\/pre>\n
    \u0417\u0430\u0434\u0430\u0447\u0430 3.<\/strong><\/p>\n
    \u0421\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0430 \u0441\u043b\u0438\u044f\u043d\u0438\u0435\u043c<\/em><\/p>\n
    const k=50; m=20; n=70; {n=k+m}\r\nvar x : array [1..k] of real;\r\ny : array [1..m] of real;\r\nz : array [1..n] of real;\r\ni,p,j : integer;\r\n<\/pre>\n
    \u042d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0438\u0437 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 x \u0438 y \u0443\u043f\u043e\u0440\u044f\u0434\u043e\u0447\u0435\u043d\u044b \u043f\u043e \u043d\u0435\u0443\u0431\u044b\u0432\u0430\u043d\u0438\u044e. \u041e\u0431\u044a\u0435\u0434\u0438\u043d\u0438\u0442\u044c \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u044d\u0442\u0438\u0445 \u0434\u0432\u0443\u0445 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 \u0432 \u043e\u0434\u0438\u043d \u043c\u0430\u0441\u0441\u0438\u0432 z \u0442\u0430\u043a, \u0447\u0442\u043e\u0431\u044b \u043e\u043d\u0438 \u0441\u043d\u043e\u0432\u0430 \u043e\u043a\u0430\u0437\u0430\u043b\u0438\u0441\u044c \u0443\u043f\u043e\u0440\u044f\u0434\u043e\u0447\u0435\u043d\u043d\u044b\u043c\u0438 \u043f\u043e \u043d\u0435\u0443\u0431\u044b\u0432\u0430\u043d\u0438\u044e.<\/em><\/p>\n
    const k=50; m=20; n=70;   {n=k+m}\r\nvar x : array [1..k] of real;  {k \u2013 \u0440\u0430\u0437\u043c\u0435\u0440\u043d\u043e\u0441\u0442\u044c \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0445}\r\n      y : array [1..m] of real;  {m \u2013 \u0440\u0430\u0437\u043c\u0435\u0440\u043d\u043e\u0441\u0442\u044c \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0430 y}\r\n      z : array [1..n] of real;   {n \u2013 \u0440\u0430\u0437\u043c\u0435\u0440\u043d\u043e\u0441\u0442\u044c \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0430 z}\r\n      i, p, j : integer;\r\nbegin\r\n       writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u043c\u0430\u0441\u0441\u0438\u0432 x');\r\n       for i:=1 to k do read(x[i]);\r\n       writeln;\r\n       writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u043c\u0430\u0441\u0441\u0438\u0432 y');\r\n       for i:=1 to m do read(y[i]);\r\n       writeln;\r\n       writeln('\u0412\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u0435 \u0412\u0430\u043c\u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u044b');\r\n       writeln('\u041c\u0430\u0441\u0441\u0438\u0432 x');\r\n       for i:=1 to k do write(x[i]:7:3);\r\n       writeln;\r\n       writeln('\u041c\u0430\u0441\u0441\u0438\u0432 y');\r\n       for i:=1 to m do write(y[i]:7:3);\r\n       writeln;\r\n       p:=1;                     {\u0438\u043d\u0434\u0435\u043a\u0441 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0433\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u0438\u0437 z}\r\n       i:=1;                      {\u0438\u0437 \u0445}\r\n       j:=1;                      {\u0438\u0437 y}\r\n        {\u043f\u043e\u043a\u0430 \u0435\u0441\u0442\u044c \u043d\u0435\u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u043d\u044b\u0435 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u0438 \u0432 x, \u0438 \u0432 y: }\r\n       repeat if x [i] < y [j] then\r\nbegin    z[p]:=x[i]; i:=i+1  end   else\r\nbegin     z[p]:=y[j]; j:=j+1   end;\r\np:=p+1        until (i > k)or(j > m);\r\n       {\u043e\u0434\u0438\u043d \u0438\u0437 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 x \u0438\u043b\u0438 y \u0438\u0441\u0447\u0435\u0440\u043f\u0430\u043d -- > \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u044c \u0432 z\r\n       \u043e\u0441\u0442\u0430\u0432\u0448\u0438\u0445\u0441\u044f \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0434\u0440\u0443\u0433\u043e\u0433\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0430:}\r\n       if i > k                  {\u0438\u0441\u0447\u0435\u0440\u043f\u0430\u043d \u043c\u0430\u0441\u0441\u0438\u0432 x:}\r\n                 then repeat z[p]:=y[j]; j:=j+1; p:=p+1 until j > m\r\n                 else repeat z[p]:=x[i]; i:=i+1; p:=p+1 until i > k;\r\n       writeln('\u041f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432: ');\r\n       for i:=1 to n do write(z[i]:7:3);\r\nend.\r\n<\/pre>\n
    \u0417\u0430\u0434\u0430\u0447\u0430 4.
    \n<\/strong><\/p>\n
    type shift=1..99;\r\n            scale=array [1..100] of real;\r\n<\/pre>\n
    \u041e\u043f\u0438\u0441\u0430\u0442\u044c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 move(s,k), \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u0435\u0442 \u0448\u043a\u0430\u043b\u0443 s, \u0446\u0438\u043a\u043b\u0438\u0447\u0435\u0441\u043a\u0438 \u0441\u0434\u0432\u0438\u0433\u0430\u044f \u0435\u0435 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u043d\u0430  k \u043f\u043e\u0437\u0438\u0446\u0438\u0439 \u0432\u043b\u0435\u0432\u043e, \u0433\u0434\u0435 k \u2013 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0442\u0438\u043f\u0430 shift.<\/em><\/p>\n
    type shift=1..99;\r\n        scale=array [1..100] of real;\r\nvar a:scale; m:shift;n,i:integer;\r\nprocedure move( var s:scale; k:shift);\r\n   var i:integer; t:scale;                        {\u0432\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0439  \u043c\u0430\u0441\u0441\u0438\u0432}\r\n    begin\r\n                                                                   {t[n\u2013k+1..n]:=s[1..k]:}\r\n         for i:=1 to k do t[n\u2013k+i]:=s[i];\r\n                                                                   {t[1..n\u2013k]:=s[k+1..n]:}\r\n         for i:=k+1 to n do t[i\u2013k]:=s[i];\r\n         s:=t\r\n    end;\r\n\r\nbegin\r\n       writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0440\u0430\u0437\u043c\u0435\u0440 \u043c\u0430\u0441\u0441\u0438\u0432\u0430');\r\n       readln(n);\r\n       writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u043c\u0430\u0441\u0441\u0438\u0432');\r\n       for i:=1 to n do read(a[i]);\r\n       writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0446\u0438\u043a\u043b \u0441\u0434\u0432\u0438\u0433\u0430 < =', n\u20131);\r\n       readln(m);\r\n       writeln('\u0418\u0441\u0445\u043e\u0434\u043d\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432');\r\n       for i:=1 to n do write(a[i]:7:2);\r\n       writeln;\r\n       move(a,m);\r\n       writeln('\u041f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432');\r\n       for i:=1 to n do write(a[i]:7:2);\r\n       writeln;\r\nend.\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[600,13],"tags":[599,601],"class_list":["post-2393","post","type-post","status-publish","format-standard","hentry","category-programming","category-education","tag-pascal","tag-odnomernye-massivy"],"_links":{"self":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts\/2393"}],"collection":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/comments?post=2393"}],"version-history":[{"count":0,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts\/2393\/revisions"}],"wp:attachment":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/media?parent=2393"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/categories?post=2393"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/tags?post=2393"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}