,   CyberForum.ru

- C++

 
Kseny
0 / 0 / 0
: 23.05.2010
: 8
23.05.2010, 17:13     #1
, .
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
 program PROGVybor;
 
uses
  crt;
 
const
  Nmax=100;
 
type
  TIndex   = 0..Nmax-1;      { - * *ᨢ*}
  TElement = integer;        { ** *ᨢ* - * ⨯ *ᨢ*}
  TVector  = array [TIndex] of TElement; { - , ** *ᨢ}
 
var
  a        : TVector;      { ** *ᨢ }
  N        : word;         { *᪨ * *ᨢ* }
  k        :TELement;
  i        :TIndex;
      { 楤* **樨 ** *** *ᨢ* a
        **** 楫 ᥫ 0..N-1                               }
 
procedure MakeVector (var a : TVector; N : word);
var
  i : TIndex;
 
begin {MakeVector}
 
  randomize;
  for i:=0 to N-1 do
    a[i] := random(N);
 
end;  {MakeVector}
 
 
       {楤* 뢮* ** ** ** *ᨢ* *}
 
procedure PrintVector (var a : TVector; N : word);
var
  i : TIndex;
 
begin {PrintVector}
  for i:=0 to N-1 do
    write(a[i]:4);
    writeln;
 
end;  {PrintVector}
 
 
 
 
  {楤* ** * *** ६**x y  x ⨯* TElement}
procedure swap (var x,y:TElement);
var
  t:TElement;
begin
  t:=x;
  x:=y;
  y:=t;
end;    {swap}
 
   { 楤* ந ஢ *⮢ ** *ᨢ* *
    ⮤ 롮* c ** *ᨢ*.}
procedure SortingVector(var a:TVector; N : word);
var
  i,j,imax:TIndex;
begin{sorting vector}
      {஢*  *⮢ *ᨢ*  ᫥*  ࢮ}
  for i:=(N-1) downto 1 do
  begin
 
 
    {  । *ᮢ *⮢ *ᨢ* *  i  N
    ** **  **訬 ***              }
    imax:=i;
    for j:=(i-1) downto 0 do
    if a[j]>a[imax] then
      imax:=j;
 
    {* a[i]  a[imax]}
      swap(a[imax],a[i]);
  end;
end;
 
  {* ந ᫥*⥫*  ** ᪮ **  ** *ᨢ*}
Function POISK (var  a:TVector; N:word; k: TElement;var   i:TIndex ):integer;
begin
  i:=(N-1);
  while(i>=0) and (a[i]<>k) do
  begin
    Poisk:=i;
    dec (i);
  end;
end;
 
 
 
begin
  ClrScr;
  writeln('ண** ந ஢ ** 楫᫥**':60);
  writeln;
 
  write(' ⢮ *⮢ N *ᨢ*=');
  readln(N);
 
  MakeVector(a, N);
 
  writeln('?室* *ᨢ:');
  PrintVector(a, N);
  SortingVector(a, N);
 
  writeln('஢*** *ᨢ:');
  PrintVector(a, N);
  write(' ᪮ * k=');
  readln(k);
 
  if POISK (a,N,k,i)>0 then
    writeln('* ***  *ᮬ',POISK (a,N,k,i))
  else
    writeln('* * ***');
    readln;
end.
:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
/*programma reshaet zadachu:sosedom elementa  Aij     Alk    ,      l  k
   i  j      1.  .   MxN.         
bij          Aij.*/
#include <studio.h>
#include <moth.h>
#include <conio.h>
#define m 5
#define n 4
void main()
{
  float a[m][n];  //  
  float b[m][n];  //  
  
  int i,j;     // 
  printf("\n  c\n");
  printf("     <enter>\n">);
  
  for (i=0;i<m;i++)  // m 
  {
      printf("->");
      for (j=0; j<n;j++)
        scanf("%f", &a[i][j]);
  }     
  printf("\n  \n");
  
  for (i=1; i<m; i++)
    for (j=1; j<n; j++)
    {
      int  p=i-1;
      int  t=i+1;
      int  p1=j-1;
      int  t1=j+1;
      float min = maxint;
        for (k=p; k<t; k++)
          for (l=p1; l<t1; l++)
          if ((k>=1)&&(k<=m))&&((l>=1)&&(l<=n))&&((i<>k)||(j<>l))
          {
            if ( a[k][l]<min)&&(a[k][l]<>a[i][j])&&(a[k][l]<>a[p,p1])&&(a[k][l]<>a[t][p1] )&&(a[k][l]<>a[p][t1] )&&(a[k][l] <> a[t][t1] )                                                
            {
                 min=a[k][l];
      
            }
            b[i][j]=min;
         }
     }
     for (i=1;i<m; i++)
       for (j=1;j<n; j++)
       scanf ("%f", b[i][j]);
       printf ("\n         Aij\n");
  {
Similar
41792 / 34177 / 6122
: 12.04.2006
: 57,940
23.05.2010, 17:13    
:

C++
. C++
C++
C++
C++
C++
C++
C++



:
.

: 21:37. GMT +3.
- , ,
-
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
@Mail.ru