Pascal/Turbo Pascal - programa turbo pascal

programa turbo pascal

Publicado por franco (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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

programa turbo pascal

Publicado por ramon (2158 intervenciones) el 30/04/2013 21:25:56

{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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar