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.
