PROGRAMAS EN PASCAL

Estos son unos cuantos programas para Pascal:

Suma
 program suma;
uses crt;
var a,b,c:real;
begin
     clrscr;
     write ('¨¿Cuál es la primera cantidad?');
     read (a);
     clrscr;
     write ('¨¿Cuál es la segunda cantidad?');
     read (b);
     clrscr;
     c:=a+b;
     write ('El resultado es:',c:5:2);
     writeln;
     writeln;
     read (c);
     write('¨¿Deseas hacer otra suma?')
     until r=s
     repeat
     end.

Resta
program resta;
uses crt;
var a,b,c:real;
begin
     clrscr;
     write ('¨¿Cuál es la primera cantidad?');
     read (a);
     clrscr;
     write ('¨¿Cuál es la segunda cantidad?');
     read (b);
     clrscr;
     c:=a-b;
     write ('El resultado es:',c:5:2);
     writeln;
     writeln;
     read (c);
end.

Multiplicación
program multip;
uses crt;
var a,b,c: real;
begin
     clrscr;
     write ('¨¿Cuál es la primera cantidad?');
     read (a);
     clrscr;
     write ('¨¿Cuál es la segunda cantidad?');
     read (b);
     clrscr;
     c:=a*b;
     write ('El resultado es:',c:5:2);
     writeln;
     writeln;
     read (c);
end.

División
program division;
uses crt;
var a,b,c:real;
begin
     clrscr;
     write ('¨¿Cuál es la primera cantidad?');
     read (a);
     clrscr;
     write ('¨¿Cuál es la segunda cantidad?');
     read (b);
     clrscr;
     c:=a/b;
     write ('El resultado es:',c:5:2);
     writeln;
     writeln;
     read (c);
end.


Área de un cuadrado
program areacuad;
uses crt;
var l,m,a:real;
begin
     clrscr;
     write ('¨¿Cuánto mide el primer lado?');
     read (l);
     clrscr;
     write ('¨¿Cuánto mide el segundo lado?');
     read (m);
     clrscr;
     a:=l*m;
     write ('El resultado es:',a:5:2);
     writeln;
     writeln;
     read (a);
end.

Àrea de un rectángulo
program arearec;
uses crt;
var h,b,a:real;
begin
     clrscr;
     write ('          ESTE PROGRAMA TE SIRVE PARA CALCULAR');
     write (                     ' EL AREA DE UN RECTANGULO');
     write ('                                     introduce la altura :  ');
     read (h);
     clrscr;
     write ('introduce la base :  ');
     read (b);
     clrscr;
     a:=h*b;
     write (' el área es : ',a:5:2);
     writeln;
     writeln;
     read (a);
     end.


Área de un triángulo
program areatri;
uses crt;
var b,h,a:real;
begin
     clrscr;
     write ('¨¿Cuánto mide la base?');
     read (b);
     clrscr;
     write ('¨¿Cuánto mide la altura?');
     read (h);
     clrscr;
     a:=(b*h)/2;
     write ('El resultado es:',a:5:2);
     writeln;
     writeln;
     read (a);
end.

Área de un círculo
program areacirc;
uses crt;
var r,ac:real;
const pi=3.1416;
begin
     clrscr;
     write ('ESTE PROGRAMA SIRVE PARA CALCULAR EL µREA DE UN CÖRCULO');
     write ('¨¿Cuánto mide el radio del círculo?');
     read (r);
     clrscr;
     ac:=pi*(r*r);
     write ('El  área es:',r:5:2);
     writeln;
     writeln;
     read (r);
end.

Nombre
program nombre;
var a,b,c:string;
begin
write ('Dame tu(s) nombre(s):');
readln (a);
write ('Dame tu apellido paterno:');
readln (b);
write ('Dame tu apellido materno:');
readln (c);
write ('Tu nombre es:');
write (a,b,c);
writeln;
writeln;
end.

Reloj primero
program reloj2;
var hora,
    minuto,
    segundo:integer;
begin
    for hora:=0 to 23 do
    for minuto:=0 to 59 do
    for segundo:=0 to 59 do
    begin
    write (hora,':',minuto,':',segundo);
    if hora < 7 then
    writeln('de la madrugada')
    else if (hora>=7)and(hora<12)then
    writeln ('de la mañana');
    else if (hora>=12)and(hora<20)then
    writeln (' de la tarde');
    else writeln('de la noche');
    end;
    end.

Reloj segundo
program reloj;
uses crt;
var h,m,s:integer;
begin
clrscr;
for h:=0 to 23 do
for m:= 0 to 59 do
for s:=0 to 59 do
begin
clrscr;
write(h,':',m,':',s,':');
 if h < 7 then
writeln (' Por la madrugada')
 else if(h >=7 ) and ( h<12) then
writeln (' Por la mañana')
 else if (h >=12) and (h<20) then
writeln (' Por la tarde')
else writeln ('Por la noche');
delay(1000);
end;
end.