Pascal/Turbo Pascal - ayuda rectangulo mediante procedimiento pascal

   
Vista:

ayuda rectangulo mediante procedimiento pascal

Publicado por davo (26 intervenciones) el 27/11/2012 18:11:47
Hola, necesito calcular el area de un rectangulo mediante un procedimiento, yo he intentado este codigo que voy a insertar, a ver si alguien me puede ayudar a solucionarlo gracias de antemano.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program unidad6_1_6;
 
 
 
procedure area( VAR a,b:real);
begin
write('Introduce la base del rectangulo');
read(b);
write('Introduce la altura del rectangulo');
readln(a);
end;
 
 var
 total_area:integer;
 
begin
 
writeln area;
total_area:=a*b;
write(total_area);
end.
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

ayuda rectangulo mediante procedimiento pascal

Publicado por ramon (2072 intervenciones) el 27/11/2012 18:50:11
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
{Examina los cambios}
 
program unidad6_1_6;
uses
   crt;
 var
   a, b : real; {No son compatibles con total_area}
   total_area : integer;
 
 
procedure area( VAR a,b:real);
begin
write('Introduce la base del rectangulo ');
readln(b);
write('Introduce la altura del rectangulo ');
readln(a);
end;
 
 
begin
    clrscr;
    area(a,b);
    total_area := round((a * b) / 2); {A si si son }
    write(' El Area Es : ',total_area);
    readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda rectangulo mediante procedimiento pascal

Publicado por davo (26 intervenciones) el 28/11/2012 20:45:13
Gracias, hay cosas que no he dado y al final lo he dejado asi :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program unidad6_1_6;
 
 var
   a, b : real; {No son compatibles con total_area}
   total_area : integer;
 
 
procedure area( VAR a,b:real);
begin
write('Introduce la base del rectangulo ');
readln(b);
write('Introduce la altura del rectangulo ');
readln(a);
end;
 
 
begin
 
    area(a,b);
    total_area := round(a * b) ; {A si si son }
    write(' El Area Es : ',total_area);
    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
0
Comentar

ayuda rectangulo mediante procedimiento pascal

Publicado por ramon (2072 intervenciones) el 28/11/2012 21:15:10
1
2
3
4
5
6
7
8
9
10
{ Me supongo te refieres round esto lo que realza es un redondeo para sacar un numero entero
 de un decimal.
 Fíjate que intentas tomar dos números reales y meterlos en un numero entero eso no
 funcionara bien.
 Por ello  te pongo los comentarios en la linea si mandas esto como esta y no as dado
 esas funciones tendrás problemas con el profe corrige lo  con números enteros y ya esta.
 
  a, b : real; esto ponlo a, b  : integer; y listo
   total_area := round(a * b) ;  a qui pon  total_area := (a * b ) / 2 ;
  y pregunto el area no es (base por altura dividido 2) }
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar