Cases

Program Cases_2;
Uses WinCrt;
Var i,op,n,j:integer;
nombre:string;
resp:char;
precio,totalventas,suma:real;
Begin
Writeln ('***MENÚ CASES II***');
Writeln ('');
Writeln ('***1-Cálculo de números***');
Writeln ('***2-Cálculo de números de 1 a 100, pares, divisibles entre 5***');
Writeln ('***3-Cálculo de precios de productos seleccionados***');
Writeln ('');
Writeln ('***Su opción entre 1 a 3 es***');
Readln (op);
ClrScr;




Case op of
1:Begin
Writeln ('***SUBMENÚ Cálculo de números***');
Writeln ('');
Writeln ('***1-Números pares***');
Writeln ('***2-Números impares***');
Writeln ('***3-Números primos***');
Writeln ('');
Writeln ('***Su opción entre 1 a 3 es***');
Readln (op);
ClrScr;




If op=1 then
Begin
Writeln ('***Números pares***');
Writeln ('');
For i:=1 to 30 do
If ((i mod 2)=0) then
Writeln ('***WeeehWilly***', i);
End;




If op=2 then
Begin
Writeln ('***Números impares***');
Writeln ('');
For i:=1 to 30 do
If ((i mod 2)=1) then
Writeln ('***WeeehWilly***', i);
End;




If op=3 then
Begin
Writeln ('***Números primos***');
Writeln ('');
For i:=1 to 30 do
If ((i mod 2)=1) and (i<>9) and (i<>15) and (i<>21) and (i<>25) and (i<>27) or (i=2) then
Writeln ('***WeeehWilly***', i);
End;




If (op<>1) and (op<>2) and (op<>3) then
Writeln ('***Opción no válida***');
End;




2:Begin
Writeln ('***Números del 1 al 100, pares, divisibles entre 5***');
Writeln ('');
For i:=1 to 100 do
If ((i mod 5)=0) and ((i mod 2)=0) then
Writeln ('***WeeehWilly***', i);
End;




3:Begin
Writeln ('***Cálculo de precios de productos seleccionados***');
Writeln ('');
REPEAT
j:=j+1;
Writeln ('***Ingrese nombre del producto***');
Readln (nombre);
Writeln ('');
Writeln ('***Ingrese precio del producto***');
Readln (precio);
Writeln ('');
Writeln ('***El precio de producto es: ***', precio:5:3);
Writeln ('');
suma:=suma+precio;
Writeln ('***Desea obtener otro producto, S/N***');
Readln (resp);
UNTIL resp='N';
Writeln ('***La cantidad de artículos es: ***', j);
Writeln ('***El precio total es: ***', suma:5:3);
totalventas:=suma/j;
Writeln ('***El promedio de las ventas es de: ***', totalventas:5:3);
End;
End;




If (op<>1) and (op<>2) and (op<>3) then
Writeln ('***Opción no válida***');
End.