Pascal/Turbo Pascal - AYUDA XFAVOR!!

   
Vista:

AYUDA XFAVOR!!

Publicado por mataernj (2 intervenciones) el 29/06/2009 01:54:12
Saludos amigos soy nuevo en todo estoy bueno el profesor nos mando una tarea q no puedo resolver me dieron los siguientes datos para q lo hiciera funcionar.. espero me puedan ayudar a resolverlo aqui esta lo q me dieron.

var: base, altura, area} variables globales
procedure calcular area (b, h: integer var a: integer)} variables locales

begin
a=b*h;
end

begin (*principal*)

write (´introduzca la base´);
readln (´base´)
write (´introduzca la altura´);
readln (´altura´);
calcular area (base, altura, area)
write (´el area es ;´); write (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

RE:AYUDA XFAVOR!!

Publicado por juan (44 intervenciones) el 29/06/2009 04:35:26
postea bien la especificacion de lo q hacer que hacer. El area de que buscas ?? de un triangulo ?? compilastes algun programa alguna vez ?? sino lo hicistes te mando la implementacion completa , sino el algoritmo en un modulo ( ocea en un procedimiento) . saludos y bien venido
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

RE:AYUDA XFAVOR!!

Publicado por mataernj (2 intervenciones) el 29/06/2009 04:56:17
Gracias pana mi msn es mataernj@hotmail.com... men es que el profesor simplemente nos dijo que lo pusieramos a funcionar

var: base, altura, area} variables globales
procedure calcular area (b, h: integer var a: integer)} variables locales

begin
a=b*h;
end

begin (*principal*)

write (´introduzca la base´);
readln (´base´)
write (´introduzca la altura´);
readln (´altura´);
calcular area (base, altura, area)
write (´el area es ;´); write (area)

end

nos dijo q calcularamos el area de nuestars cas "casas, univercidad, o casi q lo que quisieramos"
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

RE:AYUDA XFAVOR!!

Publicado por juan (44 intervenciones) el 29/06/2009 07:57:27
hola, mi msn es juan_inf@hotmail.com , ese programa anda hay problemas de sintaxis y te recomiendo usar el dev-pascal,
te modifico tu codigo para q compile

program prueba; // le pones como se te cante al programa el nombre
unit crt; // la unidad de teclado q vas a usar

var
base, altura, area:real; // variables globales
procedure calcular area (b, h: integer var a: integer)} variables locales { para medir la superfice de algo se necesita una variable de tipo real , nunca te va a dar exacto con integer si es un ares}

begin
a:=b*h;
end;

begin (*principal*)

writeln ('introduzca la base');
readln (base);
writeln ('introduzca la altura');
readln (altura);
calcular area (base, altura, area);
writeln (´el area es ´,area);
readkey;
end.

copia y pega eso en dev-pascal y creo q sale andando , saludos
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

RE:AYUDA XFAVOR!!

Publicado por Miguel (1 intervención) el 29/06/2009 16:14:12
Fijate que a Juan se le olvido corregir unas comillas por apostrofes, las del ultimo WRITELN, por las dudas que no te compile.
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