Pascal/Turbo Pascal - programa turbo pascal

   
Vista:

programa turbo pascal

Publicado por franco fuentesfranco94@gmail.com (1 intervención) el 26/04/2013 01:50:16
hola les queria hacer una consulta mi programa no esta del todo bien y estaria bueno que me ayuden a terminarlo...

1)¿cual es el candidato con mas votos?
2)¿cual es el candidato con menos votos?
3)¿cual es la provincia con mas votos?
4)¿cual es la provincia con menos votos?

program matricevec;
uses crt;

type
matriz=array[1..4,1..3] of integer;
vecnom=array[1..4] of string;
vectot=array[1..4] of integer;

var
i,j,s,pos,max,tot:integer;
m:matriz;
n:vecnom;
t:vectot;

begin
clrscr;
max:=0;
for i:=1 to 4 do
begin
writeln ('ingrese el nombre del candidato');
readln (n[i]);
s:=0;
for j:=1 to 3 do
begin
writeln ('ingrese los votos para el candidato en la prov ',j);
readln (m[i,j]);
s:=s+m[i,j];
end;
t[i]:=s;
end;
for i:=1 to 4 do
begin
if t[i]>max
then
begin
max:=t[i];

pos:=i;
end;
end;
writeln ('el candidato con mas votos es: ',n[pos],' con ',max,' votos');
readln;
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

programa turbo pascal

Publicado por ramon (2072 intervenciones) el 30/04/2013 21:25:56
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
{Esto serbia}
 
program matricevec;
uses crt;
 
type
  candidato = record
            nombre : string[80];
            prov1  : integer;
            prov2  : integer;
            prov3  : integer;
          end;
  matriz = array[1..4] of candidato;
 
 var
    cuenta : array[1..4] of integer;
    m : matriz;
    g, k, t : integer;
    prov : array[1..3] of word;
    i, temp : word;
 
 
   begin
     clrscr;
     t := 1;
     fillchar(prov,sizeof(prov),0);
   repeat
     write('  Entre Nombre              : ');
     readln(m[t].nombre);
     write('  Probincia [1] Entre botos : ');
     readln(m[t].prov1);
     write('  Probincia [2] Entre botos : ');
     readln(m[t].prov2);
     write('  Probincia [3] Entre botos : ');
     read(m[t].prov3);
     cuenta[t] := (m[t].prov1 + m[t].prov2 + m[t].prov3);
     prov[1] := prov[1]  + m[t].prov1;
     prov[2] := prov[2]  + m[t].prov2;
     prov[3] := prov[3]  + m[t].prov3;
     t := t + 1;
   until t > 4;
   for g := 1 to 3 do
     for k := 3 downto g - 1 do
     if prov[g] > prov[k] then
     begin
        temp := prov[g];
        prov[g] := prov[k];
        prov[k] := temp;
     end;
     for g := 1 to 4 do
       for k := 4 downto g - 1 do
       if cuenta[g] > cuenta[k] then
       begin
          i := cuenta[g];
          cuenta[g] := cuenta[k];
          cuenta[k] := i;
       end;
     clrscr;
     writeln('   candidato con mas votos   = ',cuenta[1]);
     writeln('   candidato con menos votos = ',cuenta[4]);
     writeln('   provincia con mas votos   = ',prov[1]);
     writeln('   provincia con menos votos = ',prov[3]);
     writeln;
     writeln('  Pulse [Enter]');
     readln;
   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