-
Lenguaje
Pascal
-
Descripción
Una compañía fabrica focos de colores (verdes, blancos y rojos). Se desea contabilizar, de un lote de N focos, el número de focos de cada color que hay en existencia.
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
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
program FabricaDeFocos;
uses crt;
var color, focos_blancos, focos_rojos, focos_verdes, i : integer;
var n : integer;
begin
focos_verdes := 0;
focos_blancos := 0;
focos_rojos := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de color.');
writeln (' 1.- verde');
writeln (' 2.- blanco');
writeln (' 3.- rojo');
write (' : ');
repeat
readln (color);
if (color<1) or (color>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (color>=1) and (color<=3);
if color=1 then
begin
focos_verdes := focos_verdes+1;
end;
if color=2 then
begin
focos_blancos := focos_blancos+1;
end;
if color=3 then
begin
focos_rojos := focos_rojos+1;
end;
writeln;
end;
writeln ('Valor de focos verdes: ', focos_verdes);
writeln ('Valor de focos blancos: ', focos_blancos);
writeln ('Valor de focos rojos: ', focos_rojos);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var color, focos_blancos, focos_rojos, focos_verdes, i : integer;
var n : integer;
begin
focos_verdes := 0;
focos_blancos := 0;
focos_rojos := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de color.');
writeln (' 1.- verde');
writeln (' 2.- blanco');
writeln (' 3.- rojo');
write (' : ');
repeat
readln (color);
if (color<1) or (color>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (color>=1) and (color<=3);
if color=1 then
begin
focos_verdes := focos_verdes+1;
end;
if color=2 then
begin
focos_blancos := focos_blancos+1;
end;
if color=3 then
begin
focos_rojos := focos_rojos+1;
end;
writeln;
end;
writeln ('Valor de focos verdes: ', focos_verdes);
writeln ('Valor de focos blancos: ', focos_blancos);
writeln ('Valor de focos rojos: ', focos_rojos);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.