Programas En Pascal
Enviado por Larousee • 21 de Marzo de 2013 • 430 Palabras (2 Páginas) • 362 Visitas
Escribir un programa en Pascal que sume los números comprendidos
entre 1 y 10.
PROGRAM EJER47;
USES CRT;
VAR num, x:INTEGER;
BEGIN
ClrScr;
num:=1;
x:=1;
WHILE num<= 10 DO
BEGIN
WRITELN (x);
num:= num + 1;
x:= x + num;
END;
END.
Escribir un programa en Pascal que sume los números comprendidos
entre 1 y 10.
PROGRAM EJER47;
USES CRT;
VAR num, x:INTEGER;
BEGIN
ClrScr;
num:=1;
x:=1;
WHILE num<= 10 DO
BEGIN
WRITELN (x);
num:= num + 1;
x:= x + num;
END;
END.
Escribir un programa en Pascal que sume los números comprendidos
entre 1 y 10.
PROGRAM EJER47;
USES CRT;
VAR num, x:INTEGER;
BEGIN
ClrScr;
num:=1;
x:=1;
WHILE num<= 10 DO
BEGIN
WRITELN (x);
num:= num + 1;
x:= x + num;
END;
END.
Realizar un programa que calcula la edad de una persona
programedadp;
Uses WinCrt;
var
anoa,anodn,edad: real;
begin
writeln ('Escriba el año actual');
readln (anoa);
writeln ('Escriba el año de nacimiento de la persona');
readln (anodn);
edad:= anoa-anodn;
writeln ('La edad de la persona es de: ‘ ,edad:2:2, ' años');
end.
Realizar un programa que haga las operaciones básicas con los números del 1 al 6.
Program suma;
Uses WinCrt;
begin
writeln (3+4*5);
writeln ((3+4)*5);
writeln ((3+4)*5+6);
writeln ((3+4)*(5+6));
end.
Realizar un programa que solicite dos números y que con ellos haga las operaciones básicas.
programnumsrm;
Uses WinCrt;
var num1,num2,resul: integer;
begin
writeln ('Escriba el primer numero');
readln (num1);
writeln ('Escriba el segundo numero');
readln (num2);
if num1=num2 then
begin
resul:= num1*num2;
writeln ('El resultado es de: ',resul);
end
else
if num1>num2 then
begin
resul:=num1-num2;
writeln ('El resultado es de: ',resul);
end
else
...