-
Lenguaje
Pascal
-
Descripción
Pida al usuario el nombre de un artículo, su precio de compra y su precio de venta. Calcule la utilidad (recuerde utilidad = precio_compra – precio_venta), si la utilidad es mayor a 0 muestre un mensaje en el que diga "el artículo" nombre_articulo, "dejó ganancia" de lo contrario diga "el artículo", nombre_artículo "dejó perdiada".
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
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
program UtilidadDeUnArticulo;
uses crt;
var precio_compra, precio_venta, utilidad : real;
var nombre_del_articulo : string;
begin
write ('Ingresa el nombre del articulo: ');
readln (nombre_del_articulo);
write ('Ingresa el valor de precio compra: ');
readln (precio_compra);
write ('Ingresa el valor de precio venta: ');
readln (precio_venta);
utilidad := precio_compra-precio_venta;
if utilidad>0 then
begin
writeln ('El art'#161'culo dej'#162' ganancia.');
end
else
begin
writeln ('El art'#161'culo dej'#162' perdiada.');
end;
writeln ('Nombre del articulo: ', nombre_del_articulo);
writeln ('Valor de utilidad: ', utilidad:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var precio_compra, precio_venta, utilidad : real;
var nombre_del_articulo : string;
begin
write ('Ingresa el nombre del articulo: ');
readln (nombre_del_articulo);
write ('Ingresa el valor de precio compra: ');
readln (precio_compra);
write ('Ingresa el valor de precio venta: ');
readln (precio_venta);
utilidad := precio_compra-precio_venta;
if utilidad>0 then
begin
writeln ('El art'#161'culo dej'#162' ganancia.');
end
else
begin
writeln ('El art'#161'culo dej'#162' perdiada.');
end;
writeln ('Nombre del articulo: ', nombre_del_articulo);
writeln ('Valor de utilidad: ', utilidad:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.