En este vídeo crean un programa que calcula el precio final según un descuento. Vamos a verlo como se hace en Object Pascal
Crea un programa nuevo.
Ahora escribe el siguiente código.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program Project1; {$mode objfpc}{$H+} uses SysUtils; Var Precio ,Descuento : integer; PrecioFinal : Double; begin Writeln ('Introduce el precio (Euros)'); Readln(Precio); WriteLn ('Introduce el descuento (%)'); Readln(Descuento); PrecioFinal :=(Precio*(1-descuento /100)); Writeln('Precio final con descuento: '+FloatToStr(PrecioFinal)); Readln(); end. |
Añadimos la clausula SysUtils. Declaramos las variables, precio para almacenar el precio original, descuento, para almacenar el descuento. Y la variable preciofinal para almacenar el resultado
Pedimos el precio y el descuento. Realizamos la operación Y por último mostramos el texto indicando el precio final.
Saludos.