revision del código
Publicado por Serguei Esquivel (16 intervenciones) el 04/06/2005 06:47:46
gracias por tomarse un tiempo, este códifo me está dando un error en el procedimiento, pero no le estoy llegando, se que es cualquier estupidez, bueno aqui está:
program desplieg;
uses crt;
var
num:real;
procedure PEPE (num:real);
begin
writeln('la raiz de ',num,' es ',sqrt(num):8:2);
writeln('el cuadrado de ',num,' es ',sqr(num));
writeln('el cubo de ',num,' es ',num *(sqr(num)):8:2);
end;
begin
write('indique numero');
read(num);
PEPE;
readkey;
end.
corranlo y avisenme de mi error, gracias
program desplieg;
uses crt;
var
num:real;
procedure PEPE (num:real);
begin
writeln('la raiz de ',num,' es ',sqrt(num):8:2);
writeln('el cuadrado de ',num,' es ',sqr(num));
writeln('el cubo de ',num,' es ',num *(sqr(num)):8:2);
end;
begin
write('indique numero');
read(num);
PEPE;
readkey;
end.
corranlo y avisenme de mi error, gracias
Valora esta pregunta


0