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
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


0