-
Lenguaje
Pascal
-
Descripción
Identificar de 30 personas que entran a un restaurante, cuantas de ellas prefieren el almuerzo con ensalada, cuantas, sin ensalada, además del total que se facturo por el total de los almuerzos, conociendo que un almuerzo completo tiene un costo de $11,500 y sin ensalada $10,750.
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
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
program AlmuerzoConEnsalada;
uses crt;
var almuerzo_con_ensalada, costo, i, prefieren_con_ensalada, prefieren_sin_ensalada : integer;
var total : integer;
begin
prefieren_con_ensalada := 0;
prefieren_sin_ensalada := 0;
total := 0;
for i:=1 to 30 do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de almuerzo con ensalada.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (almuerzo_con_ensalada);
if (almuerzo_con_ensalada<1) or (almuerzo_con_ensalada>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (almuerzo_con_ensalada>=1) and (almuerzo_con_ensalada<=2);
if almuerzo_con_ensalada=1 then
begin
costo := 11500;
prefieren_con_ensalada := prefieren_con_ensalada+1;
end
else
begin
costo := 10750;
prefieren_sin_ensalada := prefieren_sin_ensalada+1;
end;
total := total+costo;
writeln ('Valor de costo: ', costo);
writeln;
end;
writeln ('Valor de prefieren con ensalada: ', prefieren_con_ensalada);
writeln ('Valor de prefieren sin ensalada: ', prefieren_sin_ensalada);
writeln ('Valor de total: ', total);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var almuerzo_con_ensalada, costo, i, prefieren_con_ensalada, prefieren_sin_ensalada : integer;
var total : integer;
begin
prefieren_con_ensalada := 0;
prefieren_sin_ensalada := 0;
total := 0;
for i:=1 to 30 do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de almuerzo con ensalada.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (almuerzo_con_ensalada);
if (almuerzo_con_ensalada<1) or (almuerzo_con_ensalada>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (almuerzo_con_ensalada>=1) and (almuerzo_con_ensalada<=2);
if almuerzo_con_ensalada=1 then
begin
costo := 11500;
prefieren_con_ensalada := prefieren_con_ensalada+1;
end
else
begin
costo := 10750;
prefieren_sin_ensalada := prefieren_sin_ensalada+1;
end;
total := total+costo;
writeln ('Valor de costo: ', costo);
writeln;
end;
writeln ('Valor de prefieren con ensalada: ', prefieren_con_ensalada);
writeln ('Valor de prefieren sin ensalada: ', prefieren_sin_ensalada);
writeln ('Valor de total: ', total);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.