Programa

Program PRECIO (input,output); {Ejercicio 1}

{Autor: René Caña}
{Fecha: 26-01-2013}
{Sist. Industriales: Programación de Computadoras}
{Calcular el precio de un coche en sus distintas etapas dedistribución}
{Datos de entrada: el precio del coche, en la variable ff, de tipo real}
{Datos de salida:
· Lo que gana el vendedor, en la variable vendedor, de tipo real
· El precio del cochecon impuesto y transporte, en la variable impuestos, de tipo real
· El precio del coche al público, en la variable público, de tipo real
}

uses
crt;
Const
comision = 0.10;
impuesto =200;
transporte = 150;
Var
ff, vendedor, impuestos, publico: real;
Begin
write('Escribe el precio del coche: ');
readln(ff);

vendedor := ff*comision;
impuestos := ff+impuesto+transporte;publico := ff*(1+comision) + impuesto + transporte;

writeln('Dinero que gana el vendedor: ',vendedor:0:2,' euros');
writeln('Precio del coche con impuesto y transporte: ',impuestos:0:2,'euros');
writeln('Precio de venta al publico: ',publico:0:2,' euros');
readkey;
End.

Program Semaforo(input, output);
{Autor: René Caña}
{Fecha: 26-01-2013}
{Sist. Industriales: Programación deComputadoras}
{Cambio de luces de un Semaforo}
{Datos de Entrada: El número de veces en que desee que cambie el semaforo}
{El número de veces, tipo entero}

uses crt;
type
TSemaforo = (Rojo,Verde, Ambar);
var
n, i, num: integer;
color: TSemaforo;
begin
Randomize;
ClrScr;
write('Escribe cuantas veces quieres que cambie: ');
readln(n);
num := random(n);
case num of
0:color := Rojo;
1: color := Verde;
2: color := Ambar;
end;
for i := 1 to n do begin
write('Color = ');
case color of
Rojo: begin TextColor(12); writeln('rojo'); end;
Verde:begin TextColor(10); writeln('verde'); end;
Ambar: begin TextColor(6); writeln('amarillo'); end;
end;
TextColor(7);
if color = Ambar then
color := Rojo
else...