-
Lenguaje
Pascal
-
Descripción
Permita el ingreso de la forma y el color de cada ficha tomada de un conjunto de 50 fichas; rojas y azules, redondas y cuadradas. Luego debera ir contado y al finalizar mostrar la cantidad de fichas redondas y azules, de rojas, y de cuadradas.
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
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
program FormaYColorDeCadaFicha;
uses crt;
var color, cuadradas, forma, i, redondas_y_azules : integer;
var rojas : integer;
begin
cuadradas := 0;
redondas_y_azules := 0;
rojas := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de color.');
writeln (' 1.- Roja');
writeln (' 2.- Azul');
write (' : ');
repeat
readln (color);
if (color<1) or (color>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (color>=1) and (color<=2);
writeln ('Selecciona el valor de forma.');
writeln (' 1.- Redonda');
writeln (' 2.- Cuadrada');
write (' : ');
repeat
readln (forma);
if (forma<1) or (forma>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (forma>=1) and (forma<=2);
if forma=2 then
begin
cuadradas := cuadradas+1;
end;
if (color=2) and (forma=1) then
begin
redondas_y_azules := redondas_y_azules+1;
end;
if color=1 then
begin
rojas := rojas+1;
end;
writeln;
end;
writeln ('Valor de cuadradas: ', cuadradas);
writeln ('Valor de redondas y azules: ', redondas_y_azules);
writeln ('Valor de rojas: ', rojas);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var color, cuadradas, forma, i, redondas_y_azules : integer;
var rojas : integer;
begin
cuadradas := 0;
redondas_y_azules := 0;
rojas := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de color.');
writeln (' 1.- Roja');
writeln (' 2.- Azul');
write (' : ');
repeat
readln (color);
if (color<1) or (color>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (color>=1) and (color<=2);
writeln ('Selecciona el valor de forma.');
writeln (' 1.- Redonda');
writeln (' 2.- Cuadrada');
write (' : ');
repeat
readln (forma);
if (forma<1) or (forma>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (forma>=1) and (forma<=2);
if forma=2 then
begin
cuadradas := cuadradas+1;
end;
if (color=2) and (forma=1) then
begin
redondas_y_azules := redondas_y_azules+1;
end;
if color=1 then
begin
rojas := rojas+1;
end;
writeln;
end;
writeln ('Valor de cuadradas: ', cuadradas);
writeln ('Valor de redondas y azules: ', redondas_y_azules);
writeln ('Valor de rojas: ', rojas);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.