Programa pascal (a+7*c)/(b+2-a)+2*b a = 3,b = 6,c = 4


1. Escribir un programa en Pascal que evalúe la siguiente expresión:

(a+7*c)/(b+2-a)+2*b a = 3,b = 6,c = 4

PROGRAM EJER08;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;BEGIN
a:=3;
b:=6;
c:=4;

resultado:=(a+7*c)/(b+2-a)+2*b;

ClrScr;

WRITE ('RESULTADO:'); WRITE (resultado:5);
END.

PROGRAM EJER8B;USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;

BEGIN
{Este programa calcula una expresion algebraica}

ClrScr;

WRITELN ('Este programa sirve para calcular lasiguiente
expresion:');
WRITELN ('(a+7*c)/(b+2-a)+2*b');
WRITELN (' ');
WRITE ('Introduzca a: '); READLN (a);
WRITE ('Introduzca b: '); READLN (b);WRITE ('Introduzca c: '); READLN (c);

resultado:=(a+7*c)/(b+2-a)+2*b;
WRITELN (' ');
WRITE ('RESULTADO: '); WRITE (resultado:5:2);

END.







2. Escribirun programa que calcule la longitud y el área de una
Circunferencia:

radio = 4 longitud de la circunferencia = 2 * PI * radio
área de la circunferencia = PI * radio2

PROGRAM EJER05;
USESCRT;
VAR radio:REAL;
VAR longitud,area:REAL;

BEGIN
radio:=4;
longitud:=2*3.1416*radio;

area:=3.1416*radio*radio;

ClrScr;

WRITE ('LONGITUD DELA CIRCUNFERENCIA:'); WRITELN
(longitud:5:2);
WRITE ('AREA DE LA CIRCUNFERENCIA:'); WRITE (area:5:2);

END.


PROGRAM EJER5B;
USES CRT;
VAR radio:REAL;
VARlongitud,area:REAL;

BEGIN
{Este programa calcula la longitud y el area de una
circunferencia}

ClrScr;

WRITELN ('LONGITUD Y AREA DE UNA CIRCUNFERENCIA');
WRITELN (' ');WRITE ('Escriba el radio: '); READLN (radio);
WRITELN (' ');

longitud:=2*3.1416*radio;

area:=3.1416*radio*radio;


WRITE ('LONGITUD DE LA CIRCUNFERENCIA:...