-
Lenguaje
Pascal
-
Descripción
Desarrollar un algoritmo donde se ingrese la cantidad de mesas que comprará el cliente. Si la cantidad es hasta 200 mesas, el precio será de S/.50 por mesa. Si la cantidad es mayor a 200 y menor igual a 500, el precio será de S/.40. Si la cantidad es mayor a 500 y menor igual a 1000, el precio será S/.30. Y si la cantidad es mayor a 1000, el precio será S/.25. Imprimir el pago total que realizará el cliente.
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
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
program PagoPorMesas;
uses crt;
var cantidad_de_mesas, pago_total, precio : real;
begin
write ('Ingresa el valor de cantidad de mesas: ');
readln (cantidad_de_mesas);
precio := 0;
if cantidad_de_mesas<=200 then
begin
precio := 0.5;
end;
if (cantidad_de_mesas>200) and (cantidad_de_mesas<=500) then
begin
precio := 0.4;
end;
if (cantidad_de_mesas>500) and (cantidad_de_mesas<=1000) then
begin
precio := 0.3;
end;
if cantidad_de_mesas>1000 then
begin
precio := 0.25;
end;
pago_total := cantidad_de_mesas*precio;
writeln ('Valor de pago total: ', pago_total:0:6);
writeln ('Valor de precio: ', precio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_mesas, pago_total, precio : real;
begin
write ('Ingresa el valor de cantidad de mesas: ');
readln (cantidad_de_mesas);
precio := 0;
if cantidad_de_mesas<=200 then
begin
precio := 0.5;
end;
if (cantidad_de_mesas>200) and (cantidad_de_mesas<=500) then
begin
precio := 0.4;
end;
if (cantidad_de_mesas>500) and (cantidad_de_mesas<=1000) then
begin
precio := 0.3;
end;
if cantidad_de_mesas>1000 then
begin
precio := 0.25;
end;
pago_total := cantidad_de_mesas*precio;
writeln ('Valor de pago total: ', pago_total:0:6);
writeln ('Valor de precio: ', precio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.