asgdas

AMDG
HOJA DE TRABAJO # 2
PROGRAMACIÓN I
6 DE FEBRERO DE 2014


1. Escribir un programa que calcule el área de un rectángulo:

lado1 = 3 lado2 = 4
Área del rectángulo=lado1 * lado2

2.Escribir un programa que calcule el área de un triángulo:

Base = 7 altura = 4
Área del triángulo = (base * altura)/2


3. Escribir un programa que calcule la longitud y el área de unacircunferencia:

Radio = 4
Longitud de la circunferencia = 2 * PI * radio
Área de la circunferencia = PI * radio2

4. Escribir un programa en Pascal que calcule la velocidad de un proyectil
que recorre2 Km en 5 minutos. Expresar el resultado en metros/segundo.

Velocidad = espacio/tiempo

5. Escribir un programa en Pascal que calcule el volumen de una esfera:
Radio = 3
Volumen de la esfera =4/3 * PI * radio3

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

(a+5) * 3 / 2 * b - b
a = 3
b = 6

7. Escribir un programa en Pascal que evalúe la siguienteexpresión:

(-b + raíz cuadrada (b2– 4*a*c)/(2*a)
(Es la solución positiva de una ecuación de 2º grado)



1. ÁREA DE UN RECTÁNGULO
Program Area;
Uses Crt;
Var
h,b,ar:Integer;
Begin
ClrScr;Gotoxy(10,12);Write('PROGRAMA QUE CALCULA EL AREA DE UN RECTANGULO');
Gotoxy(8,14);Write('Ingrese base del rectángulo ',b);Readln(b);
Gotoxy(8,15);Write('Ingrese la altura del rectángulo ',h);Readln(h);ar:=(b*h);
Gotoxy(16,20);Write('El  rea del rectángulo es ', ar);
Readln;
End.










2. AREA DE UN TRIÁNGULO
Program AreaTRI;
Uses Crt;
Var
h,b,ar:Real;
Begin
ClrScr;Gotoxy(10,12);Write('PROGRAMA QUE CALCULA EL ÁREA DE UN TRIÁNGULO');
Gotoxy(8,14);Write('Ingrese base del triangulo ');Readln(b);
Gotoxy(8,15);Write('Ingrese la altura del triangulo ');Readln(h);ar:=(b*h)/2;
Gotoxy(16,20);Write('El  rea del triangulo es ', ar:0:2);
Readln;
End.












3. ÁREA Y LONGITUD DE UN CÍRCULO
Program Circulo;
Uses Crt;
Var
r, l, a:Real;
Begin...