Programación PASCAL

Programas de Áreas


Program Cuadrado;
Uses crt;
Var L, A: real;
Begin
Writeln;
Write ('Escribe la medida del lado del cuadrado: ');
Read (L);
Writeln;
A:=L*L;
Write ('El  área del cuadrado es: ', A: 0:2);
End.

Program Rectangulo;
Uses crt;
Var B, H, A: real;
Begin
Writeln;
Write ('Escribe la medida de la base del rectángulo: ');
Read (B);
Writeln;
Write ('Escribe lamedida de la altura del rectángulo: ');
Read (H);
Writeln;
A:=B*H;
Write ('El  área del rectángulo es: ', A: 0:2);
End.

Program Triangulo;
Uses crt;
Var B, H, A: real;
Begin
Writeln;
Write ('Escribe la medida de la base del triángulo: ');
Read (B);
Writeln;
Write ('Escribe la medida de la altura del triángulo: ');
Read (H);
Writeln;
A:=(B*H)/2;
Write ('El  área del triángulo es: ',A: 0:2);
End.

Program Circulo;
Uses crt;
Var R, A: real;
Begin
Writeln;
Write ('Escribe la medida del radio del círculo: ');
Read (R);
Writeln;
A:=3.1416*sqr(R);
Write ('El  rea del circulo es: ', A: 0:2);
End.
Programas de Áreas con If-then-else

Program Areas;
Uses crt;
Var tipo: char;
Procedure circulo;
Var R, A: real;
Begin
Writeln;
Write ('Escribe la medida del radiodel círculo: ');
Read (R);
Writeln;
A:=3.1416*sqr(R);
Write ('El  área del circulo es: ', A: 0:2);
End;
Procedure cuadrado;
Var L, A: real;
Begin
Writeln;
Write ('Escribe la medida del lado del cuadrado: ');
Read (L);
Writeln;
A:=L*L;
Write ('El  área del cuadrado es: ', A: 0:2);
End;
Procedure triangulo;
Var B, H, A: real;
Begin
Writeln;
Write ('Escribe la medida de la basedel triángulo: ');
Read (B);
Writeln;
Write ('Escribe la medida de la altura del triángulo: ');
Read (H);
Writeln;
A:=(B*H)/2;
Write ('El  área del triángulo es: ', A: 0:2);
End;
Procedure rectangulo;
Var B, H, A: real;
Begin
Writeln;
Write ('Escribe la medida de la base del rectángulo: ');
Read (B);
Writeln;
Write ('Escribe la medida de la altura del rectángulo: ');
Read (H);Writeln;
A:=B*H;
Write ('El  área del rectángulo es: ', A: 0:2);
End;
Procedure menu;
Begin
Writeln ('1: Circulo');
Writeln ('2: Cuadrado');
Writeln ('3: Triángulo');
Writeln ('4: Rectángulo');
Write ('Selecciona el número de la figura que deseas buscar el área');
End;
Begin
Clrscr;
menu;
Writeln;
Read (tipo);
If tipo='1' then
circulo;
If tipo='2' then
cuadrado;
If tipo='3' thentriangulo;
If tipo='4' then
rectangulo
else
Write ('ERROR');
readkey;
End.




















Programas de Áreas con Case-of

Program Areas;
Uses crt;
Var tipo: char;
Procedure circulo;
Var R, A: real;
Begin
Writeln;
Write ('Escribe la medida del radio del círculo: ');
Read (R);
Writeln;
A:=3.1416*sqr(R);
Write ('El  área del circulo es: ', A: 0:2);
End;Procedure cuadrado;
Var L, A: real;
Begin
Writeln;
Write ('Escribe la medida del lado del cuadrado: ');
Read (L);
Writeln;
A:=L*L;
Write ('El  área del cuadrado es: ', A: 0:2);
End;
Procedure triangulo;
Var B, H, A: real;
Begin
Writeln;
Write ('Escribe la medida de la base del triángulo: ');
Read (B);
Writeln;
Write ('Escribe la medida de la altura del triángulo: ');
Read (H);Writeln;
A:=(B*H)/2;
Write ('El  área del triángulo es: ', A: 0:2);
End;
Procedure rectangulo;
Var B, H, A: real;
Begin
Writeln;
Write ('Escribe la medida de la base del rectángulo: ');
Read (B);
Writeln;
Write ('Escribe la medida de la altura del rectángulo: ');
Read (H);
Writeln;
A:=B*H;
Write ('El  área del rectángulo es: ', A: 0:2);
End;
Procedure menu;
Begin
Writeln ('1:Circulo');
Writeln ('2: Cuadrado');
Writeln ('3: Triángulo');
Writeln ('4: Rectángulo');
Write ('Selecciona el número de la figura que deseas buscar el área');
End;
Begin
Clrscr;
menu;
Writeln;
Read (tipo);
Case tipo of
1: circulo;
2: cuadrado;
3: triangulo;
4: rectangulo
else
Write ('ERROR');
End;
readkey;
End.




















Programas de Áreas con...