Program precio;
Uses
Crt;
Var.
Pre1,Uti1,Cont1,Credit1:Real;
Pre2,Uti2,Cont2,Credit2:Real;
Pre3,Uti3,Cont3,Credit3:Real;
Begin
Clrscr;
Writeln(‘ingrese precio del producto 1:’);
Readln(pre1);
Writeln(‘ingrese el precio del producto 2:’);
Readln(pre2);
Writeln(‘ingrese el precio del producto 3’);
Readln(pre3);
Uti1: = pre1*30/100;
Iva1: pre1*21/100;
Cont1: pre1-(pre1*5/100);
Credit1: =pre1+(pre1*15/100);
Uti2: = pre2*30/100
Iva2: pre2*21/100
Cont2: pre2-(pre2*5/100)
Credit2: =2pre+(pre2*15/100)
Uti3: = pre3*30/100
Iva3: pre3*21/100
Cont3: pre3-(pre3*5/100)
Credit3: =pre3+(pre3*15/100)
Clrscr;
Writeln(‘los precios son los siguientes:’);
ClrScr;
Writeln(‘ la utilidad del producto 1 es ‘ uti1: 2:2);
Writeln(‘ el iva del producto 1 es ‘ iva1: 2:2);
Writeln(‘ el precio contado del producto uno es es ‘ cont1: 2:2);
Writeln(‘ el credito del producto 1 es ‘ credit1: 2:2);
Writeln(‘ la utilidad del producto 2 es ‘ uti2: 2:2);
Writeln(‘ el iva del producto 2 es ‘ iva2: 2:2);
Writeln(‘ el precio contado del producto uno es ‘ cont2: 2:2);
Writeln(‘ el credito del producto 2 es ‘ credit2: 2:2);
Writeln(‘ la utilidad del producto 3 es ‘ uti3: 2:2);
Writeln(‘ el iva del producto 1 es ‘ iva3: 2:2);
Writeln(‘ el precio contado del producto uno es ‘ cont3: 2:2);
Writeln(‘ el credito del producto 1 es ‘ credit3: 2:2);
ReadKey;
End.
Buenooo este es le ejemplo de como crear un programa.
lo primero es poner el nombre al programa (program ejemplo;) siempre cuando programamos tenemos que poner (
para qe se pueda ejecutar.
luego de esto
dejamos un espacio y ponemos Uses Crt; (que significa Usar la Unidad) esto nos sirve y mucho en el programa.
luegoo declaramos las variables que vamos a utilizar ejemplo (VAR Nombre: String; Numero:REal; ) este comando nos sirve para representar los datos qe vamos a utilizar.
luego de esto
ponemos BEGIN que significa COMENZAR
Siempre despues del begin va CLRSCR; ( Clear Screen) significa borrar la pantalla y fijense qe va con ;
buenoo
Necesitamos el programa nos diga algo para eso vamos a poner lo siguiente
writeln('');(esto significa escribir en la linea)
una ves que ponemos esoo vamos a querer qe responda.
entonces le ponemos ReadLn(); (dentro de los parentesis va una variable que nosotros le asignameros el nombre y que despues tenemos que especificar si es numerica(real,integer) o alfanumerica(string) es para eso)
una vez que ponen esooo una
vez que quieren terminar el programa.
le ponen un Readkey(esto significa que puedan leer todo)
y un END.
eso es todo
les dejo un ejemplo mas sobre este ejemploo
Program Braian;
Uses
Crt;
Var
Numero: Real;
Nombre: String;
Begin
ClrScr;
WriteLn('Ingrese su nombre');
ReadLn(nombre);
WriteLn('Ingrese un numero');
ReadLn(numero);
ClrScr;
Writeln('Su nombre es:',nombre);
WriteLn('su numero es: ',numero);
ReadKey;
end.