Amb més agilitat

Hui hem fet dos programes més complexos!
Primer hem fet un de càlculs amb una constant. Tracta de calcular el perímetre i l'àrea d'un cercle, Anem a vore'l:

Program circulo;
Uses     crt;
Var
             p, a, r: real;
Const
             pi=3,1415926;

Begin
            clrscr;
            write('Introduce radio: ');
            readln(r);
            P:=2*pi*r;
            A:=pi*r*r
            write('El perímetro del círculo de radio ',r,' es ',P:0:2,' y su área, ',A);
            readkey;
End.

Utilitze la expressió P:0:2, per que isca el resultat amb dues cifres decimals.



Després hem fet un de text simple, però utilitzant una condició i la taula de colors de la opció textcolor.


Program condicion;
Uses     crt;
Var
             c:char;
             nom:ansystring;

Begin
            clrscr;
            writeln('Hola');
            readkey;
            writeln('¿Cómo te llamas? ');
            readln(nom);
            writeln('Bienvenido a nuestro programa');
            readkey;
            write('¿Desea continuar? (s/n): ');
            readln(c);
            if c=s
            then
                        begin
                                    textcolor(10);
                                    writeln('De acuerdo, empecemos');
                        end
            else
                        begin
                                    textcolor(12);
                                    writeln('Tú te lo pierdes');
                        end;
            readkey;
End.