Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Holi
Language: PASCAL
Code:
{Autor: Sandoval Hern ndez Zaira Alicia.
Fecha: 09 de Febrero del 2016.
Asunto: Programa que calcula promedio y f¢rmula.
}
Program Promedio2;
Uses crt;
Var
        nombre,apaterno,amaterno:string;
        n1,n2,n3,n4,R,T,a,v,b,promedio,P:real;
Begin
        TextBackGround(7);
        Clrscr;
        TextColor(0);
        WriteLn('BIENVENIDO');
        WriteLn('**********');
        WriteLn(' *******');
        WriteLn('   ***');
        WriteLn('    *');
        TextBackGround(1);
        TextColor(14);
        Write('Teclea tu nombre: ');
        ReadLn(nombre);
        Write('Teclea tu apellido paterno: ');
        ReadLn(apaterno);
        Write('Teclea tu apellido materno: ');
        ReadLn(amaterno);
        WriteLn('Hola: ',nombre,' ',apaterno,' ',amaterno,'.');
        ReadLn;
        TextBackGround(5);
        TextColor(10);
        WriteLn('**PROMEDIO**');
        WriteLn(nombre,', inserta 4 n£meros para el calculo del promedio.');
        Write('Teclea el n£mero 1: ');
        ReadLn(n1);
        Write('Teclea el n£mero 2: ');
        ReadLn(n2);
        Write('Teclea el n£mero 3: ');
        ReadLn(n3);
        Write('Teclea el n£mero 4: ');
        ReadLn(n4);
        promedio:=(n1+n2+n3+n4)/4;
        WriteLn('El promedio de los 4 n£meros es: ',promedio:6:2);
        TextBackGround(3);
        TextColor(15);
        ReadLn;
        WriteLn('**CALCULO DE LA ECUACION**');
        WriteLn(nombre,', da valores a la siguiente ecuaci¢n:');
        WriteLn('   RT   a');
        WriteLN('P= -- - -');
        WriteLn('         2');
        WriteLn('   v-b  v');
        Write('Teclea el valor de R: ');
        ReadLn(R);
        Write('Teclea el valor de T: ');
        ReadLn(T);
        Write('Teclea el valor de a: ');
        ReadLn(a);
        Write('Teclea el valor de v: ');
        ReadLn(v);
        Write('Teclea el valor de b: ');
        ReadLn(b);
        P:=(R*T/(v-b))-(a/sqr(v));
        WriteLn('El resultado de la ecuaci¢n es: ',P:6:2);
        WriteLn('Gracias ',nombre,', por utilizar este programa');
        ReadLn;
End.
     
          
Comments: