Pascal/Turbo Pascal - Funciones para sacar el área y perímetro

   
Vista:
Imágen de perfil de Gabriela

Funciones para sacar el área y perímetro

Publicado por Gabriela (5 intervenciones) el 23/03/2015 21:30:14
Mi duda es la siguiente: quiero hacer un programa que muestre al usuario 2 opciones de figura,k el usuario al seleccionarlo entrara y dará datos y mediante una función se sacara el área y perímetro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Funciones para sacar el área y perímetro

Publicado por Rene gar (58 intervenciones) el 23/03/2015 22:19:59
Te dejo esta posible solucion saludos

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
const
pi=3.1416;
 
var
figura,opcion:byte;
lado,diametro,radio:double;
 
 
begin
  Writeln('Escoga una figura ');
  Writeln('1: Cuadrado ');
  Writeln('2: Triangulo ');
  readln(figura);
 
  writeln('Escoga una opcion ');
  writeln('1: Area ');
  writeln('2: perimetro ');
  readln(opcion);
 
 
  if figura=1  then
  begin
     writeln('Ingrese el lado' );
     readln(lado);
 
     if opcion=1 then writeln('El area es ',lado*lado:0:2)
     else if opcion=2 then writeln('El perimetro es ',lado*4:0:2)
     else writeln('Error al seleccionar opcion ');
  end
  else if figura=2 then
  begin
    writeln('Ingrese el diametro del circulo ');
    readln(diametro);
    radio:=diametro/2;
 
    if opcion=1 then writeln('El area es ',pi*(radio*radio):0:2)
    else if opcion=2 then writeln('El perimetro es ',pi*diametro:0:2)
    else writeln('Error al seleccionar opcion ');
  end;
 
 
  readln;
 
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar