Pascal

Sergio Espeleta

Programas de pascal

Prefema

MC.Nohemì Espino

6º A

Programa que sume, reste, multiplique y divida 2 números.

Program Uri;
Var
B,a:integer;
C:integer;
BeginWriteln(‘Introduzca un numero(a):’);
Readln(a);
Writeln(‘Introduzca otro numero(b):’);
Readln(b);
C:=a+b;
C:=a-b;
C:=a*b;
C:=a/b;
Writeln(‘El resultado es:’);
Writeln(c);
END.

Program Paña;Var
A,b,c:integer;
Begin
Writeln(‘Este programa suma dos números’);
Writeln(‘ ‘);
Writeln(‘Introduzca un número:’); readln(a);
Writeln(‘Introduzca otro número:’); readln(b);
Writeln(‘ ‘);c:=a+b;
Writeln(‘El resultado es:’);
Writeln(c);
End.

Program esfera;
Uses crt;
Var radio:real;
Var volumen:real;
Begin
Radio:=3;
Volumen:=(4/3)*3.1416*(radio*radio*radio);
ClrScr;Write(‘volumen de la esfera:’); write(volumen);
END.

Program serch;
Uses crt;
Var radio:real;
Var volume:real;
Begin
ClrScr;
Writeln(‘Para calcular el volumen de la esfera escriba el radio’);Readln(radio);
Volumen:=(4/3)*3.1416*(radio*radio*radio);
Write(‘volumen de la esfera’); write(volume:5:2);
End.

Program corredor1;
Uses crt;
Var d:real;
Var t:real;
Var v:real;
Begin
D:=10;T:=60;
V:=d div t;
ClrScr;
Writeln(‘La velocidad del corredor es:’); write(v);
END.

Program ecuación;
Uses crt;
Var
A,b,c,r:real;
Begin
A:=3;
B:=6;
C:=4;
R:=(a+7)*c/(6+2-a)+2*6;Writeln(‘El resultado de la ecuación es:’);
Write(r);
END.

Program ecuación;
Uses crt;
Var
A,b,c,x,y:real;
Begin
A:=1;
B:=-16;
C:=36;
X:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);y:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
Write(‘El resultado es:’); write(x);
Write(‘El resultado es:’); write(y);
END.

Program temperatura;
Uses crt;
Var
F,k,c:real;
Begin
C:=32;
F:=(c*1.8)+32;
K:=c+273.15;Write(‘El resultado en °Fharenheit es:’); write(f:2:5);
Write(‘El resultado en °Kelvin es:’); write(k:2:5);
END.

Program pana;
Uses crt;
Var
A:integer;
Begin
Writeln(‘Escribir el...