Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » problema

Pascal/Turbo Pascal - problema

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

problema

Publicado por a (2 intervenciones) el 06/08/2021 17:02:53
Presento un pequeño problema por favor ayudenme
Program acrividad;
uses crt;
var
edad,c5,c4,c3,c2,c1,edades,io,pa,z:INTEGER;
a,ve,ex : char;

Begin
clrscr;
c1 := 0;
c2 := 0;
c3 := 0;
c4 := 0;
c5 := 0;
repeat
writeln ('Por favor indicanos tu edad');
read (edad);
if edad >= 18 then
begin
writeln('Por favor indicanos su nacionalidad');
writeln('ve o ex');
read (a);
if a=ve then
begin
writeln('Por favor indicanos que candidato desea votar');
writeln('1: candidato HCF');
writeln('2: candidato HCR');
writeln('3: candidato MM');
writeln('4: candidato LP');
writeln('5: candidato KZ');
read (io);
case io of
1:
begin
c1:=c2+1;
end;
2:
begin
c2:=c2+1;
end;
3:
begin
c3:=c3+1;
end;
4:
begin
c4:=c4+1;
end;
5:
begin
c5:=c5+1;
end;
end;
end
else
begin
writeln('No puede votar usted no es venezolano');
end;
end
else
begin
writeln('Eres menor de edad no puedes votar');
end;
writeln('¿Todavia hay personas en espera?');
writeln('1:si');
writeln('2:no');
read(io);
until io:=2
writeln('el candidato HCR obtuvo' ,c2 'votos');
writeln('el candidato MM obtuvo',c3'votos');
writeln('el candidato LP obtuvo',c4'votos');
writeln('el candidato KZ obtuvo',c5'votos');
mayor:=c1;
if c2>mayor then
begin
mayor :=2;
end;
if c3>mayor then
begin
mayor :=3;
end;
if c4>mayor then
begin
mayor :=4;
end;
if c5>mayor then
begin
mayor :=5;
end;
writeln('El ganador obtuvo',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
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

problema

Publicado por dario (87 intervenciones) el 06/08/2021 17:49:13
Hola, no entiendo lo que quieres. Podrias poner el enunciado del problema.
Salu2.
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
sin imagen de perfil

problema

Publicado por a (2 intervenciones) el 06/08/2021 21:19:47
Necesito hacer un programa que me indique el porcentaje de votos de 5 candidatos
se tiene que votare a los que no son mayores de edad o extranjero
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
sin imagen de perfil
Val: 112
Bronce
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

problema (no definido, pero en fin...)

Publicado por juanba (40 intervenciones) el 06/08/2021 18:28:27
Aqui te dejo una versión que probablemente haga lo que necesitas. Quedan temas pendientes como formatear correctamente el texto, resolver el caso de empates,... pero eso te lo dejo para que lo pases bien.

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
Program acrividad;
uses crt;
var
edad,c5,c4,c3,c2,c1,c0, edades,io,pa,z, nacionalidad, mayor:INTEGER;
a,ve,ex : char;
winner: string;
 
Begin
clrscr;
c0 := 0;
c1 := 0;
c2 := 0;
c3 := 0;
c4 := 0;
c5 := 0;
repeat
writeln ('Por favor indicanos tu edad');
readln (edad);
if edad >= 18 then
begin
writeln('Por favor indicanos su nacionalidad');
writeln('Venezolano (v) o Extranjero (e)');
readln(a);
if (a = 'V') or (a = 'v') then
begin
writeln('Por favor indicanos que candidato desea votar');
writeln('1: candidato HCF');
writeln('2: candidato HCR');
writeln('3: candidato MM');
writeln('4: candidato LP');
writeln('5: candidato KZ');
writeln('0: voto en blanco');
readln (io);
case io of
0:
begin
c0:=c0+1;
end;
1:
begin
c1:=c1+1;
end;
2:
begin
c2:=c2+1;
end;
3:
begin
c3:=c3+1;
end;
4:
begin
c4:=c4+1;
end;
5:
begin
c5:=c5+1;
end;
end;
end
else
begin
writeln('No puede votar usted no es venezolano');
end;
end
else
begin
writeln('Eres menor de edad no puedes votar');
end;
writeln('¿Todavia hay personas en espera?');
writeln('1:si');
writeln('2:no');
readln(io);
until io=2;
 
writeln('el candidato HCF obtuvo ' ,c1,' votos');
writeln('el candidato HCR obtuvo ' ,c2,' votos');
writeln('el candidato MM obtuvo ', c3, ' votos');
writeln('el candidato LP obtuvo ', c4, 'votos');
writeln('el candidato KZ obtuvo ', c5, 'votos');
mayor:=c1;
winner := 'HCF';
if c2>mayor then
begin
mayor :=c2;
winner := 'HCR';
end;
if c3>mayor then
begin
mayor :=c3;
winner := 'MM';
end;
if c4>mayor then
begin
mayor :=c4;
winner := 'LP';
end;
if c5>mayor then
begin
mayor :=c5;
winner := 'KZ';
end;
writeln('El ganador, ', winner, ', obtuvo ', mayor, ' votos y hubo ', c0, ' votos en blanco');
Readln;
end.

Suerte.
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
sin imagen de perfil
Val: 36
Ha aumentado su posición en 4 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

problema

Publicado por Armando José Fuenmayoe (43 intervenciones) el 07/08/2021 13:33:38
program blink;
uses crt;
var
conA,
conB,
conC,
conD,
conE,
conNULO: integer;



procedure resultado(c1,
c2,c3,c4,c5,nulos:integer);
function porcentaje(total,can:integer): real;
begin
porcentaje := (can / total) * 100;
end;

var
re : array[1..7] of integer;
nombre : array[1..7] of string;
todo, tem, i , j : Integer;
temnom : string;


begin
nombre[1] := 'Candidato A';
nombre[2] := 'Candidato B';
nombre[3] := 'Candidato C';
nombre[4] := 'Candidato D';
nombre[5] := 'Candidato E';
nombre[6] := 'VOTOS NULOS';
nombre[7] := ' TOTAL ';

todo := 0;
todo := c1+c2+c3+c4+c5+nulos;


re[1] := c1;
re[2] := c2;
re[3] := c3;
re[4] := c4;
re[5] := c5;
re[6] := nulos;
re[7] := todo;


for i:=1 to 4 do
for j:= i+1 to 5 do
if re[i] < re[j] then
begin
tem := re[i];
temnom := nombre[i];

re[i] := re[j];
nombre[i] := nombre[j];

re[j] := tem;
nombre[j] := temnom;

end;

Writeln('-------------------------------------------');
Writeln('| Nombres | N° Votos | % |');
Writeln('-------------------------------------------');

for i := 1 to 6 do
begin
Writeln('| ',nombre[i],' |' ,re[i]:9, ' | ',porcentaje(todo,re[i]):9:2,'% |');
end;
Writeln('-------------------------------------------');
Writeln('| ',nombre[7],' |' ,re[7]:9, ' | ',porcentaje(todo,re[7]):9:2,'% |');
Writeln('-------------------------------------------');



end;


begin
clrscr();
(*
supongase que se tienen
la cantidad de votos
de cada candidato y
los votos nulos

*)

conA := 50;
conB := 100 ;
conC := 130;
conD := 101;
conE := 90;
conNULO := 0;


resultado(conA,conB,conC,conD,conE,conNULO);


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