DCFVGBNMJK



8 PROGRAM EJER07;
USES CRT;
VAR radio:REAL;
VAR volumen:REAL;
Const pi :3.1416
BEGIN
clrscr
radio:=3;
volumen:=(4/3)*3.1416*(radio*radio*radio);

ClrScr;

WRITE ('VOLUMEN DE LA ESFERA:'); WRITE(volumen);
END.

PROGRAM EJER7B;
USES CRT;
VAR radio:REAL;
VAR volumen:REAL;
BEGIN
{Este programa calcula el volumen de una esfera}

ClrScr;

WRITELN ('PARA CALCULAR EL VOLUMENDE LA ESFERA ESCRIBA EL
RADIO: ');
READLN (radio);

volumen:=(4/3)*3.1416*(radio*radio*radio);

WRITE ('VOLUMEN DE LA ESFERA: '); WRITE(volumen:5:2);
END.

7 PROGRAM EJER06; {Autor: Victor Sanchez Sanchez email: victorss18@hotmail.com}
USES CRT;
VAR espacio,tiempo:REAL;
VAR velocidad:REAL;
BEGIN
espacio:=2;
tiempo:=5;velocidad:=(espacio*1000)/(tiempo*60);
ClrScr;
WRITE ('VELOCIDAD DEL PROYECTIL:');
WRITE (velocidad:5:2); WRITE ('m/s');
END.

PROGRAM EJER6B; {Autor: Victor Sanchez Sanchez email: victorss18@hotmail.com}
USES CRT;
VAR espacio,tiempo,espacio2,tiempo2:REAL;
VAR velocidad,velocidad2:REAL;
BEGIN
{Este programa calculala velocidad de un cuerpo}
ClrScr;
WRITE ('Para calcular la velocidad debe escribirlo en unidades ');
WRITE ('del sistema internacional');
WRITELN (' ');
WRITE ('Escriba el espacio recorrido: '); READLN (espacio);
WRITE ('Escriba el tiempo transcurrido: '); READLN (tiempo);
WRITELN (' ');velocidad:=(espacio)/(tiempo);
WRITE ('VELOCIDAD DEL PROYECTIL: ');
WRITE (velocidad:5:2); WRITELN (' m/s');
WRITELN (' ');
WRITELN ('Si lo desea en Km/h introduzca los datos: ');
WRITELN (' ');
WRITE ('Escriba el espacio recorrido: '); READLN (espacio2);
WRITE ('Escriba el tiempo transcurrido: '); READLN (tiempo2);
WRITELN (' ');velocidad2:=(espacio2)/(tiempo2);
WRITE (velocidad2:5:2); WRITE (' Km/h ');
END.
PROGRAM EJER06;
USES CRT;
VAR espacio,tiempo:REAL;
VAR velocidad:REAL;
BEGIN
espacio:=2;
tiempo:=5;
velocidad:=(espacio*1000)/(tiempo*60);
ClrScr;
WRITE('VELOCIDAD DEL PROYECTIL:');
WRITE(velocidad:5:2); WRITE('m/s');
END.

13 PROGRAM EJER15; {Autor: Victor Sanchez Sanchez email: victorss18@hotmail.com}
USES CRT;
VAR arista:REAL;
VAR area, volumen:REAL;
BEGIN
arista:=4;
area:= 2 * sqr(arista) * sqrt(3);
volumen:= ((sqr(arista) * arista) / 3) * sqrt(2);
WRITE ('AREA DEL OCTAEDRO: '); WRITELN(area);
WRITE('VOLUMEN DEL OCTAEDRO: '); WRITE(volumen);
END.
PROGRAM EJER15B; {Autor: Victor Sanchez Sanchez email: victorss18@hotmail.com}
USES CRT;
VAR arista:REAL;
VAR area, volumen:REAL;
BEGIN
{Sirve para calcular el area y el volumen de un tetraedro}
WRITELN ('PARA CALCULAR EL AREA Y VOLUMEN DE UN TETRAEDRO: ');
WRITE('ESCRIBA EL VALOR DE LA ARISTA: '); READLN (arista);
WRITELN (' ');
area:= 2 * sqr(arista) * sqrt(3);
volumen:= ((sqr(arista) * arista) / 3) * sqrt(2);
WRITE ('AREA DEL OCTAEDRO: '); WRITELN (area:5:2);
WRITE ('VOLUMEN DEL OCTAEDRO: '); WRITE (volumen:5:2);
END.

14 PROGRAM EJER18; {Autor: Victor Sanchez Sanchez email:victorss18@hotmail.com}
USES CRT;
VAR a,b,c:REAL;
VAR x1,x2:REAL;
BEGIN
a:=6;
b:=6;
c:=1;
x1:= (-b + sqrt(sqr(b) - (4 * a * c))) / 2 * a;
x2:= (-b - sqrt(sqr(b) - (4 * a * c))) / 2 * a;
WRITE ('SOLUCION 1:'); WRITELN (x1);
WRITE ('SOLUCION 2:'); WRITE (x2);
END.
PROGRAM EJER18B; {Autor:...