Pascal/Turbo Pascal - Calcular moda de una matriz

   
Vista:

Calcular moda de una matriz

Publicado por Luz E (1 intervención) el 10/10/2014 03:47:45
Hola! Tengo este código, y necesito sacar la moda, pleaseeeeeeeeeeee help me!!


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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
program matriz;
uses crt;
var
mat:array[1..5,1..5] of integer;
a,i,j,temp:integer;
 
procedure llenarcero;
begin
   for i:=1 to 5 do
    for j:=1 to 5 do
     Begin
      mat[i,j]:=0;
    end;
end;
 
procedure llenarvalor;
begin
   for i:=1to 4 do
   for j:=1 to 4 do
    begin
     write('Digite un numero Fila: ',i, ' Columna: ',j, ' - ');
     read(a);
     mat[i,j]:=a;
    end;
end;
 
procedure sumarfila;
begin
     temp:=0;
     for i:=1 to 4 do
     begin
         for j:=1 to 4 do
            begin
             temp:=temp+mat[i,j];
            end;
       mat[i,5]:=temp;
       temp:=0;
    end;
end;
 
procedure sumacolumnas;
begin;
temp:=0;
     for j:=1 to 4 do
     begin
         for i:=1 to 4 do
            begin
             temp:=temp+mat[i,j];
            end;
       mat[5,j]:=temp;
       temp:=0;
    end;
end;
 
 
 
 
 
 
procedure imprimir;
 Begin
    for i:=1 to 5 do
    Begin
        write('[');
        for j:=1 to 5 do
        begin
            write(' ', mat[i,j]);
        end;
    writeln(']');
   end;
end;
 
Procedure imprimird;
var
 di:integer;
Begin
di:=0;
writeln('');
for i:=1 to 5 do
    begin
         write (' ', mat[i,i]);
         di:=di+mat[i,i];
end;
    writeln('');
    writeln('la matriz sumada es: ',di);
end;
 
 
 
Procedure mayor;
 
var
 mayor, menor, suma, cont:integer;
 promediom:real;
begin
mayor:=0;
menor:=9999;
suma:=0;
cont:=0;
promediom:=0;
   for i:=1to 4 do
   for j:=1 to 4 do
    begin
     if mat[i,j] > mayor
     then
                begin
                  mayor:=mat[i,j];
                end;
     if mat[i,j] < menor
     then
         begin
              menor:=mat[i,j];
          end;
      suma:= suma + mat[i,j];
      cont:= cont + 1;
    end;
    promediom:=suma/cont;
 
    writeln('el mayor es:', mayor);
    writeln('el menor es:', menor);
    writeln('el promedio es:', promediom:2);
end;
 
 
 
 
 
 
begin
 clrscr;
 llenarcero;
 writeln('A continuacion digite los valores para cada fila y columna');
 writeln('');
 llenarvalor;
 sumarfila;
 sumacolumnas;
 writeln('');
 writeln('La matriz ordena y sumada es la siguiente');
 writeln('');
  writeln('');
 imprimir;
 imprimird;
 mayor;
 
 
 readkey;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Calcular moda de una matriz

Publicado por ramon (2072 intervenciones) el 10/10/2014 23:28:54
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
{A ver si esto te sirve}
 
 program matriz;
 uses
    crt;
 const
   max = 5;
 var
 mat:array[0..max,0..max] of integer;
 a,i,j,temp:integer;
 
 procedure llenarcero;
 begin
   for i := 0 to max do
    for j := 0 to max do
    mat[i,j] := 0;
 end;
 
 procedure llenarvalor;
 begin
   for i := 1 to max do
   for j := 1 to max do
    begin
     write('Digite un numero Fila: ',i, ' Columna: ',j, ' -  ');
     readln(a);
      mat[i,j] := a;
    end;
 end;
 
 procedure sumarfila;
 begin
     temp := 0;
      for i := 1 to max do
      begin
         for j := 1 to max do
         begin
           temp := temp + mat[i,j];
         end;
           mat[i,0] := temp;
           temp := 0;
      end;
  end;
 
  procedure sumacolumnas;
  begin;
    temp := 0;
     for j := 1 to max do
     begin
         for i := 1 to max do
         begin
            temp := temp + mat[i,j];
         end;
         mat[0,j] := temp;
         temp:=0;
     end;
  end;
 
  procedure imprimir;
  Begin
    for i := 1 to max do
    Begin
        write('[');
        for j := 1 to max do
        begin
            write(' ', mat[i,j]);
        end;
        write(']');
        writeln;
     end;
  end;
 
   Procedure imprimird;
   var
     di : integer;
   Begin
       di := 0;
       writeln;
       for i := 1 to max do
       begin
         write(' ', mat[0,i]);
         di := di + mat[0,i];
       end;
       for i := 1 to max do
       begin
         write(' ', mat[i,0]);
         di := di + mat[i,0];
       end;
       writeln;
       writeln('la matriz sumada es: ',di);
    end;
 
 
 
 Procedure mayor;
 var
   mayor, menor, suma, cont : integer;
   promediom : real;
  begin
    mayor := 0;
    menor := 9999;
    suma := 0;
    cont := 0;
    promediom := 0;
   for i := 1 to max do
    for j := 1 to max do
    begin
     if mat[i,j] > mayor then
     begin
        mayor := mat[i,j];
     end;
     if mat[i,j] < menor then
     begin
        menor := mat[i,j];
     end;
      suma := suma + mat[i,j];
    end;
    cont := (max * max);
    promediom := suma/cont;
    writeln('el mayor es : ', mayor);
    writeln('el menor es : ', menor);
    writeln('el promedio es : ', promediom:0:2);
  end;
 
 begin
    clrscr;
    llenarcero;
     writeln('A continuacion digite los valores para cada fila y columna');
     writeln('');
     llenarvalor;
     sumarfila;
     sumacolumnas;
     writeln;
     writeln('La matriz ordena y sumada es la siguiente');
     writeln;
     writeln;
     imprimir;
     imprimird;
     mayor;
     readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar